Einzelnen Beitrag anzeigen

BorlanDelphiUser

Registriert seit: 10. Mär 2003
Ort: Waltersdorf
91 Beiträge
 
Delphi 5 Professional
 
#9

Re: Wert von OleVariant überprüfen?

  Alt 25. Feb 2005, 16:16
hmm ... also ich hab das ganze jetzt so gemacht.

Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
   x, Document : OleVariant; // nicht Variant
begin
  Document:=WebBrowser.Document;
  x:=Document.getElementById('countdown');

  if VarType(x) = varDispatch then // <-=====
     ShowMessage(x.innerHTML)
  else
     ShowMessage('nix geladen :-(');
end;
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?
Besucht auch mal meine Homepage www.r-kersten.de. Es wäre schön wenn ihr mir einen Gästebucheintrag hinterlasst.
  Mit Zitat antworten Zitat