客户端往服务器发送一个登陆命令，然后一直等着，直到服务器返回成功或失败的命令。谁能给段程序？

Question

如题。

Answer 1

to 楼主：
老兄研究的问题有点复杂了吧。
考虑用socket控件。
客户端：
//连接时
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    socket.SendText('UserName,PassWord');//发送用户名和密码
    form1.Enabled :=false;//禁用窗口
end;
//监视接收消息
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
     if socket.ReceiveText = 'OK' then //服务器端返回确认信息
     form1.Enabled := true;//启用窗口
end;
服务器端：
主要是处理接收到的数据，并发送返回信息。可以用字符串操作函数，此处略。
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
    //字符串处理函数
    if 字符串处理函数(socket.ReceiveText) then //此函数根据自己需要来写，返回值为Boolean型
    socket.SendText('OK');
end;说明：以上代码随心所作，仅供参考，未在delphi中实际测试。

Answer 2

服务器端是SOCKET ＳＥＲＶＥＲ吗？

Answer 3

弹出一个模态窗口不就行了！hoho