get number of rows and cols of a Table

[marabu]

Hi,

you should find everything you look for and more on this site: WebBrowser Control

Delphi-Quellcode:

function RowCount(doc: IHTMLDocument2; table: Variant): Integer;
var
  e2: IHTMLElement2;
  ec: IHTMLElementCollection;
  tbl: IHTMLTable;
begin
  e2 := doc.body as IHTMLElement2;
  ec := e2.getElementsByTagName('table');
  tbl := ec.item(table, null) as IHTMLTable;
  if Assigned(tbl)
    then Result := tbl.rows.length
    else Result := 0;
end;

Regards