我在做一个DLL时，调用其它的DLL。该怎么办？(50分)

R

rockdove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #1

如题。

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #2

你有什么问题？
不能调用吗？

 

R

rockdove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #3

是啊，不知道怎么调用。

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #4

自己去看！
http://tech.china.com/zh_cn/netschool/programme/delphi/653/20010614/192001.html

 

B

benlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-17

• #5

怎么不行呢？
给你个动态装载的例子:
type afunc1=procedure( short a, short b) of object;

var myfun:afunc1;
begin
if FDLLPath[length(FDLLPath)]<>'/' then FDLLPath:=FDLLpath+'/';
DLLHandle := LoadLibrary(pchar(FDLLPath+'aaa.dll'));
if DLLHandle <> 0 then @myfun:=GetProcAddress(DLLHandle, 'func1');
end;

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-19

• #6

采用动态加载，应该可以
if FDLLPath[length(FDLLPath)]<>'/' then FDLLPath:=FDLLpath+'/';
DLLHandle := LoadLibrary(pchar(FDLLPath+'aaa.dll'));
if DLLHandle <> 0 then @myfun:=GetProcAddress(DLLHandle, 'func1');
freelibrary(pchar(FDLLPath+'aaa.dll'));

end;

 

R

rockdove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #7

多人接受答案了。