Einzelnen Beitrag anzeigen

TStringlist

Registriert seit: 1. Dez 2003
360 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: In kleinen Schritten Felder im Webbrowser ausfüllen

  Alt 17. Dez 2006, 11:17
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.:

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...
MfG (& Thx ggf.)
  Mit Zitat antworten Zitat