很简单的问题,是关于TIdTCPClient控件的.

[mentalpatient]

我怎么也接受不到TIdTCPClient接受的数据,大家来看看.

PS:简单程序

client.Host:='192.168.1.1';
client.Port:=8855;

client.Connect(1000); //服务端能够看到,已经连接上

client.Write('PC'); //服务端能够接受到,并返回一些数据

client.Readln; //程序到这就死了,接收不到数据

client.Disconnect;

[hyclt]

你的意思是服务端接受不到client的数据 还是client接受不到服务端的数据？？

[hongqi162]

client在发送完pc后等待server返回的字符串，既然服务端看到了，那就是server没有向client返回数据

[hyclt]

server可以向client发送数据 但是client自己没有onexcute过程所以最好加timer组件 然后加个readln就可以读了吧。。。

[hongqi162]

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
with AThread.Connection do
begin
if ReadLn='PC' then
begin
WriteLn('PC');
end;
end;
end;

[hongqi162]

可以设置一下IdTCPClient的ReadTimeout

[mentalpatient]

我怎么也接受不到TIdTCPClient接受的数据,大家来看看.

PS:简单程序

client.Host:='192.168.1.1';
client.Port:=8855;

client.Connect(1000); //服务端能够看到,已经连接上

client.Write('PC'); //服务端能够接受到,并返回一些数据

client.Readln; //程序到这就死了,接收不到数据

client.Disconnect;

我的意思是我服务端发送接收没问题,就是客户端收不到服务端给他发的消息,不知道是什么问题,一读数据就死在那了

[hyclt]

客户端可以放个timer组件
然后Msg:=IdTCPClient1.ReadLn('', 5);你看看可以不？或者再放个IdAntiFreeze

[hyclt]

我这几天在做这个东西 因为要毕业设计 我一开始没放那个IdAntiFreeze 也会死掉 大概是这个的关系 你放看看

[xiaocai800322]

关注

[mentalpatient]

彻底晕到,知道是怎么回事了.

我在给客户端发的时候,没有以(#13)结尾,造成读不出来...........

谢谢以上各位的关注和帮助