怪事:clientsocket1的问题, 为什么要加showmessage语句才行? (50分)

  • 主题发起人 主题发起人 mo
  • 开始时间 开始时间
M

mo

Unregistered / Unconfirmed
GUEST, unregistred user!
sername:='192.168.0.183';
clientsocket1.Port:=5555;
clientsocket1.host:=sername;
ClientSocket1.active:=true;
showmessage(''); //<---- 为什么不加这句就没反应?加了后就可正常反回结果
clientsocket1.Socket.SendText('abc'+'myname');
 
连接需要时间。。。
 
还不知道有没有连接成功你就发送了。
 
用Sleep也可以,关键是要等Socket真的 连接好。
 
sleep(10);
看看行不行?
 
ClientSocket1.active:=true;
Sleep(2000); //加过这句,但也不行
clientsocket1.Socket.SendText('abc'+'myname');
 
要等连接事件
 
try
ClientSocket1.active:=true;
except
???
end;
 
if ClientSocket1.active=true then ClientSocket1.active:=false;
ClientSocket1.active:=true;
clientsocket1.Socket.SendText('abc'+'myname');
 
while not ClientSocket1.Socket.Connected do Application.ProcessMessages;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
926
SUNSTONE的Delphi笔记
S
I
回复
0
查看
688
import
I
后退
顶部