Discussion :

[zemeilleurofgreg]

Bonjour,

quelqu'un aurait-il une solution pour alléger le chargement de photos (1.5 mo) ?
Je parcours le répertoire sélectionné et charge les photos dans une boucle à l'aide d'un "LoadFromFile" :

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
for i:=0 to Length(MyArray)-1 do
  begin
    MyJpg:=TJpegImage.Create;
    MyJpg.LoadFromFile(MyArray[i].Path);
 
    MyComponent:=self.FindComponent('MyImage'+inttostr(i));
    TImage(MyComponent).Canvas.StretchDraw(TImage(MyComponent).Canvas.ClipRect,MyJpg);
 
    MyExif:=TExif.Create;
    MyExif.ReadFromFile(MyArray[i].Path);
    if (MyExif.ImageHeight>MyExif.ImageWidth) then
    begin
      TImage(MyComponent).Height:=MyImageWidth;
      TImage(MyComponent).Width:=MyImageHeight;
    end;
    MyExif.Free;
    MyJpg.Free;
  end;

Peut-être est-il possible d'en réduire la taille avant le chargement ?

Merci d'avance

[Paul TOTH]

oui, regarde la propriété Scale de TJPEGImage

[zemeilleurofgreg]

Euhhhhh..................

Je sais pas quoi dire si ce n'est : MERCI

C'est dingue ce qu'une petite propriété peut changer la vie !

Encore un grand merci