Editfelder in Farmes einer Website ansprechen

[bitsetter]

Du kannst ja noch versuchen die Struktur der Seite in einem TTreeView darzustellen.

Delphi-Quellcode:

var
  vDoc, vFrame, vForm: OleVariant;
  iFrame, iForm, iElement: Integer;
  tn, tn2: TTreeNode;
begin
  vDoc := Webbrowser1.OleObject.Document;
  for iFrame:= 0 to vDoc.frames.Length -1 do
  begin
    vFrame := vDoc.frames.item(iFrame);
    tn:= TreeView1.Items.Add(nil, Format('frame %d', [iframe]));
      for iForm := 0 to vFrame.Document.forms.Length- 1 do
      begin
       tn2:= TreeView1.Items.AddChild(tn, Format('form %d', [iForm]));
       vForm:= vFrame.Document.forms.item(iForm);
       for iElement := 0 to vForm.elements.Length- 1 do
         TreeView1.Items.AddChild(tn2, Format('element %d', [iElement]));
     end;
  end;
  TreeView1.FullExpand;