关于delphi7 Tcpclient接收数据

[T_Y890803]

利用socket发送和接收数据的,执行完TcpClient1.Sendln后,服务端接收了数据,也返回数据过来给客户端,客户端调用WaitForData方法,再调用 TcpClient1.Receiveln,数据一直没有返回,程序卡死了,要怎么解决
求大神帮忙解决 分数少

[bdmh]

Tcpclient的BlockMode设成bmNonBlocking

[T_Y890803]

[Quote=引用 1 楼 的回复:]
Tcpclient的BlockMode设成bmNonBlocking
[/Quote]
这个还没有试过 请问下这个属性的作用是什么

[T_Y890803]

[Quote=引用 3 楼 的回复:]
直接ReceiveLn就行了吧，不用WaitForData吧？
[/Quote]
直接ReceiveLn也不行

[s11ss]

直接ReceiveLn就行了吧，不用WaitForData吧？

[T_Y890803]

[Quote=引用 1 楼 的回复:]
Tcpclient的BlockMode设成bmNonBlocking
[/Quote]
改了这个之后连接不上服务器

[fsym2000]

以下可以彻底解决你的问题，有数据才用 TcpClient1.Receiveln,否则会一直等下去 if TcpClient1.WaitForData(2000) then begin TcpClient1.Receiveln; end;