Wert von OleVariant überprüfen?

[Raul3D]

Hi,

ich will überprüfen, ob ein bestimmtes Element im TWebBrowser bereits geladen ist. Dazu benutze ich Browser.OleDocument.All.Item('name') um das Object zu bekommen. Allerdings bekomme ich mit dieser Funktion immer ein Element zurück, auch wenn es noch nicht geladen wude. Laut Delphi-Debugger ist der Wert dann zwar $00000000, aber da man OleVariants ja nicht mit "=" vergleichen kann, nützt das nicht viel.

Wie kann ich gucken ob wirklich ein Element zurückgegeben wurde (also z.B. $004132A5)? Ich habe es schon mit VarIsNull() probiert, das liefert aber immer False, auch wenn die OleVariant den Wert $00000000 hat.

Danke!

[omata]

Moin,

das geht so...

Delphi-Quellcode:

procedure TForm.ButtonClick(Sender: TObject);
var x, Document:Variant;
begin
  Document:=WebBrowser.Document;
  x:=Document.All.Item('name');
  if Assigned(TVarData(x).VPointer) then
    x.Value := 'jetzt kann ich drauf zugreifen';
end;

MfG
Thorsten

[Raul3D]

Das liefert leider immer True zurück, auch wenn das Objekt nicht gefunden wurde und $00000000 zurückgeliefert wurde.

[Raul3D]

Ups, so funktioniert es doch. Hab gerade einen anderen Fehler entdeckt. Thanks!

[BorlanDelphiUser]

Hallo,
ich hab gerade das gleich Problem wie Raul3D. Ich greife aber per ID auf das Element zu.

Delphi-Quellcode:

myString := Form1.WebBrowser.OleObject.document.getElementById('count').innerHTML;

hab das ganze schon so probiert, funktioniert aber nicht es kommt trotzdem der Fehler.

Delphi-Quellcode:

procedure TForm.ButtonClick(Sender: TObject);
var x, Document:Variant;
begin
  Document:=WebBrowser.Document;
  x:=Document.getElementById('count');
  if Assigned(TVarData(x).VPointer) then
    x.innerHTML := 'jetzt kann ich drauf zugreifen';
end;

[shmia]

Wenn du überprüfen willst, ob in einem OleVariant ein (Automatisierungs)-Objekt steckt, dann:

Delphi-Quellcode:

var 
   x, Document : OleVariant;  // nicht Variant 
begin 
  Document:=WebBrowser.Document; 
  x:=Document.getElementById('count'); 

  if VarType(FormItem) = varDispatch then   // <-=====
     ShowMessage(x.innerHTML)
  else
     ShowMessage('nix geladen :-(');

Dann packst du dir das in ein Funktion, dann hast du es immer parat:

Delphi-Quellcode:

function VariantIsObject(const value:OleVariant):boolean;
begin
   result := (VarType(value) = varDispatch);
end;

[BorlanDelphiUser]

@shmia

und was ist - FormItem - ?

[shmia]

Zitat:

Zitat von BorlanDelphiUser

@shmia
und was ist - FormItem - ?

Ein Kopierfehler; sollte eigentlich x heisen. (das ist einfach die OleVariant, die getestet werden soll)

[BorlanDelphiUser]

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?

[shmia]

Zitat:

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;

[BorlanDelphiUser]

@shmia ... also ich weis nicht mehr weiter es kommt immernoch die Exception. hast du das ganze mal selber getestet? Wär schon wenn du mal ein funktionierendes Beispiel zum download hier Anhängen könntest.

[toms]

Ich wuerd's etwa so machen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
   x, Document : OleVariant;  // nicht Variant
   Doc : IHTMLDocument2;
begin
  Assert(Assigned(WebBrowser.Document));
  if WebBrowser.Document.QueryInterface(IHTMLDocument2, Doc) = S_OK then
  begin
    x:= Doc.getElementById('countdown');
    if Assigned(x) then
       ShowMessage(x.innerHTML)
    else
      ShowMessage('countdown nicht gefunden :-(');
  end;
end;

[BorlanDelphiUser]

@toms
da gibts auch schon wieder Probleme :wall:

Zitat:

[Error] Unit1.pas(60): Undeclared identifier: 'getElementById'
[Error] Unit1.pas(61): Incompatible types
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[toms]

schreib's so:

Delphi-Quellcode:

Doc : IHTMLDocument3;

Delphi-Quellcode:

if Assigned(x) then

evtl. durch

Delphi-Quellcode:

if x <> nil then

ersetzen od. mit QueryInterface(..)