Neue Frage, neuer Thread!
Zitat von
endeffects:
Delphi-Quellcode:
with WebBrowser do
try
WebBrowser.Navigate('http://test.com');
sleep(2000);
except
//nix
end;
Wenn du schreibst
with WebBrowser do
dann kannst du nachher nur "Navigate('...');" schreiben, ohne vorangestelltes "WebBrowser".
Und "sleep" friert das ganze Programm ein, schau lieber mal nach
delay
Delphi-Quellcode:
try
...
except
//nix
end;
Sollte man auch nicht verwenden, siehe dazu
hier Punkt 1.
Du kannst auch warten, bis die Seite komplett geladen ist, mittels:
Delphi-Quellcode:
procedure TForm1.wbNavigateComplete2(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
const
url_google = '
http://www.google.de';
begin
cbWeb.Text := lower(wb.OleObject.Document.Url);
if (cbWeb.Text = url_google)
or (cbWeb.Text = url_google + '
/')
then begin
ShowMessage(cbWeb.Text + '
wurde geladen');
end;
end;
Edit: Ein paar Tippfehler verbessert.