Lenteur de mon code

Ce bout de code sert à mettre des fichiers ressources dans une exe pendant son execution. Je me demandais si c'était la fonction AddResToFile qui était lente ou allors si c'était du au fait que je ne connait presque rien aux threads et que je l'ai utilise peut être mal.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var ima:tmemorystream; i:integer; cible:string;   while (i<= high(chemin)) and (not stop) do begin image2.Picture.LoadFromFile(chemin[i]); ima:=tmemorystream.Create; image2.Picture.Graphic.SaveToStream(ima); AddResToFile(cible, 'IMA'+inttostr(i), ima, 'IMAGE'); ima.Free; end;

---

essayes en chargeant directement ton image dans ton stream sans passer par la variable intermédiare image2, tu peux aussi éviter de creer/détruire ton stream dans la boucle, tu le crée avant et tu le détruis une fois toutes tes images ajoutées

Citation:

---

essayes en chargeant directement ton image dans ton stream

---

C'est fait

Citation:

---

tu le crée avant et tu le détruis une fois toutes tes images ajoutées

---

J'y avait penser mais quand je fait ca on dirait qu'il garde en mémoire toute les ancienne image dans le stream ce qui fait que la grosseur des ressource est presque exponentiel.

Citation:

---

Envoyé par poly128

J'y avait penser mais quand je fait ca on dirait qu'il garde en mémoire toute les ancienne image dans le stream ce qui fait que la grosseur des ressource est presque exponentiel.

---

Et avec un Position := 0 ?

Mais ce que tu peux surtout faire c'est ne pas utiliser utiliser AddResToFile mais la combinaison BeginUpdateRes/AddResource/EndUpdateRes ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

var ima : TMemoryStream; ResHandle, i : integer; cible : string;   ima := TMemoryStream.Create; try ResHandle := BeginUpdateRes(cible); try while (i <= High(chemin)) and (not stop) do begin ima.Size := 0; ima.LoadFromFile(chemin[i]); AddResource(ResHandle, 'IMA'+inttostr(i), ima, 'IMAGE'); end; EndUpdateRes(ResHandle); except try EndUpdateRes(ResHandle, True); except end; raise; end; finally ima.Free; end;

---

Wouuaa la ca vat vite. Je fait en 10 seconde ce que je faisait en une heure :mrgreen: . Merci!