IWebBrowser2 + Frames + Form

[toms]

Hi,

Ich versuche auf eine Form in einem Frame über's IWebBrowser2
Interface zuzugreifen. Dies gibt mir immer eine AV.
Was ist da falsch?

Delphi-Quellcode:

var
   IE: IWebBrowser2;
   Doc:IHTMLDocument2;
   fnr,i: OLEVariant;
   Frames:IHTMLFramesCollection2;
   ovElements: OleVariant;
begin
   //..
   Doc := IE.Document as IHTMLDocument2;
   Frames:=Doc.frames as IHTMLFramesCollection2;
   fnr := 1;
   ovElements := frames.item(x).Document.forms.Item(1).elements; // AV !!`!
here!!
   for i := 0 to ovElements.Length - 1 do
   begin
     //..
   end;
end;

[edit=r_kerber]Delphi-Tags eingefügt. Mfg, r_kerber[/edit]

[toms]

Danke für die zahlreichen Antworten. Scheint sich niemand damit auszukennen!?
Habe die Antwort aber nach zahlreichen Stunden selber rausgekriegt. (ist aber Berufsgeheimnis)

[F.W.]

Ich versuche gerade meine eigene Toolbar im Internet Explorer zum laufen zu kriegen.

ich möchte auch auf ein Formular über eine IWebBrowser2 Schnittstelle zugreifen und habe auch schon rumprobiert!
Wie machst du das?

Zitat:

(ist aber Berufsgeheimnis)

Naja, sind ja quasi im selben "Beruf"

Bitte!

[marabu]

Hallo Felix,

vielleicht hast du einen ähnlichen Fehler gemacht, wie er im gezeigten Code zu sehen ist. Document.frames ist die Kollektion der iFrames im Document. Wenn du ausgehend vom Interface IWebBrowser2 auf die Frames eines FrameSet zugreifen willst, dann etwa so:

Delphi-Quellcode:

procedure TWebForm.FramesButtonClick(Sender: TObject);
var
  wb2: IWebBrowser2;
  doc: IHTMLDocument2;
begin
  wb2 := WebBrowser.ControlInterface;
  doc := wb2.Document as IHTMLDocument2;
  ShowMessage(IntToStr(doc.parentWindow.frames.length));
end;

Grüße vom marabu

[F.W.]

Zitat:

Ich versuche auf eine Form in einem Frame über's IWebBrowser2

Ich danke dir erstmal für die schnelle Antwort! Aber ich brauche eher den Teil, mit dem du auf das Formular zugreifst!

Ob ein Frame drin ist, weiß ich nicht so genau, das einzige was mit frame drinsteht ist

Code:

<iframe marginheight="0" marginwidth="0" width="468" height="60" frameborder="0" scrolling="no" allowtransparency="yes" src="http://www.snapscouts.de/includes/adcontent.php"></iframe>

Ich habe schonmal mit dem TWebBrowser auf ein Formular zugegriffen, da aber über
WB.OleObject.document.forms.item(0).elements.item('user').value := Account.Benutzername; Oleobject (Variant)

[F.W.]

Ich habs selbst rausgefunden! Es gibt ja noch weißgott andere Schnittstellen als IHTMLDocument2 und IHTMLElement

Delphi-Quellcode:

var
 Doc: IHTMLDocument2;
 EForm: IHTMLFormElement;
 EInput: IHTMLInputElement;
begin
 Doc := (IE.Document as IHTMLDocument2);

 EForm := (Doc.forms.item('form1', '') as IHTMLFormElement);

 EInput := (EForm.item('username', '') as IHTMLInputElement);

 EInput.value := Username.Text;
 EInput.form.submit;
end;

So könnte man z.B. das "Editfeld" >username< im Formular >form1< ausfüllen und absenden.