| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265975
建立时间:2005年6月6日 |
| |
|
 [delpih编程]提取网页中的所有链接、点击第 n 个链接 -转贴
软件技术
吕向阳 发表于 2009/3/12 11:52:16 |
| procedure TForm1.FormCreate(Sender: TObject);beginWebBrowser1.Align := alTop;WebBrowser1.Navigate('http://del.cnblogs.com');ListBox1.Align := alClient;Button1.Caption := '提取网页所有链接地址';Button2.Caption := '提取网页所有链接文本';Button3.Caption := '模拟点击指定的链接';end;{提取网页所有链接地址}procedure TForm1.Button1Click(Sender: TObject);vari: Integer;beginListBox1.Clear;for i := 0 to WebBrowser1.OleObject.document.anchors.Length - 1 doListBox1.Items.Add(WebBrowser1.OleObject.document.anchors.item(i).href);end;{提取网页所有链接文本}procedure TForm1.Button2Click(Sender: TObject);vari: Integer;beginListBox1.Clear;for i := 0 to WebBrowser1.OleObject.document.anchors.Length - 1 doListBox1.Items.Add(WebBrowser1.OleObject.document.anchors.item(i).innerText);end;{模拟点击指定的链接}procedure TForm1.Button3Click(Sender: TObject);begin// WebBrowser1.OleObject.document.anchors.item(0).click; {假如是第一个链接}if ListBox1.ItemIndex <> -1 thenWebBrowser1.OleObject.document.anchors.item(ListBox1.ItemIndex).click;ListBox1.Clear;end; |
|
|