我的一个应用，调用了一个自己写的dll，发现在每调用一次,系统资源就减少差不多1%,大约一百次以后,系统出现错误(100分)

O

OpuBF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-28

• #21

function loadbmp(h:Thandle;str:string):Tbitmap;
var //从动态库里取出位图资源自定义函数
bit:Tbitmap;
begin
bit:=Tbitmap.Create;
bit.Handle:=loadbitmap(h,pchar(str));
loadbmp.Assigned(bit); //改改这行
bit.Free;
end;

 

S

savenight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #22

源码没有怎么看？

 

W

whjun_mail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #23

TO SAVENINGTH
你要什么原码

 

G

guzlc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #24

显然函数返回一个局部类变量是错误的，至少要在堆上分配内存，然后释放。
type
PbitMap = ^TBitMap;
var
ptrb: PBitMap;
begin
New(ptrb);
ptrb^ := TBitMap.Create;
ptrb^.Handle := Loadbitmap(handle,'bmp');
result := ptrb; //最后在使用完后必须调用　Dispos(ptrb);
end;

 

阿

阿魁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-16

• #25

位图变量不用释放，让loadbmp传回TBitmap的句柄，将该句柄赋值给image1.picture.bitmap.handle
让image1自己管理该资源。

function loadbmp(h:Thandle;str:string):THandle;
var
bit:Tbitmap;
begin
bit:=Tbitmap.Create;
bit.Handle:=loadbitmap(h,pchar(str));
loadbmp:=bit.handle;
end;

hand:=loadlibrary('chnbmp.dll');
image1.Picture.bitmap.handle := loadbmp(hand,myfile+'sback');

 

W

whjun_mail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-20

• #26

谢谢你阿魁，我的问题已解决，可我不知道怎样给你分。
谢谢各位的帮助，祝大家快乐。

 

阿

阿魁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-20

• #27

不用客气 []

要不，你再开一个帖子，我来跟 [^][]

 

W

whjun_mail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-20

• #28

我将我以前的一个帖子提前吧，把那里的分给你好不？？帖子名为

在程序中屏蔽掉IE的右键弹出菜单，并添加上自己的菜单实现自定的功能

 

阿

阿魁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-20

• #29

no pains,no gains

 

阿

阿魁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #30

这样应该也行，我没试过，有兴趣自己试吧。

将
function loadbmp(h:Thandle;str:string):THandle;
var
bit:Tbitmap;
begin
bit:=Tbitmap.Create;
bit.Handle:=loadbitmap(h,pchar(str));
loadbmp:=bit.handle;
end;

改为

function loadbmp(h:Thandle;str:string):THandle;
begin
try
loadbmp := loadbitmap(h,pchar(str));
except
on e:Exception do
begin
//handle the exception
loadbmp := nil;
end;
end;
end;

 

Z

zhukewen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #31

你的bit创建以后没有释放。

 

S

sun77wind

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #32

什么时候FREElibrary的？
你不能只加载DLL不释放呀

 

阿

阿魁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-29

• #33

to zhukewen：
你只看到了一点

 

Y

ynfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-24

• #34

不好意思，是因为在acs.dll中使用了一个从网常下载的LED控件的原因,是LED控件的问题