AFFICHER, TELECHARGER DES IMAGES SE TROUVANT SUR INTERNET DANS VOTRE APPLI DELPHI GRACE A INDY

function Img(URL:string):TBitmap;
var
 PicMem: TMemoryStream;
 jpg: TJpegimage;
 ext:string;
 BmpResult:TBitmap;
begin
//on cree le tampon mémoire.
        PicMem := TMemoryStream.Create;
        //on creer notre 'resultat'
        BmpResult:=TBitmap.Create;
        //On charge en mémoire l'image téléchargée depuis Url
        //grace à notre composant indy TIdHTTP;
        IdHTTP1.Get(URL,PicMem);
        //On revient au début du tampon pour la lecture.
        PicMem.Position :=0;
        ext:=LowerCase(ExtractFileExt(url));
        if(ext='.bmp') then begin
          //Si c'est un bitmap qu'on attend, on l'assigne directement a notre objet TBitmap
          BmpResult.LoadFromStream(PicMem);
        end else if(ext='.jpg')or(ext='.jpeg') then begin
          (* si c'est un jpeg on passe par une classe qui gere ce format *
          contenu dans l'unite jpeg fournit en standar avec delphi 7.
          [...]
            uses jpeg;
          [...]
          *)
          jpg := TJpegimage.Create;
          jpg.LoadFromStream(PicMem);
          //puis on l'assigne a notre objet TBitmap
          BmpResult.assign(jpg);
        end;
//on l'affecte au resultat.
   result:=BmpResult;
//et on libere les objets.
   PicMem.Free;
   BmpResult.Free;
   jpg.Free;
end;

[...]
begin
image1.Picture.Assign(img('http://www.movie-poster.ws/movies/wallpaper/cartoon/shrek/shrek_cat.jpg'));
image2.Picture.Assign(img('http://www.icicom.up.pt/blog/take2/panda.bmp'));
end;
[...]