Hallo Matthias,
Zitat von
Matze:
... was habt ihr denn alle mit "favicon.ico"? ...
gut das du fragst. Es gibt nicht sehr viele Web-Entwickler, die den Default-Namen favicon.ico nicht verwenden, aber damit deine WebSite nicht außen vor bleibt:
Delphi-Quellcode:
function GetLinkAttribute(doc: IDispatch;
const rel, attr:
string):
string;
var
ec: IHTMLElementCollection;
e: IHTMLElement;
i: Integer;
begin
ec := (doc
as IHTMLDocument3).getElementsByTagName('
link');
for i := 0
to Pred(
ec.length)
do
begin
e :=
ec.item(i, null)
as IHTMLElement;
if SameText(VarToStr(e.getAttribute('
rel', 0)), rel)
then
begin
Result := VarToStr(e.getAttribute(attr, 0));
Exit;
end;
end;
Result := '
';
end;
// ShowMessage(GetLinkAttribute(Document, 'Shortcut Icon', 'href'))
Freundliche Grüße