我刚开始遇到 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,仍然没有。我的项目以前确实有效,但现在不从任何页面下载任何内容。我想知道,这是什么问题?
最佳答案
试着打电话
MS.Position := 0;
之前
Memo1.Lines.LoadFromStream(ms);
此外,可以通过像这样调用“Size”属性来找出流的大小
ShowMessage('size of stream = ' + IntToStr(ms.size) + ' bytes');
关于delphi - 为什么 LoadFromStream 在 TIdHTTP.Get 之后不显示任何内容?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5598594/