Textfeld auslesen Webbrowser

[shmia]

Zitat von finalr:

Delphi-Quellcode:

 Webbbrowser1.Navigate(URL);
 test := Webbrowser1.OleObject.document.forms.item(0).elements.item('itemprice').Value;

Würde es denn generell so gehen? Oder bin ich auf dem Holzweg?

Das ist im Prinzip richtig. Nach .Navigate muss man allerdings warten, bis die Seite geladen wurde !!

Delphi-Quellcode:

var item:olevariant;
 Webbbrowser1.Navigate(URL);
 WaitForBrowser(Webbbrowser1); // Warten bis Document geladen
 if not Assigned(Webbrowser1.OleObject.document) then  // Zur Sicherheit
    raise Exception.Create('kein Dokument geladen');
 item := Webbrowser1.OleObject.document.forms.item(0).elements.item('itemprice');
 if VarType(item) <> varNull then
    test := item.Value
 else
    test := 'itemprice nicht gefunden';

Delphi-Quellcode:

procedure WaitForBrowser(WebBrowser:TWebBrowser);
begin
   while WebBrowser.ReadyState <> READYSTATE_COMPLETE do
   begin
      Application.ProcessMessages;
      Sleep(50);
   end;
end;