Delphi-PRAXiS - In kleinen Schritten Felder im Webbrowser ausfüllen

Hallo,

also keine Ahnung ob das jetzt unter DB3Prof groß anders aussieht, aber normal könnte das Ganze ungefähr so aussehen:

1.) Laden und anzeigen der Webseite, etwa mittels der einfachen Navigate-Methode (von TWebBrowser), z.B.:

Delphi-Quellcode:

WebBrowser1.Navigate('http://www.gmx.net');

2.) Irgendeine weitere eigene Methode, in der Du mittels der ’oleobject.document’-Properties die einzelnen WebSite-Elemente (Buttons, Edits, Comboboxen...) als quasi einzelne Controls ansprechen oder/und ihnen Werte zuweisen kannst. Siehe z.B. auch diesen

Link. Solche Zeilen sehen dann immer in etwa +/- so aus:

Delphi-Quellcode:

			webbrowser1.oleobject.document.forms.item(0).elements.item('suchstr').value := AString;

webbrowser1.oleobject.document.forms.item(0).elements.item('suchmethode').value := AnotherString;

...

webbrowser1.oleobject.document.forms.item(0).submit;

...wobei 'suchstr' u. 'suchmethode' hier die Namen der zu beladenden WebSite-Controls sind. Und Mittels der ’submit’-Zeile wird dann normalerweise eine dann ausgefüllte WebPage (irgendwann) wieder zurückgeschickt.

PS. Nötig dazu gleichzeitig auch noch: Ein kleines weiteres Unterprogramm (

Quelle) über das Du dir den Quellcode dieser WebBrowser-Seite in einem (z.B.) TMemo-Control anzeigen lassen kannst:

Delphi-Quellcode:

			function TForm1.GetHtml(var webBrowser : TWebBrowser): String;

var document : IHTMLDocument2; // nötige Uses: MSHTML

begin

  document := webBrowser.Document as IHTMLDocument2;

  Memo1.Lines.Text := document.body.innerHTML;

end;

Diesen Quellcode brauchst du nämlich, um die Namen der für dich interessanten WebSite-Controls ausfindig zu machen, bzw. um sie darüber dann auch ansprechen zu können. Also im Quellcode mal nach irgendwelchen Wörtern in der "Umgebung" dieser WebSite-Elemente suchen, oder bei Combo-Boxen z.B. auch nach der dort (im Quelltext) auch noch mit aufgeführten Wertemenge etc. etc...