该DEMO演示，如何在客户端与服务端之间直接传递TStream对象，让你专注于处理数据逻辑，可以忽略处理网络传输间粘包的问题。

上面由服务端向所有的客户端推送一个消息TMemoryStream对象（该对象为字符串数据)。

 

代码解释：

procedure TfrmMain.actPushMsgExecute(Sender: TObject);var  lvList:TList;  i: Integer;  lvStream:TMemoryStream;  s:AnsiString;begin  lvList := TList.Create;  try    lvStream := TMemoryStream.Create;    try      s := edtMsg.Text;      lvStream.Write(s[1], Length(s));      // 获取所有的在线客户端列表，      FTcpServer.getOnlineContextList(lvList);      // 循环推送到所有的客户端去

for i := 0 to lvList.Count-1 do      begin        //直接推送TMemoryStream对象
     <内部试用编码器将tstream编码成协议格式，然后发送>

TIOCPClientContext(lvList[i]).writeObject(lvStream);      end;    finally      lvStream.Free;    end;  finally    lvList.Free;  end;end;

上面为推送按钮的代码

 

constructor TfrmMain.Create(AOwner: TComponent);begin  inherited Create(AOwner);  FTcpServer := TIOCPConsole.Create(Self);  FTcpServer.createDataMonitor;  FTcpServer.OnDataObjectReceived := OnRecvObject;  // register decoder and encoder class  FTcpServer.registerCoderClass(TIOCPStreamDecoder, TIOCPStreamEncoder);  TFMMonitor.createAsChild(pnlMonitor, FTcpServer);end;

上面注册编码和解码器，这样可以在接受数据时和发送数据时，处理对象的转换工作，同时赋值了接收对象事件。

 

onRecvObject，如果解码成功一个对象时，会触发一次事件

procedure TfrmMain.OnRecvObject(pvClientContext: TIocpClientContext;  pvObject: TObject);begin  pvClientContext.writeObject(pvObject);end;

//上面代码直接把对象推送回客户端。

 

 

客户端代码类似，可以下载socket-coder\StreamCoder查看完整源码。