delphi 中 如何调用浏览器 打开一个网页，并且保存网页的内容为txt文档

Question

delphi 中 如何调用浏览器 打开一个网页，并且保存网页的内容为txt文档

Answer 1

不好意思 我已经解决了现在 就是：
在uses加上ShellAPI,在事件中写以下代码:   
    
  ShellExecute(0,'open','http://www.SINA.com',nil,nil,sw_ShowNormal);
现在我想求教的是 如何在delphi中实现保存www.sina.com的网页为txt文本格式呢？麻烦了……

Answer 2

使用WebBrowser比較方便WebBrowser1.Navigate('http://www.sina.com.cn');
s:=WebBrowser1.OleObject.document.body.innerHTML;s就是你想要的文本。保存下就可以

Answer 3

VAR
  IDHTTP：ＴＩＤＨＴＴＰ；
　Ｓ：　STRING;
ＢＥＧＩＮ
　WITH TIDHTTP.CREATE(SELF) DO
  TRY
    S := IDHTTP.GET(URL.....);//你要的在这
  FINALLY
    FREE;
  END
END;