Hi an alle,
im tWebbrowser kann man über das
DOM mit Hilfe von MS-
API-Funktionen gut auf die einzelnen Objekte einer
HTML-Seite zugreifen.
Leider habe ich bei der folgenden Anweisung Probleme, die alle Stylesheets der Seite durchgehen, und später dann teilweise ersetzen soll:
Delphi-Quellcode:
procedure GetStyleSheets;
var
testcol: IHtmlStyleSheetsCollection;
Sheet: IHtmlStyleSheet;
Testvar: Olevariant;
begin
StyleSheets := IHtmlDocument2(Browser.Document).styleSheets As IHtmlStyleSheetsCollection;
For i:=0 To StyleSheets.length-1 Do Begin
Testvar := i;
Sheet := StyleSheets.item(Testvar) As IHtmlStyleSheet;
Showmessage (Sheet.href);
End;
end;
In der Zeile "Sheet := StyleSheets.item(Testvar) As IHtmlStyleSheet;" erhalte ich dann immer nur die Fehlermeldung:
[Fehler] Main_u.pas(630): Inkompatible Typen: 'OleVariant' und 'IHTMLStyleSheet'
oder auch "Operator kann auf Operanden nicht angewendet werden".
Wahrscheinlich mache ich hier irgendwelche Fehler mit der
API, komme aber leider nicht drauf, was ich falsch mache.
Kann mir da vielleicht irgend jemand helfen???
Cu, Chris