delphi 调用函数

int EHRSyncTransport ( String eventid, String body, ref String message, ref String result)
dll中是这么定义的
那我调用该函数，要怎么写才能获取到ref message信息

function EHRSyncTransport( eventid,body: String; var m:pchar ):integer;stdcall;external 'ehradp.dll'

procedure TForm1.Button4Click(Sender: TObject);
var
xmlstr:string;
herder:string;
x:pchar;
i:integer;
begin
//if form3.showmodal=mrok then
begin
getmem(x,1000) ;
OpenDialog1.Execute;

XMLDocument1.FileName:=OpenDialog1.FileName;
XMLDocument1.Active:=true;

xmlStr:= XMLDocument1.XML.Text;
herder:=copy(xmlstr,pos('

',xmlstr), pos('',xmlstr)-51) ; //51消息申明
xmlstr:=copy(xmlstr,pos('

',xmlstr)+9,length(xmlstr)-pos('',xmlstr));
xmlstr:=copy(xmlstr,0,pos('',xmlstr)+6);

i:=EHRSyncTransport(herder,xmlstr,x) ;

showmessage(inttostr(i));
showmessage(x);

//else exit;
end;
freemem(x) ;
end;

你的DLL是C#生成的?
delphi没有办法调用的.
因为在delphi中没有对应C#的String类型的类型.

先在type里声明，然后在implementation里写函数体，也在这里调用函数。 比如，我在type里声明function function1(): integer;，这样就声明了一个function1()函数。 然后在implementation里 function tformmain.function1() : integer; begin end; 这里写函数体。 调用时用function1()，这样就可以了。