请教TcpServer1.Accept接受问题！如何使用ClientSocket.ReceiveBuf()显示啊在线等

oicq111 2012-05-17 11:27:19

由于s:=ClientSocket.Receiveln;是接受字符串的，对方发过来的是流，请问用ClientSocket.ReceiveBuf()怎么显示的，如何使用，详细点！谢谢

...全文

379 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

oicq111 2012-05-19

打赏
举报

楼上老师请教如下问题：
一协议：通过SOCKET通信：在DELPHI6下接受通过解码可以显示，接口方配合不当，一时发送老是报错，
采用TCP长连接，每个消息包含：1、二进制包头；2、包内容（xml格式）。
HeardFlag(int) Length(int) Sequence Ver Enc Rec
4 4 4 1 1 2

HeardFlag: 协议标识，固定为KSF$，4个字节。
Length: 消息长度，包头和包内容xml体的总长度，4个字节。
Sequence: 消息序号，4个字节。
Ver: 协议版本，1个字节，当前版本序号1。
Enc: 是否加密，1个字节，当前版本不加密0。
Rec: 保留字段，2个字节。
请教如何发送，如何把10进制的包头+XML内容长度放在4字节里显示，曾做10-16进制转换等都不对，可能理解错误，高手指点下如何转换，发送！在线等立马散分

oicq111 2012-05-18

打赏
举报

楼上领导可能具体点下，给个例子，加分顶你！

kaikai_kk 2012-05-18

打赏
举报

保存成文件:f.SaveToFile('d:\2.xml');
或Memo1.Lines.SaveToFile('d:\2.xml');

kaikai_kk 2012-05-18

打赏
举报

帮你写个Demo,同一个工程，既是服务器又是客户端，自己在设计期设置IP+端口
可能不是你要的结果，但自己可以根据此思路改成合适的,道理都是一样

{f是内存流全局变量}

var

  f:TMemoryStream;



{接收,并显示内存在Memo1中}

procedure TForm1.TcpServer1Accept(Sender: TObject;

  ClientSocket: TCustomIpClient);

begin

  ClientSocket.ReceiveBuf(f,Sizeof(f));

  Memo1.Lines.LoadFromStream(f);

end;



{内存流读入数据，并发送}

procedure TForm1.Button2Click(Sender: TObject);

begin

  f.LoadFromFile('D:\1.xml');

  TcpClient1.SendBuf(f,Sizeof(f));

end;



{打开Socket}

procedure TForm1.Button1Click(Sender: TObject);

begin

  TcpServer1.Active:=True;

  TcpClient1.Active:=True;

end;



{创建内存流}

procedure TForm1.FormCreate(Sender: TObject);

begin

  f:=TMemoryStream.Create;

end;



{关闭Socket和释放内存流}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  TcpClient1.Active:=False;

  TcpServer1.Active:=False;

  f.Free;

end;