WinSocket网络通讯问题！急！！

Server端：  
  procedure   TServerThread.ClientExecute;  
  var  
        Stream:   TWinSocketStream;  
        sSendText:   string;  
        procedure   FailProcess;  
        begin  
            if   Assigned(ClientSocket)   then  
            begin  
                if   ClientSocket.Connected   then  
                    ClientSocket.Close;  
            end;  
            Terminate;  
      end;  
  begin  
      inherited   FreeOnTerminate   :=   True;  
      while   (not   Terminated)   and   ClientSocket.Connected   do  
      begin  
          Stream   :=   TWinSocketStream.Create(ClientSocket,giWaitTime);  
          try  
                try  
                      if   Stream.WaitForData(giWaitTime)   then      
                      begin  
                          ....//处理操作  
                          ClientSocket.SendText(sSendText);  
                      end  
                      else  
                          FailProcess;  
                except  
                    on   E:   exception   do  
                    begin  
                            Memo1.lines.add('监听过程中出现异常：'   +   E.Message);  
                            Exit;  
                    end;  
                end;  
          finally  
                if   not   Terminated   then  
                    FailProcess;  
                Stream.Free;  
          end;  
      end;  
  end;  
  Client端：  
  procedure   TFrm_Main.BitSendClick(Sender:   TObject);  
  var   st:   string;  
  begin  
      ClientSocket1.Address   :=   Trim(Edt_ip.Text);  
      ClientSocket1.Port   :=   StrtoInt(Edtport.Text);  
      if   not   ClientSocket1.Active   then  
            ClientSocket1.Active   :=   True;  
   
      st   :=   MemoSend.Text;  
      ClientSocket1.Socket.SendText(st);  
  end;  
  问题：每次请求服务，client端请求二次server端才能接收到消息。单步跟踪后发现：第一次请求每次到“if   Stream.WaitForData(giWaitTime)   then”就会执行失败，第二次就成功了！请高手指点如何解决？？谢了！ 问题点数：100、回复次数：6Top

1 楼godear（）回复于 2005-05-14 13:00:34 得分 20

这个样,   没法找问题Top

2 楼cgfhz（→.Net^_^）回复于 2005-05-14 13:51:19 得分 0

//客户端为非阻塞式  
  procedure   TFrm_Main.ClientSocket1Read(Sender:   TObject;  
      Socket:   TCustomWinSocket);  
  begin  
      Memo1.Lines.Add(FormatDatetime('YYYYMMDD',date)+':'+Socket.ReceiveText);  
      ClientSocket1.Active   :=   False;  
  end;Top

3 楼cgfhz（→.Net^_^）回复于 2005-05-15 22:22:35 得分 0

哎~没人碰到过这个问题吗？还是我没说清楚？？Top

4 楼cgfhz（→.Net^_^）回复于 2005-05-16 14:35:37 得分 0

问题解决，把客户端发送的请求信息写到ClientSocket1Write事件中去就OK了！怎么会没人知道？郁闷~~Top

5 楼sandyboy（雨霆）回复于 2005-05-16 16:09:03 得分 30

没做过网络通讯的项目。学习。。。。。。Top

6 楼pdbird（老巢）回复于 2005-05-17 13:24:36 得分 50

是因为网络响应时间没有跟上的原因吧。  
  Top

相关问题

• clientsocket
• failprocess
• giwaittime
• stream
• 问题
• begin
• terminated
• procedure
• then

• 帖主：cgfhz
• godear
• sandyboy
• pdbird

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载