|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/3 11:29:18 |
标题: |
下面两个小程序为什么有区别? 有什么办法叫它直接连上去呢? |
浏览:1073 |
|
加入我的收藏 |
楼主: |
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;
----------------------------------------------
因为笨,所以问! |
|