Delphi中如何调用DLL
马上想得到的使用说明有以下几点:1. 所需动态连结的 DLL 须置放在与执行档同一目录或Windows System 目录2. 确认 DLL export 出来的函式的原型, 以目前的情况而言, 通常只拿得到 C语言的函数原型,这时要注意 C 与 object Pascal 相对应的型别, 如果需要, 在interface 一节定义所需的资料类别3. 在 implementation 节中宣告欲使用的函式, 语法大致如下:procedure ProcName(Argu...); far; external ’DLL档名’;index n;function FuncName(Argr...): DataType; far;external ’DLL档名’; index n;宣告时, index n 如果不写, 便是参考资料中所谓 import by name 的方式, 此时, 由於需要从 DLL 的 name table 中找出这个函式, 因此, 连结执行速度比import by ordinal稍慢一些, 此外, 还有一种 by new name, 由於我没用过, 您可以查一参考资料, 大意是可以 import 後改用另一个程式命名呼叫这个函式4. 然後, 呼叫与使用就与一般的Delphi 没有两样5. 上述是直接写到呼叫DLL函式的程式单元中, 此外,也可以将DLL的呼叫宣告集中到一个程式单元(Import unit), Delphi 内附的 WinTypes, WinProcs是一个例子,您可以参考一下,同时观察一下 C 与 Pascal 互相对应的资料型态6. 除了上述的 static import 的方式, 另外有一种 dynamic import 的写法,先宣告一个程序类型(procedural-type),程式执行时, 以LoadLibrary() API Load进来後, 再以 GetProcAddress() API 取得函式的位址的方式来连结呼叫, 在ObjectPascal Language Guide P.132-133 有一个例子, 您可以参考看看如果要举个例子, 以下是从我以前的程式节录出来的片断:(* for CWindows 3.1 *)unit Ime31;interfaceusesSysUtils, WinTypes, WinProcs, Dialogs;type(* 必要的资料型态宣告 *)tDateNTime = recordwYear, wMonth, wDay: word;wHour, wMin, wSec: word;end;TImePro = recordhWndIme: HWnd; { IME handle }dtInstDate: tDateNTime; { Date and time of installation }wVersion: word; { the version of IME }szDescription: array[0..49] of byte; { Description of IME module}szName: array[0..79] of byte; { Module name of the IME }szOptions: array[0..29] of byte; { options of IME at startup}fEnable: boolean; { IME status; True=activated,False=deactivated }end;pTImePro = ^TImePro;function SetIme(const sImeFileName: string): boolean; far;implementation(* begin 呼叫 winnls.dll export 函数的宣告 *)function ImpSetIme(hWndIme: HWND; lpImePro: pTImePro): boolean;far; external ’winnls.dll’;(* end 呼叫 winnls.dll export 函数的宣告 *)(* -------------------------------------------------- *)(* SetIme(const sImeFileName: string): boolean;(* ======(* 切换到某一特定的输入法(*(* 传入引数:(* sImeFileName: 输入法 IME 档名, 例: phon.ime;(* 空字串: 英数输入法(*(* 传回值:(* True: 切换成功(* False: 失败(* -------------------------------------------------- *)function SetIme(const sImeFileName: string): boolean;varpImePro: pTImePro;beginResult := False;if MaxAvail < SizeOf(TImePro) thenbeginMessageDlg(’记忆体不足’, mtWarning, [mbOk], 0);Exit;endelsebeginNew(pImePro);tryif sImeFileName = ’’ then (* 空字串, 还原到英数输入法 *)pImePro^.szName[0] := 0elseStrPCopy(@pImePro^.szName, sImeFileName);Result := ImpSetIme(0, pImePro); (* 呼叫 ImpSetIme *)finallyDispose(pImePro);end; { of try }end;end; { of SetIme }end.;
马上想得到的使用说明有以下几点:1. 所需动态连结的 DLL 须置放在与执行档同一目录或Windows System 目录2. 确认 DLL export 出来的函式的原型, 以目前的情况而言, 通常只拿得到 C语言的函数原型,这时要注意 C 与 object Pascal 相对应的型别, 如果需要, 在interface 一节定义所需的资料类别3. 在 implementation 节中宣告欲使用的函式, 语法大致如下:procedure ProcName(Argu...); far; external ’DLL档名’;index n;function FuncName(Argr...): DataType; far;external ’DLL档名’; index n;宣告时, index n 如果不写, 便是参考资料中所谓 import by name 的方式, 此时, 由於需要从 DLL 的 name table 中找出这个函式, 因此, 连结执行速度比import by ordinal稍慢一些, 此外, 还有一种 by new name, 由於我没用过, 您可以查一参考资料, 大意是可以 import 後改用另一个程式命名呼叫这个函式4. 然後, 呼叫与使用就与一般的Delphi 没有两样5. 上述是直接写到呼叫DLL函式的程式单元中, 此外,也可以将DLL的呼叫宣告集中到一个程式单元(Import unit), Delphi 内附的 WinTypes, WinProcs是一个例子,您可以参考一下,同时观察一下 C 与 Pascal 互相对应的资料型态6. 除了上述的 static import 的方式, 另外有一种 dynamic import 的写法,先宣告一个程序类型(procedural-type),程式执行时, 以LoadLibrary() API Load进来後, 再以 GetProcAddress() API 取得函式的位址的方式来连结呼叫, 在ObjectPascal Language Guide P.132-133 有一个例子, 您可以参考看看如果要举个例子, 以下是从我以前的程式节录出来的片断:(* for CWindows 3.1 *)unit Ime31;interfaceusesSysUtils, WinTypes, WinProcs, Dialogs;type(* 必要的资料型态宣告 *)tDateNTime = recordwYear, wMonth, wDay: word;wHour, wMin, wSec: word;end;TImePro = recordhWndIme: HWnd; { IME handle }dtInstDate: tDateNTime; { Date and time of installation }wVersion: word; { the version of IME }szDescription: array[0..49] of byte; { Description of IME module}szName: array[0..79] of byte; { Module name of the IME }szOptions: array[0..29] of byte; { options of IME at startup}fEnable: boolean; { IME status; True=activated,False=deactivated }end;pTImePro = ^TImePro;function SetIme(const sImeFileName: string): boolean; far;implementation(* begin 呼叫 winnls.dll export 函数的宣告 *)function ImpSetIme(hWndIme: HWND; lpImePro: pTImePro): boolean;far; external ’winnls.dll’;(* end 呼叫 winnls.dll export 函数的宣告 *)(* -------------------------------------------------- *)(* SetIme(const sImeFileName: string): boolean;(* ======(* 切换到某一特定的输入法(*(* 传入引数:(* sImeFileName: 输入法 IME 档名, 例: phon.ime;(* 空字串: 英数输入法(*(* 传回值:(* True: 切换成功(* False: 失败(* -------------------------------------------------- *)function SetIme(const sImeFileName: string): boolean;varpImePro: pTImePro;beginResult := False;if MaxAvail < SizeOf(TImePro) thenbeginMessageDlg(’记忆体不足’, mtWarning, [mbOk], 0);Exit;endelsebeginNew(pImePro);tryif sImeFileName = ’’ then (* 空字串, 还原到英数输入法 *)pImePro^.szName[0] := 0elseStrPCopy(@pImePro^.szName, sImeFileName);Result := ImpSetIme(0, pImePro); (* 呼叫 ImpSetIme *)finallyDispose(pImePro);end; { of try }end;end; { of SetIme }end.;
解决方案 »
- 禁止鼠标滚轮改变cxgrid下拉列表值
- 如何用程序关闭WebBrowser中的网页（javascript）弹出的对话框
- IT人生：程序员喝酒的计算机文化
- 如何实现自动增加值的字段！
- 请xiaoxiao_8(小小_8)来拿分~谢谢！
- 请教一个用QuickRep作报表,如何才能每页都有一个本页汇总
- SQL Server数据库恢复错误,在线求救
- 电脑刚才中了病毒,请帮忙.http://www.start.no/download/BR2002.exe
- query操作问题
- 拖了一个世纪的问题!!!访问中国软件时出现“找不到服务器”错误!系统重装也不行!
- 怎样不弹出脚本错误对话框?
- 如何把EDIT1和BitBtn1Click联系起来？
function EnumProcesses(lpidProcess: PLongWord; cb: LongWord; cbNeeded: PLongWord): Boolean; stdcall; external 'psapi.dll';
function EnumProcessModules(hProcess: THandle; lphModule: PLongWord; cb: LongWord; lpcbNeeded:LongWord): Boolean; stdcall; external 'psapi.dll';
function GetModuleBaseNameA(hProcess: THandle; hMod : LongWord; szProcessName: PChar; szProcessNameLong :LongWord) :Boolean; stdcall; external 'psapi.dll';然后就可以用了。
function myfunc():integer;stdcall;external 'www.dll';
使用时，直接调用myfunc();
给你一个例子，
我的[email protected]
静态时先声明静态链接上面也有了动态时先动态装入
LibHandle := LoadLibrary(pchar(PSdllname));
@mydllmain := GetProcAddress(LibHandle,pchar(PSprocname));之后就像会自己用的函数一样了
ems.dll文件
email.proc()email对象\proc过程
如何调用这个对象的过程呢？