IdTCPClient中memorystream 的接收问题！急+郁闷！一晚上没折腾出来！(indy9)

来源：http://topic.csdn.net/t/20041111/00/3541598.html

  

idTCPClient中memorystream 的接收问题！急+郁闷！一晚上没折腾出来！

  

  ms:   Tmemorystream;   

  
  Server端：  
  AThread.Connection.WriteStream(ms,true,true);  
   
  Client端：  
  IdTCPClient1.ReadStream(ms,   -1,   True);  
   
  为什么Client端停在这行就不动了   ？  
  我用wpe查看   数据已经过来了！  
   
  这里是不是必须判断MS的长度？  
  测试了几种参数都是阻塞到这就完了！搜索了一下也没找到答案！  
  那位给个例子     郁闷死了。。。。  

---

如果是没有断开的情况你在客户端read的，把第三个参数设置为true的话，第二个参数设置为你传输stream的大小。  
   
  可以这样修改：  
  Server端：  
  AThread.Connection.WriteInteger(ms.size);     //先发送大小；  
  AThread.Connection.WriteStream(ms,true,true);  
   
  Client端：  
  size   :=   IdTCPClient1.ReadInteger;   //先读取大小。  
  IdTCPClient1.ReadStream(ms,   size   ,   False);  

 

---

 

还有一个方法是，不发送大小，客户端读取buffer的大小，但是我没有试验成功。楼主可以试试。  
   
  Server端：  
  AThread.Connection.WriteStream(ms,true,true);  
   
  Client端：  
  size   :=   IdTCPClient1.InputBuffer.Size;   //先读取大小。  
  IdTCPClient1.ReadStream(ms,   size   ,   False);

 

---

 

在服务端发送完毕后，关掉连接，客户端的ReadStream就会返回(不然就会停在那里，一直等待读取，当然指定流的长度也是一样的道理)。

 

---

 

Server端：  
  AThread.Connection.OpenWriteBuffer;  
  AThread.Connection.WriteStream(ms,true,true);  
  AThread.FlushBuffer;  
  AThread.Connection.CloseWriteBuffer;  
   
  Client端：  
  IdTCPClient1.ReadStream(ms,   -1,   False);  
   
  酱紫……

 

---

 

如果是断开的情况，用   WGYKING(修罗是谁？！)   的方法可以，  
   
  不断开还是要先接收大小。

 

---

 

定义如下：  
  type  
      ARecord   =   packed   record  
          Command   :   Integer;  
          Content   :   String[30];  
      end;  
   
  var  
      CommBlock   :   ARecord;  
   
  服务端：  
  procedure   TForm1.IdTCPServer1Exception(AThread:   TIdPeerThread;  
      AException:   Exception);  
  var  
      ms   :   TMemoryStream;  
  begin  
      ms   :=   TMemoryStream.Create;  
      try  
          CommBlock.Command   :=   4003;  
          CommBlock.Content   :=   'Test   ReadStream';  
          ms.WriteBuffer(CommBlock,   sizeof(CommBlock));  
   
          AThread.Connection.WriteInteger(ms.Size);       //先发送大小  
          AThread.Connection.OpenWriteBuffer;  
          try  
              AThread.Connection.WriteStream(ms);  
              AThread.Connection.CloseWriteBuffer;  
          except  
              AThread.Connection.CancelWriteBuffer;  
          end;  
      finally  
          FreeAndNil(ms);  
      end;  
  end;  
   
  客户端：用timer控件读取，Interval=500,也可以用线程。  
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  var  
      ms   :   TMemoryStream;  
      size   :   Integer;  
  begin  
      if   not   IdTCPClient1.Connected   then   Exit;  
      ms   :=   TMemoryStream.Create;  
      try  
          size   :=   IdTCPClient1.ReadInteger;         //先读取大小。  
          if   size   =   0   then  
          begin  
              FreeAndNil(ms);  
              Exit;  
          end;  
          IdTCPClient1.ReadStream(ms,   size,   True);  
          ms.Position   :=   0;  
          ms.ReadBuffer(CommBlock,   sizeof(CommBlock));  
          RichEdit1.Lines.Add(IntToStr(CommBlock.Command));  
          RichEdit1.Lines.Add(CommBlock.Content);  
      finally  
          FreeAndNil(ms);  
      end;  
  end;  
   
  其它的设置你自己应该能够搞定，如果还不可以，留下mail我把这个例子发给你。

  

注意：  
   
  服务端：  
   
          ms.WriteBuffer(CommBlock,   sizeof(CommBlock));  
   
          //AThread.Connection.WriteInteger(ms.Size);       //先发送大小  
          AThread.Connection.OpenWriteBuffer;  
          try  
              AThread.Connection.WriteStream(ms,   True,   True);     //和上面的区别,如果这样，上面发送大小就不要了。  
              AThread.Connection.CloseWriteBuffer;  
          except  
              AThread.Connection.CancelWriteBuffer;  
          end;  
      finally  
          FreeAndNil(ms);  

 

---

 

搞成这才正常接收为什么？   IdTCPClient1.ReadStream(ms,   Size,   False);