Wert von OleVariant überprüfen?

[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(..)