关于delphi中动态调用dll时出现的问题

Posted 2023-05-03

在delphi编程时，需要用到动态调用dll文件，但是却老是出错提示，错误提示是access violation at address 00404240 in module 'project1.exe' .read of address 00E00BCC.
意思是非法访问某个内存地址。为了测试这个错误，我在整个程序里就是用了这么一个功能，就是调用dll文件，但是还是要出错。我把原代码贴出来，希望高手们帮我看看，究竟怎么回事。首先排除dll文件名及函数名以及dll文件本身的问题，因为不管什么dll文件都出现一样的问题。
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;
Tenc=function(Source,Key:string):string;stdcall;
var
Form1: TForm1;
hd_csqm:THandle;
crt_sqm:Tenc;
implementation

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);
begin
hd_csqm:=LoadLibrary('evcrypt.dll');
try
if hd_csqm<>0 then
@crt_sqm:=GetProcAddress(hd_csqm,'EncryptString');
if @crt_sqm<>nil then
showmessage(crt_sqm('123456','123456787909'))
else
showmessage('找不到函数');
finally
FreeLibrary(hd_csqm);
end;
end;

end.

hd_csqm:=LoadLibrary('evcrypt.dll');
try
if hd_csqm<>0 then
begin
crt_sqm:=GetProcAddress(hd_csqm,'EncryptString');
showmessage(crt_sqm('123456','123456787909'));
end
else
showmessage('找不到函数');
finally
FreeLibrary(hd_csqm);
end;

这样子试试

应该是参数的问题，你可以试试调一个没有参数的函数，或者参数采用默认值形式的函数；
如果是参数的问题的话，可能要把String 改成pchar

还有一个问题就是 你的DLL里面 uses 第一个是不是 ShareMem 参考技术A 这个绝对是函数声明的问题。
好好看看DLL的函数的声明。

delphi 怎么动态调用dll中的过程

最好列举一个例子，切记不要函数，只要关于过程的

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; 参考技术A 实际上,DLL和DELPHI的单元文件差不多,不同的是一个单元文件,主单元可以调用其中的任意一个方法(函数和过程),但对DLL确只能从它的入口(函数或过程)进入该DLL.单元文件可以操作主单元界面上的控件,但DLL肯定不能这样做.一个DLL可以有多个入口,入口可以是函数也可以是过程,你要调用它的过程,你就把该过程指定为入口就行了.不知对不对.本回答被提问者和网友采纳 参考技术B dll需要给出接口函数的，没有接口函数怎么调用？