delphi - 使用INDY发送记录

我如何在Indy TIDTCPServer（版本10.5.8）中发送记录

先前版本的许多示例向我们展示了

AThread.connection.WriteBuffer(MyRec,SizeOf(MyRec),true); // myrec is a record

但是indy 10.5.8中的equal命令是什么

IdContext.Connection.IOHandler.?????

最佳答案

使用RawToBytes函数将缓冲区转换为TIdBytes（这是接受Write方法的类型）

检查此样本。

uses
  IdGlobal;

var
 Buffer : TIdBytes;
 Myrec  : TMyrec;
begin
  Buffer := RawToBytes(Myrec, SizeOf(TMyrec));
  AContext.Connection.IOHandler.Write(Buffer);
end;