delphi - 为什么 LoadFromStream 在 TIdHTTP.Get 之后不显示任何内容？

Question

我刚开始遇到 Indy 问题。由于一些奇怪的原因，即使是这个非常基本的过程也不起作用:

procedure TForm1.Button1Click(Sender: TObject);
var ID: TIdHTTP;
    ms: TMemoryStream;
begin
  ID:=TIdHTTP.Create();
  ms:=TMemoryStream.Create;

  ID.HandleRedirects:=true;

  ID.Get('http://www.google.com',ms);
  Memo1.Lines.LoadFromStream(ms);
end;

Memo1 中没有添加任何内容。 SizeOf(ms) 返回 4。

我什至重新安装了 Indy，仍然没有。我的项目以前确实有效，但现在不从任何页面下载任何内容。我想知道，这是什么问题？

Answer 1

试着打电话

MS.Position := 0; 

之前

Memo1.Lines.LoadFromStream(ms);

此外，可以通过像这样调用“Size”属性来找出流的大小

ShowMessage('size of stream = ' + IntToStr(ms.size) + ' bytes');