关于 Indy 的发送与接收 及 不定长度流的见解

Delphi2010 的Indy10中各种IOHandler提供了相应的ReadXXX 与 WriteXXX方法。

在一个Client / Server 的通迅中。我们会用到以上方法，当我们写一个流时，我们需要关心的是流的大小。一般做法是先把流大小发送过去，在返回准备好之后再发送流。

下面做一个假设：在一个连接的基础上

Server (1) 发送流大小，等待返回

Client  (2)读出流大小，发送 准备好

Client  (2)要求发送其它命令

这时 (2) 这一步骤，若要求发送其它命令在前的话，Server 读到的就不是准备好命令了。

为了避免或者说为了说明一次性命令内容，我们可以使用结构来完成 Server 的要求，即发送一个带命令的流。

为了以上目的。我们需要定义一个结构

    TCommandContext = Record

          Command:string[50];

          StreamSize:integer;

     end;

这样命令放入 Command 中，后续流的大小放入StreamSize里。

一、读取

 

var
  Context:TCommandContext;
  ContextStream,FReadableStream:TMemoryStream;
begin

    ContextStream:=TMemoryStream.Create;
    FReadableStream:=TMemoryStream.Create;
    FTCPClient.IOHandler.ReadStream(ContextStream,SizeOf(Context),False);//读取流的结构部分
    ContextStream.Position:=0;
    ContextStream.Read(Context,SizeOf(Context));//解出结构
//    Context.Command
    FTCPClient.IOHandler.ReadStream(FReadableStream,Context.StreamSize,False);//根据大小读取剩下的流

..
end;

 

二、写入

 

var
  jpg:TJPEGImage;
  JpgStream,SendStream:TMemoryStream;
  Context:TCommandContext;
begin

    jpg:=TJPEGImage.Create;
    JpgStream:=TMemoryStream.Create;
    SendStream:=TMemoryStream.Create;
    try
      jpg.Assign(FBlockBMP);
      jpg.CompressionQuality:=100;
      jpg.Compress;
      jpg.SaveToStream(JpgStream);
      JpgStream.Position:=0;

      with Context do
      begin
        StreamSize:=JpgStream.Size;
        Command:='test command';
      end;

      SendStream.Write(Context,SizeOf(Context));
      SendStream.CopyFrom(JpgStream,JpgStream.size);

      FIOHandler.Write(SendStream);
.
end;

 

需要注意的是写入流时用到的是 Write方法，不需要加Stream.Size，不然你就会得到一个出错提示。