OleVariant auf Null prüfen?

[shmia]

Also um zu Prüfen ob ein Variant = Null ist verwendet man die Funktion VarIsNull() aus der Unit Variants.

Du hast aber noch ein ganz anderes Problem.
Du greifst ohne Prüfung auf Document zu:
aNode := WebBrowser1.OleObject.Document.all.tags('table').Item(0); Wenn kein Document geladen ist, dann ist Document = nil und die Zugriffsverletzung vorprogrammiert!
Daher:

Delphi-Quellcode:

var
  document : OleVariant;
begin
  if not Assigned(WebBrowser1.Document) then
    raise Exception.Create('kein HTML-Dokument geladen');
  document := WebBrowser1.Document;
  aNode := document.all.tags('table').Item(0);

Dann gehts aber noch weiter.
Du greifst mit Gottvertrauen auf ein Element zu, dass mit 'table' getagged ist.
Und wenn es das nicht gibt? Dann macht's auch "Platsch".

Delphi-Quellcode:

function VarIsDispatchObject(const v : Variant): Boolean; // Hilfsfunktion
var
   vt : Integer;
begin
   vt := VarType(v) and not varByRef;
   Result := (vt = varDispatch);
end;
.....

var
  document, table : OleVariant;
begin
  if not Assigned(WebBrowser1.Document) then
    raise Exception.Create('kein HTML-Dokument geladen');
  document := WebBrowser1.Document;
  table := document.all.tags('table');
  if not VarIsDispatchObject(table) then
    raise Exception.Create('kein "table"-Element im Dokument enthalten');
  aNode := table.Item[0];

[PfWSkip]

*kopfklatsch*
Erstmal danke für die Antwort und die Mühe
Stimmt natürlich, ich muss die Objekte erstmal abfragen, bevor ich weitermache. Ich beschäftige mich mit dem TWebBrowser und dem ganzen Krams auch erst seit gestern.
Allerdings liefert deine Funktion "VarIsDispatchObject" immer True zurück, egal ob 'table' jetzt existiert oder nicht. Somit kann ich alle weiteren Abfragen innerhalb von document wieder knicken.

Das assign auf webbrowser1.document funktioniert ist ja klar, ist ja auch kein olevariant

Das Problem (olevariant = nil ?!?) besteht also weiterhin

[shmia]

Zitat von PfWSkip;1058059Allerdings liefert deine Funktion "VarIsDispatchObject" [B:

immer[/B] True zurück, egal ob 'table' jetzt existiert oder nicht

Das ist aber nicht schlimm.
Anscheinend wird hier eine leere Collection vom Typ IHTMLElementCollection zurückgeliefert.
Anstatt zu prüfen, ob ein Objekt (genauer gesagt ein Dispatch-Interfacezeiger) zurückkommt,
prüft man ob die Collection leer ist:

Delphi-Quellcode:

table := document.all.tags('table');
if table.length = 0 then
  raise Exception.Create('kein "table"-Element im Dokument enthalten');
aNode := table.Item[0];

[PfWSkip]

super danke!

mit der prüfung auf .length = 0 funktioniert das super