转老赵同志的博客：Indy10记录及其他类型的传送

idTcpClient及IdTcpServer传送记录时的方法：

先将记录转换成TBytes，

使用RawToBytes及BytesToRaw函数。

Type
    TMyData＝record
      id:Integer;
      Name:Array[0..20] of Char;
      Sex:Array[0..10] of Char;
      Age:Byte;
      Address:Array[0..256] of Char;
      UpdateTime:double;
   end;

 客户端：

procedure SendMsg;
var
SendData:TMyData;
begin
SendData.ID:=10;
StrPCopy(SendData.Name,'Wyatt');
StrPCopy(SendData.Sex,'男');

SendData.age:=25;
StrPCopy(SendData.Address,'江苏省');

SendData.InCom:=S.InSpeed;
SendData.UpdateTime:=Now;
   MClient.IOHandler.Write(RawToBytes(SendData,SizeOf(SendData)););
end;

服务端：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);;
var
ReadData:TMyData;

buf：TBytes;
begin

SetLength(buf, 0);
AContext.Connection.IOHandler.ReadBytes(buf, SizeOf(ReadData));
BytesToRaw(buf, ReadData, SizeOf(ReadData));

with Memo1.line do

begin
     Add('ID:'+Inttostr(ReadData.Id));
     Add(Name:'+StrPas(ReadData.Name));
     Add('Sex:'+Inttostr(ReadData.sex));
     Add('Age:'+Inttostr(ReadData.age));
     Add('UpdateTime:'+DateTimeToStr(ReadData.UpdateTime));
  end; 
end;

转载于:https://www.cnblogs.com/wxy8/archive/2011/06/16/2082679.html