|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/2 17:09:08 |
标题: |
|
加入我的收藏 |
楼主: |
procedure TForm1.Button1Click(Sender: TObject); var str1:string; begin clientsocket1.Port:=5555; clientsocket1.host:='172.88.3.23'; try clientsocket1.active:=true; str1:=inputbox('建立连接','请输入昵称','小张'); clientsocket1.Socket.SendText('昵称@'+str1); except showmessage('连接失败'); end; end; 这个程序我能顺利的登录服务器端,而下面的为什么要点两次按钮才能登录 procedure TForm1.Button1Click(Sender: TObject); var str1:string; begin clientsocket1.Port:=5555; clientsocket1.host:='172.88.3.23'; try clientsocket1.active:=true; //str1:=inputbox('建立连接','请输入昵称','小张'); clientsocket1.Socket.SendText('昵称@'+'小张'); except showmessage('连接失败'); end; end;
----------------------------------------------
因为笨,所以问! |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/3/2 17:15:52 |
1楼: |
str1:=inputbox('建立连接','请输入昵称','小张');
猜想 这句话起到 缓冲连接服务器的作用!
----------------------------------------------
|
作者: |
|
2004/3/3 11:27:32 |
3楼: |
那有没有办法叫它直接连上去呢?
----------------------------------------------
因为笨,所以问!
|
作者: |
|
2004/3/3 12:24:51 |
4楼: |
sleep(1000);缓冲一下
----------------------------------------------
-
|
|