取网页内容成文本

Question

请问怎么通过输入的URL来取得这个网页的内容并可以保存为文本文件？

Answer 1

indy  idhttpvar
   Stream: TStringStream;
begin
   Stream := TStringStream.Create('');
   idHttp1.Get('http://www.163.com',Stream);
   Memo1.Lines.add(Stream.DataString);
   Stream.Free;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    Stream: TFileStream;
begin
    Stream := TFileStream.Create('C:\abc.txt',fmCreate);
    IdHTTP1.Get('http://www.163.com',Stream);
    Stream.Free;
end;

Answer 3

listening & learning......

Answer 4

memo1.lines.loadformfile('c:\a.htm');
memo就可以看到它的html源码了。