Webbrowser CSS auslesen

[capo]

Hallo
wie kann ich beim Webbrowser die Stylesheets der einzelnen Elemente auslesen, ähnlich wie beim webdeveloper für Firefox?
Gruss vom Capo

[marabu]

Guten Morgen,

ich kenne zwar den WebDeveloper nicht, aber vielleicht bringt dich die Funktion ExtractStyleSheets() ein Stück voran.

Grüße vom marabu

[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

[marabu]

Das kannst du so machen:

Delphi-Quellcode:

procedure TWebForm.DemoButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  s: TStrings;
begin
  s := TStringList.Create;
  doc := WebBrowser.Document as IHTMLDocument2;
  ExtractStyleSheets(doc.styleSheets, s);
  ShowMessage(s.Text);
  s.Free;
end;

Freundliche Grüße

[capo]

Hallo Hallo
Danke, das klappt supi, nur meinte ich was ganz anderes.
ich klick im browser etwas an und möchte dann in einem memo die entsprechenden (des angeklickten elementes)classen des css angezeigt bekommen.
Gruss
Capo