EmbeddedWB Editfeld in iFrame suchen und editieren

[Tomski]

Hallo zusammen,

ich habe ein Problem mit EmbeddedWB das ich seit zwei Tagen nicht lösen kann. Ich wäre euch sehr verbunden, wenn ihr mir hier weiterhelfen könntet. Hier nun mein Problem...

Ich möchte ein Editfeld im EmbeddedWB ausfüllen das sich in einem iFrame befindet. Die Seite wird vollständig geladen und sauber angezeigt, allerdings ist im EmbeddedWB.Documentsource das Editfeld nicht zu finden. Klicke ich mit der Maus den EmbeddedWB zur Laufzeit außerhalb des iFrames an, wird mir genau der Code angezeigt der in EmbeddedWB.Documentsource verfügbar ist. Click ich den iFrame an wird mir der gesuchte Code angezeigt und dort findet sich dann auch das Editfeld. Ich verwende die folgende Funktion, die eigentlich hervorragend funktioniert, wenn es kein iFrame ist. Wie muß ich die Funktion abändern bzw. was muß ich tun, damit das Editfeld im iFrame gefunden wird.

Im voraus schon mal Danke.

Code:

Function WbFindField(WebBrowser: TEmbeddedWB; FieldName: string; var Field: TPoint): boolean;
var
  i, j: Integer;
  FormItem: Variant;
begin
  Result := False;
  //Hat das Dokument Forms? (Frames)
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Exit;
  end;
  //Bearbeite alle Frames
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
  begin
    FormItem := WebBrowser.OleObject.Document.forms.Item(I);
    // Bearbeite alle Felder eines Frames
    for j := 0 to FormItem.Length - 1 do
    begin
      try
        // Feldname wurde gefunden
        // gebe ihn zurück und ende
        if (FormItem.Item(j).Name = FieldName) or (FormItem.Item(j).Value = FieldName) or (FormItem.Item(j).Title = FieldName) or (FormItem.Item(j).Type = FieldName) or (FormItem.Item(j).id = FieldName) Then //hier könnte was falsch gefunden werden wenn's schlecht läuft es funzt aber im Normalfall
        //if FormItem.Item(j).Name = FieldName then //Original-Command
        begin
          Field.x := i;          // Position speichern
          Field.Y := j;
          Result := True;
          exit;
        end;
      except
        Exit;
      end;
    end;
  end;
end;