高分求解：如何实现在程式中自动打开一个Web页面，并将Web页面的内容自动存为.txt文件？

Question

如何实现在程式中自动打开一个Web页面，并将Web页面的内容自动存为.txt文件？

Answer 1

首先使用TWebbrowser组件的Navigator方法打开网页

Answer 2

代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('www.applevb.com');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  memo1.Text := (WebBrowser1.document as IHTMLDocument2).Body.Innertext;
end;

Answer 3

运行上面的代码首先在Unit1中引用MSHTML，然后在窗体中加入一个TWebbrowser控件，一个TMemo控件和两个TButton控件
点击Command1浏览网页，点击Command2在Memo中显示网页内容。

Answer 4

TechnoFantasy(www.applevb.com) 
说的对，：）