delphi如何调用DLL

Posted 2023-05-03

delphi如何调用DLL？？？？？？？？/

所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了，一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载,动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL，这个就是动态加载！
你要静态加载DLL就用Delphi自己写一个DLL，并且写一个引出库(*.pas的)，然后在你的应用程序中包含这个*.pas就根本不用声明DLL中那些乱七八糟的引出函数，直接用就可以了，如果该DLL不存在，那么整个应用程序将无法使用，但是动态调用DLL就不同了，就算DLL不在，应用程序仍然可以使用

访问DLL库有两种方式，一种是静态引用，另一种是动态引用。
用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。
external命令的使用语法如下：
procedure /function 过程/函数名；external DLL模块名；
下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元 与一般 单元的一些差别，代码如下所示：
unit testdll;
interface
uses
function Min (X, Y: Integer): Integer;
function Max (X, Y: Integer): Integer;

implementation

function Min; external ‘minmax.DLL’;
function Max; external ‘minmax.DLL’;
end.

一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。
动态装入DLL，要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下：
function loadlobrary (DLLfileName：Pchar): THandle:
当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下：
procedure FreeLibrary (Libmodule:THandle)
Libmodule 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中， 可以使用该DLL库中的过程和函数，
具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下，
function GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:

如下例所示：
type
TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end;
TGetTime = procedure(var Time: TTimeRec);
THandle = Integer;
var
Time: TTimeRec;
Handle: THandle;
GetTime: TGetTime;
...
begin
Handle := LoadLibrary(\'DATETIME.DLL\');
if Handle <> 0 then
begin
@GetTime := GetProcAddress(Handle, \'GetTime\');
if @GetTime <> nil then
begin
GetTime(Time);
with Time do
WriteLn(\'The time is \', Hour, \':\', Minute, \':\', Second);
end;
FreeLibrary(Handle);
end;
end;
在调用动态链接库时应注意， 所需动态链接库须与应用程序在同一目录或Windows System 目录下。

静态调用
Function fun(para:Longint):Longint; stdcall; external \'xxx.dll\';
动态调用
loadlibrary,getprocaddress,freelibrary三个函数 参考技术A 问的很没有水平.

你好，请教一个问题，delphi如何调用DLL中的一个带动态数组参数的方法？

我定义的结构体：
TFieldInfo = record
FileName: PChar;
DisplayText: PChar;
NotNull: Boolean;
end;

TFieldInfos = array of TFieldInfo;

DLL（自己用delphi写的）中的函数需要传递一个动态数组：
函数声明如：
function ImportData(AFieldInfo: array of TFieldInfo): Boolean;
或：function ImportData(AFieldInfo: TFieldInfos): Boolean;

应该如何调用？如果该方法不是在DLL中封装，调用没有问题，但如果封装到DLL中，调用报地址错误。

另外，还有一个疑问，见链接：http://user.qzone.qq.com/303163222/infocenter#!app=2&via=QZ.HashRefresh&pos=1339581464

应该是DLL和EXE都引用ShareMem就可以了

另外在你空间回答了追问

我传的参数没有敢用string，还需要引用ShareMem单元吗？调用DLL中的带数组参数的方法是不是必须用数组指针？
我空间里的回答我觉得解释的通。之前好像在网上下载过你的某一个小程序，忘了名字了。

追答

如果DLL参数是动态数组可能是需要ShareMem，我没这样用过。只是印象中这样。

另外关于字符串你可以看《Delphi源代码分析》这本书，里面提到的string的格式。
是： 引用计数 + 串长 + 字符串内容
而字符串变量本身是一个指针（4字节），是字符串内容的首地址 （引用计数和串长可以通过此地址-4、 -8得到）

来自：求助得到的回答 参考技术A 个人一点建议，你觉得有理就试试，否则就当我没说：
1、凡是写dll，尽量不要把Delphi的string和动态数组作为参数传递，因为这些玩意都是Delphi的独门类型（含有计数引用、长度等额外的狗屎东西），Windows认识你Delphi老大贵姓？Windows API哪个含有动态类型的参数？全用的指针！
2、动态数组变量本身就是个指针，直接使用它本来面目进行传递。这样改函数：
function ImportData(FieldInfosPtr: Pointer): Boolean;
var
AFieldInfo: TFieldInfos;
begin
AFieldInfo := FieldInfosPtr;
其它部分不变...
end; 参考技术B var
fieldInfo:TFieldInfo;
调用：
ImportData( @fieldInfo);