L
linqi07
Unregistered / Unconfirmed
GUEST, unregistred user!
<br>delphi中声明如下<br> function Send(sSend,sReturn
char)char; stdcall; External 'Send.dll' name 'Send';<br>程序中调用<br><br>procedure TForm1.btnHandInClick(Sender: TObject);<br>var<br> sSend,sReturnchar;<br> SendMsg:string;<br>begin<br> SendMsg:='.......'；//给SendMsg赋值<br> sSend:=stralloc(512);//分配内存块<br> strpcopy(sSend,SendMsg);<br> sReturn:=stralloc(512); //分配内存块<br> Send(sSend,sReturn);<br>end;<br><br>使用时有时正确，有时报‘无效的指针错误’，请问是为什么？<br>还有以上代码有什么问题以及建议。
char)char; stdcall; External 'Send.dll' name 'Send';<br>程序中调用<br><br>procedure TForm1.btnHandInClick(Sender: TObject);<br>var<br> sSend,sReturnchar;<br> SendMsg:string;<br>begin<br> SendMsg:='.......'；//给SendMsg赋值<br> sSend:=stralloc(512);//分配内存块<br> strpcopy(sSend,SendMsg);<br> sReturn:=stralloc(512); //分配内存块<br> Send(sSend,sReturn);<br>end;<br><br>使用时有时正确，有时报‘无效的指针错误’，请问是为什么？<br>还有以上代码有什么问题以及建议。