delphi - 来自 IOHandler.ReadStream 的 Memo1.Lines.LoadFromStream

Question

我试图将发送的文本文件显示到 memo.lines，而不将其保存到磁盘

来自服务器

  try
  Ms := TMemoryStream.Create;
  Ms.LoadFromFile('update.txt');
  Ms.Position := 0;

  AContext.Connection.IOHandler.LargeStream := True;
  AContext.Connection.IOHandler.Write(Ms, 0, True);
  finally
    Ms.Free;
  end;

致客户...我不知道如何在客户端中执行此操作

  try
   Ms := TMemoryStream.Create;
   Ms.Position := 0;

   IdTCPClient1.IOHandler.LargeStream := True;
   IdTCPClient1.Connection.IOHandler.ReadStream(Ms, -1,false);

 finally
   Memo1.Lines.LoadFromStream(Ms);
   Ms.Free;
 end;

如果可能的话，任何人都可以帮助我如何完成这项工作吗？

Answer 1

您的代码很好，您只是忘记在调用 Memo 的 LoadFromStream() 方法之前将流的 Position 属性重置回 0:

IdTCPClient1.Connection.IOHandler.ReadStream(Ms, -1,false);
Ms.Position := 0; // <-- add this
Memo1.Lines.LoadFromStream(Ms);