求助:有没有简洁的方法获取网页中的所有链接?? 有没有一种简洁的方法,像Fast Browser一样能把一个网页的所有链接分析出来??? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 对于网页中的连接,大多数都是如下格式<a href='网址'>连接名</a>你可以分析格式,得到所有的连接。 是用WebBrowser吗?是的话见下面例子:uses mshtml;procedure TForm1.Button1Click(Sender: TObject);var elem: IHTMLElement; coll: IHTMLElementCollection; i: integer; url: string;begin coll := (WebBrowser1.Document as IHTMLDocument2).all; coll := (coll.tags('a') as IHTMLElementCollection); for i := 0 to coll.Length - 1 do begin // 循环取出每个url elem := (coll.item(i, 0) as IHTMLElement); url := Trim(string(elem.getAttribute(WideString('href'), 0))); ShowMessage(url); end;end; 如何在内存中创建TCanvas? 高手请进!文本中的数据好何排序呢?请给一个例子! 谁能提供delphi2005的相关资料 急急如律令 各位大侠:如何在RichEdit中实现文本行距设置? 打包问题,为什么打包后的程序总是提示"找不到数据库别名"?救急!!!!!!!!!!! 各位高手:关于在DLL中调用窗口的难点!! 请问怎么可以获得Dll的路径? 版主留青:奇怪的问题,删除数据出错.有代码.急,急,急. 第二次加分!! 如何实现ascii码与二进制码之间的转化?有函数吗? 这里能解决大家的实际问题 有c#和java,delphi是不是还有存在的必要
uses mshtml;
procedure TForm1.Button1Click(Sender: TObject);
var
elem: IHTMLElement;
coll: IHTMLElementCollection;
i: integer;
url: string;
begin
coll := (WebBrowser1.Document as IHTMLDocument2).all;
coll := (coll.tags('a') as IHTMLElementCollection);
for i := 0 to coll.Length - 1 do begin // 循环取出每个url
elem := (coll.item(i, 0) as IHTMLElement);
url := Trim(string(elem.getAttribute(WideString('href'), 0)));
ShowMessage(url);
end;
end;