利用WebBrowser取网中表格的数据

1、利用 WebBrowser 读取网页中表格的数据unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,Dialogs, MSHTML, StdCtrls, OleCtrls, SHDocVw;typeTForm1 = class(TForm)Button1: TButton;WebBrowser1: TWebBrowser;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender

2、: TObject);private Private declarations public Public declarations end;varForm1: TForm1;implementation$R *.dfmfunction GetHtmlTableCell(aTable: IHTMLTable; aRow, aCol: Integer): IHTMLElement;varRow: IHTMLTableRow;beginResult := nil;if aTable = nil then Exit;if aTable.rows = nil then Exit;Row := aTab

3、le.rows.item(aRow, aRow) asIHTMLTableRow;if Row = nil then Exit;Result := Row.cells.item(aCol, aCol) as IHTMLElement; end;function GetHtmlTable(aDoc: IHTMLDocument2; aIndex: Integer): IHTMLTable;varlist: IHTMLElementCollection;beginResult := nil;if aDoc = nil then Exit;if aDoc.all = nil then Exit;li

4、st := aDoc.all.tags(table) as IHTMLElementCollection; if list = nil then Exit;Result := list.item(aIndex, aIndex) as IHTMLTable; end;function GetWebBrowserHtmlTableCellText(const AWebBrowser: TWebBrowser;const TableIndex, RowIndex, ColIndex: Integer;var ResValue: string): Boolean;Docintf: IHTMLDocum

5、ent2;tblintf: IHTMLTable;node: IHTMLElement;beginResValue := ;docintf := AWebBrowser.Document asIHTMLDocument2;tblintf := GetHtmlTable(docintf, TableIndex);node := GetHtmlTableCell(tblintf, RowIndex, ColIndex);Result := node <> nil;if Result thenResValue := Trim(node.innerText);end;function Ge

6、tHtmlTableRowHtml(aTable: IHTMLTable; aRow: Integer): IHTMLElement;varRow: IHTMLTableRow;beginResult := nil;if aTable = nil then Exit;if aTable.rows = nil then Exit;Row := aTable.rows.item(aRow, aRow) as IHTMLTableRow;if Row = nil then Exit;Result := Row as IHTMLElement;end;function GetWebBrowserHtm

7、lTableCellHtml(constAWebBrowser: TWebBrowser;const TableIndex, RowIndex, ColIndex: Integer;var ResValue: string): Boolean;varDocintf: IHTMLDocument2;tblintf: IHTMLTable;node: IHTMLElement;beginResValue := ;docintf := AWebBrowser.Document asIHTMLDocument2;tblintf := GetHtmlTable(docintf, TableIndex);

8、node := GetHtmlTableCell(tblintf, RowIndex, ColIndex);Result := node <> nil;if Result thenResValue := Trim(node.innerHTML);end;function GeHtmlTableHtml(aTable: IHTMLTable;aRow: Integer): IHTMLElement;Row: IHTMLTableRow;beginResult := nil;if aTable = nil then Exit;if aTable.rows = nil then Exit

9、;Row := aTable.rows.item(aRow, aRow) as IHTMLTableRow;if Row = nil then Exit;Result := Row as IHTMLElement;end;function GetWebBrowserHtmlTableHtml(const AWebBrowser: TWebBrowser;const TableIndex, RowIndex: Integer;var ResValue: string): Boolean;varDocintf: IHTMLDocument2;tblintf: IHTMLTable;node: IH

10、TMLElement;beginResValue := ;docintf := AWebBrowser.Document asIHTMLDocument2;tblintf := GetHtmlTable(docintf, TableIndex);node := GeHtmlTableHtml(tblintf, RowIndex);Result := node <> nil;if Result thenResValue := node.innerHtml; end;procedure TForm1.FormCreate(Sender: TObject); beginWebBrowser1.Navigate(H:ReadTable00.html); end;procedure TForm1.Button1Click(Sender: TObject); varResValue: