具有自动查找Web页面上所有链接的网络浏览器

网学网为需要DELPHI的朋友们搜集整理了具有自动查找Web页面上所有链接的网络浏览器相关资料，希望对各位网友有所帮助!

 

WEB的应用已经深入到现在社会的方方面面，作为一个软件开发人员或其他技术人员，都有可能遇见在Internet上查询大量的资料和信息的情况，一般来说用的最多的就是WEB的搜索Engine。当我们使用它查出大量的资料链接后，还有可能遇到更多的链接，但要自己去看他们是否是链接，那确实是一件很麻烦的事情。这篇文章就是来讲，如何用Delphi的MSHTML_TLB.pas来开发一个具有自动查找Web页面上所有链接的简单网络浏览器。我是在IE5的环境下写的这个程序，当然它可以向下兼容，如IE4。2.关于MSHTML_TLB.pasMSHTML_TLB.pas是Deliphi里面自带的一个类。它的含义是Microsoft HTML对象库。它不能够包含在所有的工程或程序中，原因是它实在是太大了，整个文件的代码共有241，899l行，那么长。大小约有12M。下面我们来看看它是如何加入到程序中的。1．首先，我们打开Delphi，建立一个新的application。我把form1保存为MainFrm.pas，把application保存为FindLinks.dpr.2．要想实现IE 的功能我们就必须要使用Microsoft HTML对象库进行，我们采用TwebBrowser 控制在我们的form1。3．我们在private里面加入如下代码：FInternetExplorer: TInternetExplorer;procedure WebBrowserDocumentComplete‘;32. AnchorString := AnchorString + ‘ - ‘ +33. (HtmlElement as IHTMLAnchorElement).href;34. lstbxLinks.Items.Add(AnchorString);35. end;36. end;37.end;4．在button（btnFindLinks）加入Onclick 事件：1.// 在被浏览的web里面进行查询连接。2. FInternetExplorer.Navigate(edtURL.Text， EmptyParam， EmptyParam， EmptyParam， EmptyParam);从以上的程序里面我们可以看出它的原理了，实际上是很简单的，看过html原代码的人都知道，使网页产生连接的代码就是：a href="http://www.swun.edu.cn"b西南民族学院/b/a.我程序的原理就是通过截取href后面的字符串，并在"""号后面截止。然后把它保存为另外的字符串。然后通过TwebBrowser显示出来。最后让我们来编译这个程序，的却，编译它很费时间，因为编译多达241，899l行的MSHTML_TLB.pas，是一件很麻烦的事情。其中还包括多达20多个的warning错误，但请放心这是MSHTML_TLB.pas的问题，与其它程序无关。这样一个小型的查找Web页面上所有链接的简单网络浏览器就出现在我们面前。本程序在IE5.0和Delphi6下编译通过。