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

[arraiy]

C++中的原型声明：
调用语法：
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.

[bdmh]

OutPutData:Pchar

[喝口水]

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

[nm_wyh]

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

[arraiy]

试过了上面两位的方法，还是不行

[liun_li]

楼主好像跟我碰到同样的问题了...

[xisiyong]

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

[yzhtwo]

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