2012年2月22日

获得一个网页的所有的URL（WebBrowser）

摘要： //记得要引用MSHTMLprocedure TForm1.Button6Click(Sender: TObject);var Doc: IHTMLDocument2; Len: Integer; item: OleVariant; all: IHTMLElementCollection; I: Integer;begin Doc := WebBrowser1.Document as IHTMLDocument2; all := Doc.links; Len := all.length; for I := 0 to Len -1 do begin item :=... 阅读全文

posted @ 2012-02-22 15:55 long6 阅读(1693) 评论(0) 推荐(1) 编辑

DELPHI自动分析表单(WebBrowser)

摘要： //-----先创建一个WebBrowser，以及自己Negative,也就是先打开一个页面///----------------stringgrid初始化-------------procedure TForm1.stringCreate(StringGrid: TStringGrid);begin StringGrid.Cells[0, 0] := '序号 '; StringGrid.Cells[1, 0] := 'ID号 '; StringGrid.Cells[2, 0] := '类别 '; StringGrid.Cells[3, 0] : 阅读全文

posted @ 2012-02-22 11:03 long6 阅读(1468) 评论(0) 推荐(1) 编辑

导航