unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
SendPatientInfo = procedure(sParam:ansistring); stdcall;//无回参用procedure，有回参用function，我也不知道为什么
var
Form1: TForm1;
implementation
{$R *.dfm}
var
FDLL130Handle: THandle;
DLL130Name: string = 'D:demodelphiMetabolism.dll';
bStop: boolean;
procedure TForm1.Button1Click(Sender: TObject);
var
sendPInf:SendPatientInfo;
begin
FDLL130Handle := Loadlibrary(Pchar(DLL130Name));
if FDLL130Handle = 0 then
begin
ShowMessage(DLL130Name+'不存在');
Exit;
end;
@sendPInf := GetProcAddress(FDLL130Handle, 'SendPatientInfo');
if @sendPInf = nil then
begin
ShowMessage('SendPatientInfo 函数无法获得!');
end else
begin
sendPInf(pchar(Edit1.Text));
end;
end;
end.