您的位置：程序门 -> delphi -> windows sdk/api

请教不通过网页原代码获取网页内所有url的方法     注意是不通过网页原代码     最好有现成的函数或者组件



[收藏此页] [打印本页]选择字色：默认灰色红色黄色绿色橙色紫色蓝色褐色墨绿深蓝赭石粉绿淡绿黄灰翠绿综红砖红淡蓝暗红玫瑰红紫红桔黄军黄烟灰深灰灰蓝背景色：默认黑色红色黄色绿色橙色紫色蓝色褐色墨绿深蓝赭石粉绿淡绿黄灰翠绿综红砖红淡蓝暗红玫瑰红紫红桔黄军黄烟灰深灰灰蓝字体：[大][中][小]



请教不通过网页原代码获取网页内所有url的方法 注意是不通过网页原代码 最好有现成的函数或者组件
发表于：2008-01-03 10:32:48 楼主 请教不通过网页原代码获取网页内所有url的方法           注意是不通过网页原代码           最好有现成的函数或者组件

发表于：2008-01-03 11:23:221楼 得分:0 巧妇难为无米之炊

发表于：2008-01-03 15:43:112楼 得分:0 //可以枚举所有的网页链接，然后循环取出即可。 //下面是代码： //已经调试通过，注意：要在uses里引用mshtml单元。 //效果图见下图： var     doc:   ihtmldocument2;     all:   ihtmlelementcollection;     len,   i:   integer;     item:   olevariant; begin     doc   :=   webbrowser1.document   as     ihtmldocument2;     all   :=   doc.links;           len   :=   all.length;     for   i   :=   0   to   len-1   do     begin             item   :=   all.item（i,   varempty);               if   listbox.indexof（item.href)   =   -1       then             begin                     listbox1.items.append（item.href);             end;     end; end;

发表于：2008-01-03 15:45:263楼 得分:0 补充，图片如下：

发表于：2008-01-03 15:49:184楼 得分:0 var         doc:       ihtmldocument2;         all:       ihtmlelementcollection;         len,       i:       integer;         item:       olevariant; begin         doc       :=       webbrowser1.document       as           ihtmldocument2;         all       :=       doc.links;                     len       :=       all.length;         for       i       :=       0       to       len-1       do         begin                         item       :=       all.item（i,       varempty);                             if       listbox.indexof（item.href)       =       -1               then                         begin                                         listbox1.items.append（item.href);                         end;         end; end;