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;