怎样读取Internet网页的源文件？

High   hand们，小妹不知怎样使用Delphi5读取某个网页的源文件，请指导。 问题点数：29、回复次数：6Top

1 楼inprises（何许）回复于 2001-06-13 12:44:00 得分 0

我这儿有方法，不过你的分好象少了一点，等会我把答案给你！Top

2 楼inprises（何许）回复于 2001-06-13 13:15:00 得分 29

方法1、  
  使用控件TWebBrowser控件浏览网页你应该知道怎么做了吧！我就不多说这个了。  
  在你的这个使用了控件TWebBrowser的工程中，选择菜单‘Project’，选择‘Import   Type   Library...’,然后选择‘MicroSoft   HTML   Object   Library(Version   x.x)’,再install...（安装过程会有点长）  
  之后会生成一个MSHTML_TLB.pas,这就作好了完全准备工作。接下来就简单了：  
   
  在你的单元的uses部分加上   MSHTML_TLB,在程序的适当位置添加如下代码：  
   
  var  
  xxxx:IHtmlDocument2;  
  begin  
      xxxx   :=   WebBrowser1.Document   as   IHtmlDocument2;//WebBrowser1为你所用的TWebBrowser控件  
      //如果采用Memo1来显示源代码，则：  
      Memo1.Lines.Add(xxxx.Body.outHtml);  
  end;  
   
  方法2、  
  简单一点，直接用控件THtml就可以了，不要告诉我控件的FastNet页没有这个控件，即使没有，那肯定是你没有装。Top

3 楼cokegirl（竹儿）回复于 2001-06-13 13:17:00 得分 0

Wow,   inprises,   it's   mind   my   the   site   http://www.inprises.com,   great!  
  小妹我使用的是默认的分数，我马上把分数提高到我能给的最高分-as   I   can。  
  waiting   for   your   answer.Thanx.Top

4 楼inprises（何许）回复于 2001-06-13 13:42:00 得分 0

问题解决没有？  
  http://www.inprises.com   是谁申请的？Top

5 楼inprises（何许）回复于 2001-06-13 13:57:00 得分 0

上面方法1的最后一句应该是Memo1.Lines.Add(xxxx.Body.outerHTML）Top

6 楼cokegirl（竹儿）回复于 2001-06-13 14:11:00 得分 0

OK，问题解决了!  
  Thanx   a   lot!Top

相关问题

• 控件
• 网页
• twebbrowser
• inprises
• memo
• xxxx
• 方法
• 使用
• 没有

• 帖主：cokegirl
• inprises

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载