Chargement d'images en masse depuis un TImagelistRésolu

Question

Bonjour &#224; tous ,



Je r&#233;alise un programme qui scan tout les dossiers d'un repertoire
donn&#233;. Chaque dossier contient une image nomm&#233;e "Folder.jpg" . Ensuite
le programme , au cours du scan, recupere le nom du dossier et le
chemin de l'image contenu dans le dossier s&#233;lectionn&#233;. 



Comme l'image est en Jpeg, je dois passer par une conversion de jpeg
vers bmp pour ensuite la stocker dans une imagelist. Et pour finir ,
pour chaque dossier scann&#233;, je recupere le nom pour lafficher dans un
Tlistview avec en ic&#244;ne l'image stock&#233; &#224; l'index correspondant dans la
TImagelist.





Voici le code :



procedure tform1.refreshdisc;

var

    listajout : tlistitem;

    jpeg :tjpegimage;

    bmp : tbitmap;

    img : integer;

    rect : trect;

    i :  integer;

    f : textfile;

    way,str : string;



begin

      listview1.Clear;

      jpeg := Tjpegimage.Create;

      bmp := Tbitmap.Create;

      i := 0;

 

    While i<= shelllistview1.items.Count - 1
do                 
//quand que non fin du repertoire faire

     begin



          way :=
shelllistview1.Root+'\'+shelllistview1.folders[i].DisplayName+'\'+'folder.jpg';



            //conversionde l'image



          jpeg.LoadFromFile(way);

          Bmp.Width :=64;

          Bmp.Height :=64;

          Rect.Left :=0;

          Rect.Top :=0;

          Rect.Right :=Bmp.Width-1;

          Rect.Bottom:=Bmp.Height-1;

          Bmp.Canvas.StretchDraw(Rect,Jpeg);



            //insertion de l'image dans la Timagelist



         image1.Picture.Bitmap.Assign(bmp);

        
imagelist1.Insert(i,image1.Picture.Bitmap,nil);    // cette
ligne ralenti le processus d'affichage



          

            // ajout de l'item dans la Tlistview

        listajout := listview1.Items.add;

          listajout.Caption := shelllistview1.folders[i].DisplayName;

          listajout.imageindex := i;



          i := i +1;

     end;

   

    Bmp.Free;

    Jpeg.Free;

end;





Voila et donc, mon probl&#232;me est le temps d'affichage de la listview
sachant que 200 &#224; 500  items doivent y etre affich&#233;. c'est trop
long et je cherche donc un moyen d'optimiser l'affichage.



J'ai pens&#233; &#224; une solution qui serait d' &#233;viter de passer par une
Timagelist, mais je ne vois pas comment afficher des icones dans un
Tlistview sans Timagelist





En attente de vos suggestions....merci encore !





MrBungle .

cs_Delphiprog · Accepted Answer

Je pense que l'augmentation de la valeur de la propri&#233;t&#233; AllocBy du composant TImageList pourrait augmenter les performances :
AllocBy
"D&#233;finit le nombre d'images dont s'agrandit la liste d'images quand elle doit faire de la place pour de nouvelles images."

Quand on sait qu'il y aura beaucoup d'images &#224; charger, il vaut mieux &#233;viter d'incessantes r&#233;allocations de m&#233;moire.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

Salut,
tu te compliques un peut la vie 
Dans ce sens tu peux te passer d'un TJpegImage 
C'est juste un exemple il faudra l'adapter &#224; tes besoins :

procedure TForm1.Button11Click(Sender: TObject);
Var Bmp, Bmp2 : TBitmap;
begin
Image1.Picture.LoadFromFile('aDemo.jpg'); // on charge le Jpg directement dans un TImage
Bmp :=  TBitmap.Create;                               // on cr&#233;e le Bmp
Bmp.Width := 64;                                         // on ajuste sa taille
Bmp.Height:= 64;
Bmp.Canvas.StretchDraw(Rect(0, 0, 64, 64), Image1.Picture.Graphic); // on le dessine &#224; la bonne taille
ImageList1.Add(Bmp, Nil);                         //  ici on l'ajoute &#224; l'ImageList
  Bmp2 := TBitmap.Create;                        // que pour tester
  ImageList1.GetBitmap(0, Bmp2);            // que pour tester
  Canvas.Draw(0,0, Bmp2);                      // que pour tester
  Bmp2.Free;
Bmp.Free;
 end ;


Tu peux aussi r&#233;cup&#233;rer l'index de l'image Comme ceci:
Index : = ImageList1.Add(Bmp, Nil);

Voil&#224; donc si on retire Bmp2 qui n'est la que pour le teste il nous reste que un Bmp et un TImage et bien sur le TImageListe 
ceci devrait d&#233;j&#224; acc&#233;l&#233;rer l'ex&#233;cution

@+
Cirec

Mr7Bungle · Answer

Merci beaucoup ! &#233;ffectivement je me compliquais un peu la vie !



R&#233;sultat des courses donc et bien oui j'ai une execution tout de meme
plus rapide mais encore un peu long tout de m&#234;me... et c'est le
chargement de l'imagelist qui prend le plus de temps ...n'est il
vraiment pas possible de remplir une listview avec ic&#244;nes sans passer
par une ImageList?




Dans tout les cas merci &#224; toi Cirec ! &#231;a va bcp mieux deja, mais un peu plus serai le top du top !!



En attentes de suggestions....Merci



MrBungle.

Chargement d'images en masse depuis un TImagelist

3 réponses

Votre réponse

Discussions similaires