Cover aus dem Internet laden und anzeigen lassen?

[glkgereon]

ja....

sowas in der Art hab ich auch mal gebastelt.
Ich habe dazu eine Seite genutzt (www.cover-paradies.to)

und folgendes gemacht:

Delphi-Quellcode:

procedure TCover.GetBmp(const Artist, Album: String; var Front, Back, CD: String);
var T, Pre:String;
    ID, Num: Integer;
begin
  T:='http://www.cover-paradies.to/?fCall=Search&&vSearchString='+Artist+' '+Album+'&&vSearchInSektion=Audio-CD&&B3=Suche starten';
  T:=StringReplace(T,' ','%20',[rfReplaceAll]);
  T:=HTTP.Get(T);
  if Pos('Resource id #',T)=0 then
    begin
    ID:=Pos('<a href="?vDownload=Image&vId=',T)+Length('<a href="?vDownload=Image&vId=');
    Num:=StrToInt(copy(T,ID,PosEx('&',T,ID)-ID));
    Pre:='http://www.cover-paradies.to/Archiv/Cover/Audio-CD/'+Artist[1]+'/';
    T:='/'+IntToStr(Num)+'.jpg';
    Front:=Pre+'Front'+T;
    Back:=Pre+'Back'+T;
    CD:=Pre+'CD'+T;
    end;
end;

also mir von dieser Seite die URL des jeweiligen Covers geholt...

diese URL habe ich mir dann einfach in einer TWebBrowser-Komponente anzeigen lassen