Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec ce code, le redimensionnement se fait sur les fichiers *.bmp mais pas sur les fichiers *.jpg.

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
23
24
25
26
27
28
29
30
31
32
 
 
.................
 bmp.Width:= Largeur.Value;
 bmp.Height:= Hauteur.Value;
 
 BMP.pixelformat := pf24bit;
 
 for x:= 0 to listeimg.Count -1 do begin
 
 p1.Progress:=x;
 
 if Uppercase(ExtractFileExt(listeimg.Items.Strings[x]))='.JPG' then
 begin
 jpg.LoadFromFile(listeimg.Items.Strings[x]); 
 jpg.PixelFormat:=jf24Bit;         
 
 image1.Picture.Bitmap.Assign(jpg);  
 avirecorder1.AddAVIFrame(image1.Picture.bitmap);
 
 end;
 
 if Uppercase(ExtractFileExt(listeimg.Items.Strings[x]))='.BMP' then
 begin
 bmp.LoadFromFile(listeimg.Items.Strings[x]);
 bmp.Canvas.StretchDraw(rect(0,0, Largeur.Value, Hauteur.Value), bmp);
 avirecorder1.AddAVIFrame(bmp);
 
 end;
 
 end;
 avirecorder1.CloseAVIFile();

Logique puisque le

StretchDraw(rect(0,0,Largeur.Value, Hauteur.Value), bmp);

se fait sur le Bitmap.

Il y a t'il une solution pour cette partie du code de prendre en compte la valeur (LxH) dans le cas de fichier *.jpg.

Merci d'avance,

@+,

Cincap

[Andnotor]

Charge déjà l'image dans un bitmap temporaire et ne travaille ensuite que sur celui-ci.

De plus dans ton code, tu fixes la taille du bmp mais fait un LoadFromFile par la suite qui remet la taille originale. Le StretchDraw aussi paraît étonnant.
Il serait également plus logique d'afficher dans le TImage l'image retravaillée pour avoir une vue de l'avi final et non des images de toutes tailles.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var
  Bmp, AVIBmp :TBitmap;
  Jpg :TJPegImage;
  x :integer;
begin
 //Image finale à enregistrer
 AVIBmp := TBitmap.Create;
 AVIbmp.Width  := Largeur.Value;
 AVIbmp.Height := Hauteur.Value;
 AVIbmp.pixelformat := pf24bit;
 
 //Image originale
 Bmp := TBitmap.Create;
 
 try
   for x:= 0 to listeimg.Count -1 do
   begin
     p1.Progress := x;
 
     //Une autre façon de faire les IF..THEN
     case AnsiIndexText(ExtractFileExt(listeimg.Items[x]), ['.JPG', '.BMP']) of
       0 : //JPeg
           begin
             Jpg := TJPegImage.Create;
             Jpg.LoadFromFile(listeimg.Items[x]);
             Bmp.Assign(Jpg);
             Jpg.Free;
           end;
 
       1 : //Bitmap
           Bmp.LoadFromFile(listeimg.Items[x]);
 
       else Raise Exception.Create('Format d''image non supporté !!!');
     end;
 
     //Redimensionnement de l'image
     AVIBmp.Canvas.StretchDraw(rect(0,0, AVIBmp.Width -1, AVIBmp.Height -1), Bmp);
 
     //Affiche l'image redimentionnée
     Image1.Picture.Assign(AVIBmp);
 
     avirecorder1.AddAVIFrame(AVIbmp);
   end;
 
 finally
   avirecorder1.CloseAVIFile;
   Bmp.Free;
   AVIBmp.Free;
 end;
end;

[cincap]

@ Andnotor, merci de ton message, après avoir ajouté dans l'Uses l'unité "StrUtils" pour l'instruction "AnsiIndexText", j'ai une erreur sur l'unité de GlAviRecorder après avoir chargé mes jpg :

En effet je ne sais pas si c'est important mais à la création de la fiche, j'avais ce code afin de créer

Code :

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

1
2
3
4
5
6
7
 
 bmp:=TBitmap.Create;
 
 jpg:=Tjpegimage.Create;
 
 img:=0;
 image1.Canvas.Create;

et :

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
23
24
25
26
 
 procedure TFFilmImage.ChargeClick(Sender: TObject);
 begin
 
 if BDImage.Execute then
 begin
 
 if Uppercase(ExtractFileExt(BDImage.FileName))='.JPG' then
 begin
 jpg.LoadFromFile(BDImage.FileName); 
 jpg.PixelFormat:=jf24Bit;           
 image1.Picture.Bitmap.Assign(jpg);  
 
 listeimg.Items.Assign(bdimage.Files);
 
  end;
 
  if Uppercase(ExtractFileExt(BDImage.FileName))='.BMP' then
 begin
 image1.Picture.Bitmap.LoadFromFile(BDImage.FileName);
 
 listeimg.Items.Assign(bdimage.Files);
 
 end;
 end;
 end;

Je ne comprends pas sauf peut être que le bmp et jpg doivent être créés avant.

@+,

Cincap

[Andnotor]

Le code que je t'ai donné se charge de créer et détruire les bitmaps, jpegs.
Si tu en as besoin ailleurs, il est clair que tu dois les créer différemment.

Maintenant, s'il s'agit uniquement de charger le TImage avec un JPeg, ceci fonctionnera très bien sans objet intermédiaire

Code :

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

1
2
3
4
//LoadFromFile sur Picture qui se chargera de créer 
//l'objet sous-jacent en fonction du type d'image.
Image1.Picture.LoadFromFile('image.jpg');
Image1.Picture.LoadFromFile('image.bmp');

[cincap]

@ Andnotor, intéressant ton code avec le case et bien documenté.

Après compilation, j'ai remarqué que dans le bouton "Sauvegarde" avec ta solution, je n'indiquai pas la création d'avirecorder (avirecorder1.CreateAVIFile(0)) d'ou l'exception.

Je suis heureux

Merci beaucoup,

@+,

Cincap

[Andnotor]

Je vais bientôt demander une participation pour ce soft