his - dll

his - dll

EDLLLoadError = class(Exception);

TShowForm = function(istr:string;var a,b,c,d,e,f,g,h,i,j :string;
var k :Integer):integer;Stdcall;
function common_data(istr:string;var a,b,c,d,e,f,g,h,i,j :string;
var k :Integer):integer;stdcall;external 'HisInterface.dll';

var
frmHISManageCenter: TfrmHISManageCenter; //HisInterface.dll


implementation

{$R *.dfm}

procedure TfrmHISManageCenter.dxBarButton13Click(Sender: TObject);
begin
Close;
end;

procedure TfrmHISManageCenter.dxBarButton39Click(Sender: TObject);
var
mainfrm,DllForm:THandle;
ShowForm:TShowForm;
testStr :string ;
testint :Integer;
a,b,c,d,e,f,g,h,i,j :string;
k :Integer;
begin
testStr := '[1|2]';
testint := common_data(testStr,a,b,c,d,e,f,g,h,i,j,k);
{mainfrm:=frmHISManageCenter.Handle;
DllForm:=LoadLibrary('HisInterface.dll');
Try
begin
if DllForm<>0 then
begin
@ShowForm:=GetProcAddress(DllForm,'common_data');
ShowForm(mainfrm,'');
end
else
begin
RaiseLastWin32Error;
end;
end;
Finally
FreeLibrary(DllForm);
end; }

end;

procedure TfrmHISManageCenter.dxBarButton40Click(Sender: TObject);
var
LibHandle:THandle;
ShowForm:TShowForm;
testStr :string ;
testint :Integer;
a,b,c,d,e,f,g,h,i,j :string;
k :Integer;
begin
testint := 2 ;
testStr := '[1|2]';
LibHandle := LoadLibrary( 'HisInterface.DLL');
try
if LibHandle = 0 then
raise EDLLLoadError.Create( '不能装载动态链接库，请确认动态链接库的存在！ ');
@ShowForm := GetProcAddress(LibHandle, 'common_data');
if not (@ShowForm = nil) then
testint := ShowForm(testStr,a,b,c,d,e,f,g,h,i,j,k)
else
RaiseLastWin32Error;
ShowMessage( IntToStr(testint) );
finally
FreeLibrary(LibHandle); // Unload the DLL.
end;
end;