动态调用dll占用内存越来越多的问题。

[tomp]

dll的代码：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
library Project2;

uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas';

exports testdll,addtest;
begin
end.
－－－－－－－－－－－－－－
unit Unit1;

interface
procedure testdll;stdcall;//export;
implementation
procedure testdll;
begin
end;
end.
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
动态调用dll的代码
================================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
test=procedure();stdcall;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
testpro:test; { Public declarations }
end;

var
Form1: TForm1;
testhandle:thandle; //句柄
testpointer:pointer; //定义过程入口指针

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
testhandle:=loadlibrary('c:\project2.dll'); //装载project2.DLL文件
if testhandle>0 then
try
testpointer:=getprocaddress(testhandle,pchar('testdll'));//获取project2.DLL的testdll过程
if testpointer<>nil then begin
testpro:=test(testpointer); //把project2.DLL的testdll过程传给project.ext的testpro过程
testpro;
end;
finally
freelibrary(testhandle); //释放project2.DLL文件
end;
end;

end.

#########################################################################################
上面的这个调用在几十万次后，程序占的内存超大，到底是哪里的问题呢

[ysai]

http://topic.csdn.net/u/20070409/13/1d0d3f03-cb0f-408d-9155-03e4b749d595.html

[tomp]

修改Classes.pas
在initialization段前加上
procedure DeleteObjectInstance;
Var
Block : PInstanceBlock;
Begin
While InstBlockList < > NIL do
Begin
Block := InstBlockList^.Next;
VirtualFree(InstBlockList, 4096, MEM_DECOMMIT);
InstBlockList := Block;
end;
end;

在finalization段最后调用它
DeleteObjectInstance;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
楼上的你说的是不是这段？dll和调用dll的程序我都重新编译了，还是不行。

[ysai]

你确定修改过的classes.pas被编译了吗?
把它加入工程试试,否则会使用delphi搜索目录中的classes.dcu文件

[aiirii]

>>上面的这个调用在几十万次后
如果是这样多次的调用，应该在程序开始的时候，loadlibrary
程序退出的时候，才 freelibrary
如果还有问题，应该检查 project2.dll 是否有问题
想法减少装载dll的次数

[13193887977]

function testdll;external 'c:\project2.dll';
这么频繁的调用，使用静态的撒

[tomp]

“你确定修改过的classes.pas被编译了吗?
把它加入工程试试,否则会使用delphi搜索目录中的classes.dcu文件”
我再看看去，谢谢

[tomp]

试过了，以5万次为限，程序启动后为2.5M，刚开始会涨，但8000次之后就在4.8M波动，一直到结束。