Webbrowser CSS auslesen

[capo]

Hallo Marabu,
wie ist da der Aufruf?
Mit dem Webbrowser bekomme ich folgende Meldung:

Zitat:

[DCC Fehler] Unit1.pas(193): E2010 Inkompatible Typen: 'IHTMLStyleSheetsCollection' und 'TWebBrowser'

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;

Gruss
Capo