Prüfen ob ein OleVariant verfügbar ist?

[SearchBot]

Hey

Aus der Kombination der Möglichkeiten habe ich meine Function jetzt zum Laufen bekommen:

Delphi-Quellcode:

 function GetById(id:string; by:shortstring):string;
 var V:Variant; O:OleVariant;
  D: IHTMLDocument2;
 begin
  result:='';
  D := Form1.WebBrowser1.Document as IHTMLDocument2;
  if D<>nil then
  if D.readyState='complete' then begin
    V:=Form1.Webbrowser1.OleObject;
    if not VarIsEmpty(V) then begin
     O:=V.Document;
     if not VarIsNull(O) then begin
      O:=O.GetElementById(id);
      if (not VarIsEmpty(O)) and (by<>'') then begin
        if by='innerText' then result:=O.innerText;
        if by='value'     then result:=O.value;
        if by='innerHTML' then result:=O.innerHTML;
      end else result:='true'; //für die Abfrage, ob es die gewünschte ID überhaupt gibt
      //Ergebnis also ''=nicht da, 'true'=ID da, oder der Wert der ID (ich weiß, wie die Seite aufgebaut ist)
     end;
    end;
  end;
 end;

Sieht zwar immer noch etwas gemurkst aus, aber läuft

Danke für Eure Hilfe!