在DELPHI下,SOCKET编程,READ,WRITE的问题 (谢谢大家,进来看看也好)

                            
两程序通讯,用了SocketClient,   SocketServer   两控件:   
   
    用客户端的   SocketClient.SendStream(SStrem);  
   
    此时,服务器端   SocketServer.OnClientRead   事件,它会因SStrem  
  的大小而触发一次或多次。  
   
  问题:我实在不知我要如何来获得READ来的数据呀,我快调试风了,下面是我写的最有可能的事件,但,老出错,,神啊,救救我吧…………  
   
  var  
      Buf   :   Pchar;  
  begin  
      Buf   :=   AllocMem(Socket.ReceiveLength);  
      try  
          Socket.ReceiveBuf(Buf^,   Socket.ReceiveLength);  
          Str.Write(Buf^,   StrLen(Buf));   //Str   是一个全局的   TStream.  
      except  
      end;  
      FreeMem(Buf);  
  end;  
   
   
   
 

查看回复