Discussion :

[poly128]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[exoseven]

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

[poly128]

essayes en chargeant directement ton image dans ton stream

C'est fait

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.

[sjrd]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[poly128]

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