[TWebBrowser] Alle StyleSheets auflisten

[marabu]

Hallo Daniel,

Zitat von Daniel G:

Für mich ist es wichtig, dass ich alle Stylesheets bekomme, ...

probiere es so:

Delphi-Quellcode:

procedure ExtractStyleSheets(sc: IHTMLStyleSheetsCollection; s: TStrings);
var
  i: Integer;
  v: OleVariant;
  u: iUnknown;
  ss: IHTMLStyleSheet;
begin
  with sc do
    for i := 0 to Pred(length) do
    begin
      v := i;
      u := item(v);
      if Succeeded(u.QueryInterface(IID_IHTMLStyleSheet, ss)) then
        if ss.href = ''
          then ExtractStyleSheets(ss.imports, s)
          else s.Add(ss.href);
    end;
end;

Grüße vom marabu