Delphi編程 DLL編寫接口怎麽聲明 在線等！

//動態調用方式、先定義函數、後面在通過Button過程調入個函數接口地址

_GetPassWord:function (Pass:string):string;stdcall;

_CheckPassWord:Function(SourcePass:string;EncryPass:string):boolean;stdcall;

_StrEncrypt:Function(s: string; key: word): string;StdCall;

_StrDecrypt:Function(s: string; key: word): string;StdCall;

_GetRegistCode:Function(Pass:string):String;StdCall;

_CheckRegistCode:Function(CompanyName,RegistCode:string):Boolean;StdCall;

//下面為靜態調用方式

function GetPassWord(Pass:string):ShortString;stdcall;external 'MyHRDLL.dll';

function CheckPassWord(SourcePass,EncryPass:string):Boolean;stdcall;external 'MyHRDLL.dll';

function StrEncrypt(s: string; key: word): ShortString;stdcall;external 'MyHRDLL.dll';

function StrDecrypt(s: string; key: word): ShortString;stdcall;external 'MyHRDLL.dll';

function GetRegistCode(Pass:string):ShortString;stdcall;external 'MyHRDLL.dll';

function CheckRegistCode(CompanyName,RegistCode:string):Boolean;stdcall;external 'MyHRDLL.dll';

動態調用的button實現：

procedure TForm1.Button5Click(Sender: TObject);

begin

try

_DLLMoudle := Loadlibrary('MyHRDLL.dll');

ShowMessage('初始化成功!!!');

except

ShowMessage('初始化失敗!!!');

Exit;

end;

if _DLLMoudle > 32 then begin

Try

@_GetPassWord:=GetProcAddress(_DLLMoudle,'GetPassWord'); //打開串口

@_CheckPassWord:=GetProcAddress(_DLLMoudle,'CheckPassWord'); //關閉串口

@_StrEncrypt:=GetProcAddress(_DLLMoudle,'StrEncrypt'); //對卡號沖值

@_StrDecrypt:=GetProcAddress(_DLLMoudle,'StrDecrypt'); //刪除卡號

@_GetRegistCode:=GetProcAddress(_DLLMoudle,'GetRegistCode'); //終端機清除刷卡記錄

@_CheckRegistCode:=GetProcAddress(_DLLMoudle,'CheckRegistCode'); //

ShowMessage('DLL裝載成功.............');

Except

ShowMessage('出錯!!DLL打開失敗!!不能做其他操作!!');

End

end;

end;

上一篇:轉 如何看懂FinnCiti的機器人交易市場

下一篇:編程貓的