delphi - 使用 INDY 发送记录

Question

如何在 Indy TIDTCPServer(版本 10.5.8)中发送记录

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

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

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

IdContext.Connection.IOHandler.?????

Answer 1

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

检查此示例。

uses
  IdGlobal;

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