关于网友提出的“ 100分求助如何用Delphi调用DLL”问题疑问，本网通过在网上对“ 100分求助如何用Delphi调用DLL”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 100分求助如何用Delphi调用DLL
描述: 初次学习DELPHI调用DLL
有一个DLL,有VB例子,但没有Delphi例子,请问在DELPHI如何写才能达到相同效果
VB例子:
Private Declare Sub setup Lib "Ez98.dll" (ByVal a%, ByVal b%, ByVal c%, ByVal d%, ByVal
e%, ByVal f%)
Private Declare Sub openport Lib "Ez98.dll" (ByVal command$)
Private Declare Sub sendcommand Lib "Ez98.dll" (ByVal command$)
Private Declare Sub intloadimage Lib "Ez98.dll" (ByVal filename$, ByVal image_name$,
ByVal image_type$)
Private Declare Sub extloadimage Lib "Ez98.dll" (ByVal filename$, ByVal image_name$,
ByVal image_type$)
Private Declare Sub ecTextOut Lib "Ez98.dll" (ByVal x%, ByVal y%, ByVal b%, ByVal c$,
ByVal d$)
Private Declare Sub closeport Lib "Ez98.dll" ()
Private Sub command1_Click()
Call openport("0")
Call setup(30, 7, 2, 1, 0, 0)
Call sendcommand("W70")
Call sendcommand("^P1")
Call sendcommand("^L")
Call sendcommand("AC,20,60,1,1,1,0,TEST")
Call ecTextOut(20, 10, 34, "标楷体", "中文测试")
Call sendcommand("E")
Call closeport
End Sub
解决方案1: 记住这几点儿便可:
EXPORTS 导出
EXTERNAL 导入
STDCALL 传变量顺序
其它的可查帮助.
解决方案2: 所谓的静态调用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三个函数
解决方案3: 给你个简单的示例
创建一个DLL：
Library Test;
Uses
ShareMem, SysUtils, Windows, Dialogs;
{$R *.RES}
Const
TestConst = 'This is a tests DLL.';
{
Procedure TestDLL (TestStr : String); Stdcall
Begin
MessageDlg (TestConst + Chr (13) + Chr (13) + 'Your string is: ' + TestStr, mtInformation, [mbOk], 0);
End;
Exports TestDLL;
调用的时候：
Procedure TestDLL (TestStr : Sting); Stdcall; External 'Test.dll';
解决方案4: 1。静态调用
在静态调用一个DLLs中的过程或函数时，external指示增加到过程或函数的声明语句中。
被调用的过程或函数必须采用远调用模式。这可以使用far过程指示或一个{$F +}编译指示。
Delphi全部支持传统Windows动态链接库编程中的三种调用方式，它们是：
● 通过过程/函数名
● 通过过程/函数的别名
● 通过过程/函数的顺序号
//————————————————————静态调用举例
unit windows
interface
function FindWindowsEx(Parent,Child:hwnd;classname,windowsname:pchar):hwnd;stdcall;
const
user32='user32.dll'
implementation
function FindWindowEx; external user32 name 'FindWindowExA'
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
2. 动态调用
2.1 动态调用中的API函数
动态调用中使用的Windows API函数主要有三个,即：Loadlibrary，GetProcAddress和Freelibrary。
1.Loadlibrary: 把指定库模块装入内存
语法为： function Loadlibrary(LibFileName: PChar): THandle;
LibFileName指定了要装载DLLs的文件名，如果LibFileName没有包含一个路径，则Windows按下述顺序进行查找：
(1)当前目录；
(2)Windows目录(包含win.com的目录)。函数GetWindowDirectory返回这一目录的路径；
(3)Windows系统目录(包含系统文件如gdi.exe的目录)。函数GetSystemDirectory返回这一目录的路径；
(4)包含当前任务可执行文件的目录。利用函数GetModuleFileName可以返回这一目录的路径；
(5)列在PATH环境变量中的目录；
(6)网络的映象目录列表。
解决方案5: 类似
function StopPlay(chanelNo: integer): Integer; stdcall; far external 'Tc08a32.dll';
function CheckPlayEnd(wChnlNo: WORD): BOOLEAN; stdcall; far external 'Tc08a32.dll';
procedure ReadStatus(wChnlNo: WORD; TmpRead: pointer); stdcall; far external 'Tc08a32.dll';
以上介绍了“ 100分求助如何用Delphi调用DLL”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3315062.html
