Problem mit API-Funktion in Kombination mit tWebbrowser

[marabu]

Hi Chris,

probiere es noch mal so:

Delphi-Quellcode:

var
  doc: IHTMLDocument2;
  cStyles: IHTMLStylesheetsCollection;
  i: integer;
  ss, vi: OleVariant;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  cStyles := doc.styleSheets; // kein cast notwendig
  for i := 0 to cStyles.length - 1 do begin
    vi := i;
    ss := cStyles.item(vi);   // kein cast möglich
    ShowMessage(ss.href);
  end;
end;

Grüße vom marabu