Wert von OleVariant überprüfen?

[shmia]

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;