通过ICS（Internet组件套件）Delphi发送记录

我想将记录从客户端发送到服务器 我有记录

PIPCDataPhone = ^TIPCDataPhone;                        
TIPCDataPhone = record                                     
  cmd: string[15];                                       
  Mode: Integer;                                          
end;

我想使用TCP协议将该记录发送到服务器

---

谢谢

本文重点介绍Indy组件套件，但请看这里的原理

基本上，您需要将记录写入套接字缓冲区，告诉它它有多大。 然后在接收端，接收发送的字节数并将其转换为记录类型

试一试

但在这种情况下，您必须管理发送的数据和内存

TClientSocket.socket.sendstream