Webbrowser Icon und Link von Website bekommen

[API]

Hallo, im TEmbeddedWB Package gibt's eine TIEAddress Komponente, welche auch das Favorite Icon anzeigen kann.

Codeauszug aus der Komponente:

Delphi-Quellcode:

function TCustomIEAddress.GrabFavicon(URL: AnsiString; dest: AnsiString): Boolean;
var
  i: Integer;
  St: Ansistring;
  bCancel: Boolean;
begin
  Result := False;
  try
    bCancel := false;
    St := RemovePrefix(URL, 'HTTP://');
    I := AnsiPos('/', RemovePrefix(St, 'HTTP://'));
    if I > 0 then
      St := 'http://' + System.Copy(St, 1, I);
    if Assigned(FOnGetFavicon) then
      FOnGetFavicon(Self, (GetCacheFolder + 'favicon.ico'), Text, bCancel, nil);
    if not bCancel then
    try
      Result := UrlDownloadToFile(nil, PAnsiChar(St + 'favicon.ico'), PAnsichar(dest), 0, nil) = 0;
    except
      Result := False;
    end;
  finally
  end;
end;