我想用IDTCPCLIENT来接收一个不是用IDTCPSERVER写的服务器返回信息,,300分 ( 积分: 300 )

  • 主题发起人 主题发起人 joan_is_here
  • 开始时间 开始时间
J

joan_is_here

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个现成的服务器..
现在需要写一个客户端,往服务器里发信息,服务器收到信息会自动返回一个成功失败的信息.
现在问题是:我用IDTCPCLIENT往服务器发信息..服务器显示收到了,也发了返回的信息.
但是我的客户端收到的是一个空白的字符串..

请高手帮帮我啊..时间很赶,,有什么范例的给我写一下.谢谢了
 
10的话应该不行,因为它强制要用ReadLn,也就是回车做分隔符。
9的话可以用ReadFromStack
 
ReadFromStack这个不是用来判断是否有数据的吗...
 
IdTCPClient1.Host:=ed_host.Text;
IdTCPClient1.Port:=strtoint(Ed_port.Text);
try
IdTCPClient1.Connect(5000);
IdTCPClient1.Write('send data');
//f.Free;
try
showmessage('before readln');
IdTCPClient1.ReadFromStack(false,1000,True);
ed_readdata.text:=IdTCPClient1. ReadLn('',5000);
showmessage(ed_readdata.text);
showmessage('after readln');
except
// lblog.Lines .add('远程主机无响应!');

end;
except
LbLog.Lines.Add('无法建立到' + Ed_Host.Text + '的连接!');
end;
IdTCPClient1.Disconnect;

这是我发送和接收数据的代码..帮我看看有什么问题..谢谢了
 
不要用ReadLn
试试
ReadStream
 
谢谢...终于收到了
 
后退
顶部