DLL test code (Delphi Xe 10.2 write)
USES the
System. The SysUtils,
System. Classes,
The Vcl. Forms,
The Vcl. Dialogs;
{$R *. Res}
Procedure ExecMethod; Stdcall;
Var
A: Integer;
The begin
A:=StrToInt (' A ');
ShowMessage (IntToStr (A));
end;
Exports
ExecMethod;
The begin
End.
Delphi 2007 calling code
Procedure ExecMethod; Stdcall; External 'TestDll. DLL';
Implementation
{$R *. DFM}
Procedure TForm1. Button1Click (Sender: TObject);
The begin
ExecMethod;
end;
Perform the display abnormal dialog
Did not show the specific exception information