Delphi-Quellcode:
a := IHTMLElementCollection(Document.all.tags('head'));
[...]
Die Funktion
tags liefert ein
IDispatch- und kein
IHTMLElementCollection-Interface. Deshalb geht ein harter Cast an dieser Stelle schief und der Versuch, die Funktion
item aufzurufen, wird mit der korrekten Fehlermeldung quittiert, da
IDispatch tatsächlich keine Funktion
item unterstützt.
Besser wäre:
Delphi-Quellcode:
var
i: IDispatch;
[...]
begin
[...]
i := Document.all.tags('
head');
if not Supports(i, IHTMLElementCollection, a)
then
raise Exception.Create('
Keine HTMLElementCollection');
b := a.item(null, 0);
[...]
end;