在Delphi中調用DLL的接口,可以按照以下步驟進行操作:
以下是一個簡單的示例代碼,演示如何調用DLL接口:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
// 導入DLL接口
function MyDLLFunction(param: PChar): Integer; stdcall; external 'MyDLL.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
param: PChar;
result: Integer;
begin
// 調用DLL接口
param := 'Hello, DLL!';
result := MyDLLFunction(param);
// 顯示返回值
Memo1.Lines.Add('Result: ' + IntToStr(result));
end;
end.
在上述示例中,首先導入了一個名為"MyDLL.dll"的DLL文件,然后定義了一個名為"MyDLLFunction"的DLL接口函數。在按鈕的單擊事件中,調用了該DLL接口函數,并將參數傳遞給它。最后,將返回值顯示在Memo控件中。
請注意,上述示例僅演示了如何調用DLL接口的基本步驟。實際情況中,可能需要根據DLL的具體情況來傳遞參數和處理返回值。