delphi 调用函数
intEHRSyncTransport(Stringeventid,Stringbody,refStringmessage,refStringresult)dll中是这么...
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('<header>',xmlstr), pos('<body>',xmlstr)-51) ; //51消息申明
xmlstr:=copy(xmlstr,pos('</header>',xmlstr)+9,length(xmlstr)-pos('</header>',xmlstr));
xmlstr:=copy(xmlstr,0,pos('</body>',xmlstr)+6);
i:=EHRSyncTransport(herder,xmlstr,x) ;
showmessage(inttostr(i));
showmessage(x);
//else exit;
end;
freemem(x) ;
end; 展开
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('<header>',xmlstr), pos('<body>',xmlstr)-51) ; //51消息申明
xmlstr:=copy(xmlstr,pos('</header>',xmlstr)+9,length(xmlstr)-pos('</header>',xmlstr));
xmlstr:=copy(xmlstr,0,pos('</body>',xmlstr)+6);
i:=EHRSyncTransport(herder,xmlstr,x) ;
showmessage(inttostr(i));
showmessage(x);
//else exit;
end;
freemem(x) ;
end; 展开
2个回答
展开全部
ref String 先要知道是什么类型，再按delphi的规则去声明这个函数
int EHRSyncTransport ( String eventid, String body, ref String message, ref String result)//
EHRSyncTransport(eventid: String ; body:String;message:ref String ;result:ref String ):integer;
int EHRSyncTransport ( String eventid, String body, ref String message, ref String result)//
EHRSyncTransport(eventid: String ; body:String;message:ref String ;result:ref String ):integer;
更多追问追答
追问
后面2个是调用函数的返回值
追答
ref String 是什么先要知道，再到public 下面去定義message:ref String ;result:ref String 這兩個，用來接收返回值，這個函數數本身返回的卻是一個int值
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
