Zitat von
BorlanDelphiUser:
und wenn ich jetzt auf den Button klicke kommt immer noch eine Fehlermeldung und keine Messagebox mit dem Hinweis nix geladen
Mach ich da irgendwas verkehrt oder ist da irgendwas im Code falsch?
Du musst schon vorher nachschauen, ob in der Variablen
document was drin ist:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
x, Document : OleVariant;
// nicht Variant
begin
Document:=WebBrowser.Document;
if not VariantIsObject(Document)
then
raise Exception.Create('
kein Dokument geladen');
x:=Document.getElementById('
countdown');
if VariantIsObject(x)
then
ShowMessage(x.innerHTML)
else
ShowMessage('
countdown nicht gefunden :-(');
end;