为什么在TIdHTTP.Get之后LoadFromStream没有显示任何内容？

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');