内存流保存网页文件

procedure TForm1.btn1Click(Sender: TObject);
  var
    mem:TMemoryStream;
    s:string;
    txt:TextFile;
begin
  mem := TMemoryStream.Create;
  idhtp1.Get('地址我不给出来了，费事别人笑话',mem);
 { mmo1.Text := idhtp1.Get('http://www.aizhan.com/baidu/?s=kan.weibo.com&sortType=position');
 如果这样写的话，有时只能获取到一部分的源代码。用流就可以全部获取。
  }
  mem.SaveToFile('F:\2.txt');
  mem.Free;
 // mmo1.Lines.LoadFromFile('F:\2.txt');
  AssignFile(txt,'F:\2.txt');
  Reset(txt);
  mmo1.Clear;
  while not Eof(txt) do
  begin
    Readln(txt,s);
    mmo1.Lines.Add(s);
  end;
end;

//很奇怪，是网页的原因吧。Get到源代码只有一部分。通过常规 mmo1.Lines.LoadFromFile('F:\2.txt'); 也只显示一部分源码。真搞不懂，只能用上面的方法了。

delphi 内存流 操作 http://blog.csdn.net/fkedwgwy/article/details/4069892

Delphi TextFile读取文本文件 http://www.delphitop.com/html/wenjian/1088.html