if clientsocket1.Active=true then
clientsocket1.Active:=false;
with clientsocket1 do
begin
host:='192.168.1.110';
port:=1045;
active:=true;
socket.SendText('654');
end;
如上程序,为什么active最后还是false?
clientsocket1.Active:=false;
with clientsocket1 do
begin
host:='192.168.1.110';
port:=1045;
active:=true;
socket.SendText('654');
end;
如上程序,为什么active最后还是false?
解决方案 »
- 线程与消息的问题
- DELHI读取C#webservice问题?
- 多了一个三角,散分
- 紧急求救,关于模式转换,来者有分,谢谢各位了
- 如何才能使Form上的控件与窗体同步变化,保持相对位置不变呢?
- 100分请教实现播放列表的思路?
- 如何在tform的oncreate事件里实现canvas操作? (如画一条直线,在ONCLICK事件可以的,可是...)
- 现在的超市连锁,可以完全用delphi 编程吗?
- 高分求答案!!!本人使用pardox数据库,在向数据库中存储数据时,如果掉电那么数据就会丢失!而且之前十几分钟甚至几十分钟存储进数据库的数据也会丢失!!!这是真的!!我该怎么办!救救我呀!
- 请教webbrowser组件的goback的出错怎么编写
- 为什么这个SQL语句无法查询出数据?
- 高分重谢,哪位大虾能够帮忙解决"Operation cannot be performed while executing asynchronously 1240660"的问题。
clientsocket1.Active:=true;这儿并不是设置一个变量的值.
实际是调用 clientsocket1.SetActive....
要等到clientsocket 连接成功,Active才会变为TRUE大致可以按下面这样写.
....
active:=true;
while not active do
Application.processMessages;//循环体里你可以加上超时判断退出循环.
socket.SendText('654');
.....