调用语法:
int InitHandle (char * OutPutData)
参数描述:
char * OutPutData 传回初始化信息
返回值:成功,返回0,失败,返回-1。
Delphi里面应该怎么传参数进去呢?我用的下面的方法,可是当Showmessage的时候,总是报异常错误。正确的方法应该怎么调?谢谢大家!
unit Main_Unit;
interface
uses
ShareMem, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, StrUtils, JNI, filectrl;
const
LibraryFile = 'SiInterface.Dll';
function Delphi_InitHandle: PChar;
function InitHandle(InPutData: PChar): integer; StdCall; External LibraryFile;
implementation
uses pub_Unit;
function Delphi_InitHandle: PChar;
var
S:PChar ;
i: integer;
resultS: string;
begin
resultS := '';
try
i := InitHandle(S);
resultS := String(S);
Showmessage(resultS);
Result := PChar(resultS);
except
on e: exception do
ShowMess(e.Message);
end;
end;
end.