Delphi调用C++写的DLL，参数是字符指针，Delphi中如何传参数？

Question

C++中的原型声明：
调用语法：
int InitHandle (char * OutPutData)
参数描述：
char * OutPutData  传回初始化信息
返回值：成功，返回0，失败，返回-1。
Delphi里面应该怎么传参数进去呢？我用的下面的方法，可是当Showmessage的时候，总是报异常错误。正确的方法应该怎么调？谢谢大家！
unit Main_Unit;interfaceuses
  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;implementationuses 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.

Answer 1

InPutData: PChar
改为
OutPutData:Pchar
应和dll中的一致

Answer 2

传递指针参数，实际上就是传递一个变量的地址。比如你这里定义的是S:Pchar，那么传递时应该是
i := InPutData(@S); //前面加一个@就可以了。

Answer 3

function InitHandle(OutPutData: PChar): integer; cdecl; External LibraryFile;

Answer 4

GetMem(S,255);//加上这一句
i := InitHandle(S);