3个回答
展开全部
var
Form1: TForm1;
//过程和函数是一样的啊~
//1.为了方便使用,首先要定义一个过程的变量,也就是一个指针啦~像下面这样:
//在var 下面写
abc:procedure;stdcall; //过程就是没有返回值的函数哇
acb:procedure(a:longint);stdcall; //过程就是没有返回值的函数哇
bac:function(a:Longint):longint;stdcall;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
H:cardinal;
A:Longint;
begin
//动态调用的时候,这样子:
//2.首先,用系统API LoadLibrary装入DLL文件,装入后,返回一个句柄吧,当然如果本来就有的话,可以用GetModuleHandle
H:=LoadLibrary('sfc.dll'); //sfc.dll也就是你要装入DLL文件名了
//3.上面取得一个句柄之后,就可以用这个句柄来做事了。 系统API GetProcAddress用来取得DLL上面某个函数的地址(指针啦),
abc:=GetProcAddress(H,'dllproc1'); // dllproc1是DLL内的函数(过程也是一样的),但注意大小写,是敏感的
acb:=GetProcAddress(H,'dllproc2');
bac:=GetProcAddress(H,'dllproc3');
//4.现在就可以像普通调用函数(过程)使用它了
abc;
acb(12);
A:=bac(12);
Form1.Caption:=inttostr(A);
end;
Form1: TForm1;
//过程和函数是一样的啊~
//1.为了方便使用,首先要定义一个过程的变量,也就是一个指针啦~像下面这样:
//在var 下面写
abc:procedure;stdcall; //过程就是没有返回值的函数哇
acb:procedure(a:longint);stdcall; //过程就是没有返回值的函数哇
bac:function(a:Longint):longint;stdcall;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
H:cardinal;
A:Longint;
begin
//动态调用的时候,这样子:
//2.首先,用系统API LoadLibrary装入DLL文件,装入后,返回一个句柄吧,当然如果本来就有的话,可以用GetModuleHandle
H:=LoadLibrary('sfc.dll'); //sfc.dll也就是你要装入DLL文件名了
//3.上面取得一个句柄之后,就可以用这个句柄来做事了。 系统API GetProcAddress用来取得DLL上面某个函数的地址(指针啦),
abc:=GetProcAddress(H,'dllproc1'); // dllproc1是DLL内的函数(过程也是一样的),但注意大小写,是敏感的
acb:=GetProcAddress(H,'dllproc2');
bac:=GetProcAddress(H,'dllproc3');
//4.现在就可以像普通调用函数(过程)使用它了
abc;
acb(12);
A:=bac(12);
Form1.Caption:=inttostr(A);
end;
展开全部
实际上,DLL和DELPHI的单元文件差不多,不同的是一个单元文件,主单元可以调用其中的任意一个方法(函数和过程),但对DLL确只能从它的入口(函数或过程)进入该DLL.单元文件可以操作主单元界面上的控件,但DLL肯定不能这样做.一个DLL可以有多个入口,入口可以是函数也可以是过程,你要调用它的过程,你就把该过程指定为入口就行了.不知对不对.
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dll需要给出接口函数的,没有接口函数怎么调用?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询