Alle Element IDs von Webseite listen

[Volker Z.]

Hallo,

wenn ich Dich richtig verstehe, dann suchst Du etwas in dieser Richtung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  d : IHTMLDocument2;
  i : Integer;
  e : IHTMLElement;
begin
  if not Assigned (WebBrowser1.Document) then
    Exit;

  d := WebBrowser1.Document as IHTMLDocument2;
  if not Assigned (d) then
    Exit;

  for i := 0 to d.all.length - 1 do
    begin
      e := d.all.item (i, '') as IHTMLElement;
      if Assigned (e) and (e.id <> '')then
        ListBox1.Items.Add (e.id)
    end
end;

Gruß