Discussion :

[cincap]

Bonjour à toutes et à tous,

Avec mon code, je ne comprends pas le résultat de ma sauvegarde, le fichier Bmp a bien l'extension 'Test.bmp' et le fichier Jpg a bien l'extension 'Test.jpg' et pourtant ils ont la même taille ?

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
 
Var 
 
    jpg:TJPEGImage;
    bmp:TBitMap;
begin
 
Sd2.Filter := 'Fichier photo (*.bmp)|*.bmp|Fichier photo (*.jpg;*.jpeg)|*.jpg;*.jpeg|'; 
 
if not Sd2.Execute then exit else begin
 
With Sd2 Do
  Begin
    // Création des images temporaires
    jpg:=TJPEGImage.Create;
    bmp:=TBitMap.Create;
    Try
      // Le bitmap est lu
      bmp.assign(imagesource1.picture.bitmap);
      bmp.PixelFormat := pf24bit;
      bmp.SaveToFile(sd2.filename);
 
      jpg.CompressionQuality:= 80;
      // Image en couleur
      jpg.GrayScale:=False;
      // Copie du BMP dans le JPG
      jpg.Assign(bmp);
      // Et sauvegarde du JPG
      jpg.SaveToFile(sd2.filename);
 
    Finally
      jpg.Free;
      bmp.Free;
    End;
  End;
end;

Si je sépare les deux sauvegardes j'ai bien un fichier Bmp et un Fichier Jpg de différentes tailles.

Si quelqu'un à une idée du pourquoi merci d'avance.

[ShaiLeTroll]

sd2.filename je ferais tout de même un ChangeFileExt(sd2.filename, '.bmp') et ChangeFileExt(sd2.filename, '.jpg')

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, grand merci pour la solution toute simple que je n'avais jamais exploitée avec les composants TSaveDialog et TOpenDialog.

Ce qui donne :

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
 
Var jpg:TJPEGImage;
    bmp:TBitMap;
 
    Extension : string;
begin
 
Sd2.Filter := 'Fichier photo (*.bmp)|*.bmp|Fichier photo (*.jpg;*.jpeg)|*.jpg;*.jpeg|';  //Fichier photo (*.jpg;*.jpeg)|*.jpg;*.jpeg|' ;
 
if not Sd2.Execute then exit else begin
 
    // Création des images temporaires
    bmp:=TBitMap.Create;
    jpg:=TJPEGImage.Create;
    Try
      // Le bitmap est lu
      bmp.assign(imagesource1.picture.bitmap);
      bmp.PixelFormat := pf24bit;
      //Sauvegarde en bmp
      bmp.SaveToFile(ChangeFileExt(sd2.filename, '.bmp'));
 
      jpg.CompressionQuality:= 80;
      // Image en couleur
      jpg.GrayScale:=False;
      // Copie du BMP dans le JPG
      jpg.Assign(bmp);
      // Et sauvegarde du JPG
      jpg.SaveToFile(ChangeFileExt(sd2.filename, '.jpg')); 
 
      Finally
      jpg.Free;
      bmp.Free;
    End;
  End;

Dans mes essais j'étais parti sur la propriété du TSaveDialog soit "Filterindex = 1 pour .Bmp et 2 pour .Jpg" et naturellement un bug.

Bon weekend et encore merci pour toutes tes réponses fructueuses.

@+,

cincap

[cincap]

Bonjour à toutes et à tous,

@ ShaiLeTroll, juste une petite remarque avec la solution et "Sd2.execute", en sauvegardant le fichier si je choisis en .bmp, le fichier en .jpg est aussi sauvegardé en même temps avec le même nom, je ne sais pas choisir .bmp ou .jpg malgré les deux extensions séparées.

C'est un demi 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Var jpg:TJPEGImage;
    bmp:TBitMap;
 
    Extension : string;
begin
 
Sd2.Filter := 'Fichier photo (*.bmp)|*.bmp|Fichier photo (*.jpg;*.jpeg)|*.jpg;*.jpeg|';  //Fichier photo (*.jpg;*.jpeg)|*.jpg;*.jpeg|' ;
 
if not Sd2.Execute then exit else begin
 
    // Création des images temporaires
    bmp:=TBitMap.Create;
    jpg:=TJPEGImage.Create;
    Try
      // Le bitmap est lu
      bmp.assign(imagesource1.picture.bitmap);
      bmp.PixelFormat := pf24bit;
      //Sauvegarde en bmp
      bmp.SaveToFile(ChangeFileExt(sd2.filename, '.bmp'));
 
      jpg.CompressionQuality:= 80;
      // Image en couleur
      jpg.GrayScale:=False;
      // Copie du BMP dans le JPG
      jpg.Assign(bmp);
      // Et sauvegarde du JPG
      jpg.SaveToFile(ChangeFileExt(sd2.filename, '.jpg')); 
 
      Finally
      jpg.Free;
      bmp.Free;
    End;
  End;

Voila voilou.

@+,

cincap

[cincap]

Bon j'ai corrigé la procédure de sauvegarde pour soit un fichier .bmp soit un fichier .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
 
 with Sd2 {or SaveDialog1}do begin
     Filter     := 'Bitmap (*.bmp)|*.bmp|Jpeg (*.jpeg;*.jpg)|*.jpg' ;
     DefaultExt := '.bmp';
     if not execute then exit else
        case FilterIndex of
             1 : with TBitmap.Create do
                 try
                   Assign(imagesource1.picture.bitmap);
                   PixelFormat := pf24bit;
                   SaveToFile(ChangeFileExt(FileName,'.bmp'));
                 finally
                   Free;
                 end;
 
             2 : with TJPEGImage.Create do
                 try
                   CompressionQuality  := 80; {75..85 : best ratio Size/Quality}
                   ProgressiveEncoding := True; {True : good for web or slow computer}
                   Assign(imagesource1.picture.bitmap);
                   SaveToFile(ChangeFileExt(FileName,'.jpg'));
                 finally
                   Free;
                 end;
end;
end;

@+,

cincap

[Paul TOTH]

j'aurais plutôt tendance à me fier à l'extension qu'au filterIndex...ça peut fonctionner mais si demain tu ajoutes ou modifie l'ordre des filtres tu auras une surprise...notamment si tu ajoutes *.*

quelque chose de cet ordre

Code :

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

1
2
3
4
5
6
7
8
9
 
  var ext := ExtractFileExt(FileName).ToUpper;
  if (ext = '.JPG') or (ext = '.JPEG') then
   ...
  else
  if (ext = '.BMP') then 
   ...
  else
  ShowMessage('Format d''image non supporté');

EDIT: ça permet par ailleurs de faire une fonction SaveToFile indépendante du mode d'acquisition du nom du fichier.

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH, merci pour la suggestion logique et que j'ai appliquée dans ma procédure de sauvegarde.

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
 
with Sd2 {or SaveDialog2}do begin
     Filter     := 'Bitmap (*.bmp)|*.bmp|Jpeg (*.jpeg;*.jpg)|*.jpg|' ;
     DefaultExt := '.bmp';
 
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32bit;
  Jpg := TJPEGImage.Create;
 
  try
  if not execute then exit else 
 
  if LowerCase(ExtractFileExt(Sd2.FileName)) = '.bmp' then
    begin
 
    Bmp.Assign(imagesource1.picture.bitmap);
    Bmp.PixelFormat := pf24bit;
   Bmp.SaveToFile(Sd2.filename);
  end;
 
  if LowerCase(ExtractFileExt(Sd2.FileName)) = '.jpg' then
    begin
   Bmp.Assign(imagesource1.picture.bitmap);
   Jpg.CompressionQuality  := 80; {75..85 : best ratio Size/Quality}
   Jpg.ProgressiveEncoding := True; {True : good for web or slow computer}
   Jpg.Assign(Bmp);
   Jpg.SaveToFile(Sd2.filename);
   end
   finally
   Bmp.Free;
   Jpg.Free;
 end;
end;

Merci à toutes les suggestions.

@+,

cincap

[Cirec]

Bonjour à toutes et à tous,

@ Paul TOTH, merci pour la suggestion logique et que j'ai appliquée dans ma procédure de sauvegarde.

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
 
with Sd2 {or SaveDialog2}do begin
     Filter     := 'Bitmap (*.bmp)|*.bmp|Jpeg (*.jpeg;*.jpg)|*.jpg|' ;
     DefaultExt := '.bmp';
 
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32bit;
  Jpg := TJPEGImage.Create;
 
  try
  if not execute then exit else 
 
  if LowerCase(ExtractFileExt(Sd2.FileName)) = '.bmp' then
    begin
 
    Bmp.Assign(imagesource1.picture.bitmap);
    Bmp.PixelFormat := pf24bit;
   Bmp.SaveToFile(Sd2.filename);
  end;
 
  if LowerCase(ExtractFileExt(Sd2.FileName)) = '.jpg' then
    begin
   Bmp.Assign(imagesource1.picture.bitmap);
   Jpg.CompressionQuality  := 80; {75..85 : best ratio Size/Quality}
   Jpg.ProgressiveEncoding := True; {True : good for web or slow computer}
   Jpg.Assign(Bmp);
   Jpg.SaveToFile(Sd2.filename);
   end
   finally
   Bmp.Free;
   Jpg.Free;
 end;
end;

Merci à toutes les suggestions.

@+,

cincap

Bonjour,

tu peux te passer des variable "Bmp & Jpg" et l'utilisation
d'un bloc try/finally/end n'est pas suffisant

Si un problème survient à la création de TJPEGImage le TBitmap ne sera jamais libéré !

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
  with Sd2 { or SaveDialog2 } do
  begin
    Filter := 'Bitmap (*.bmp)|*.bmp|Jpeg (*.jpeg;*.jpg)|*.jpg|';
    DefaultExt := '.bmp';
 
    if not execute then
      exit;
 
    if LowerCase(ExtractFileExt(Sd2.FileName)) = '.bmp' then
    begin
      with TBitmap.Create do
        try
          Assign(ImageSource1.picture.bitmap);
          PixelFormat := pf24bit;
          SaveToFile(Sd2.FileName);
        finally
          Free;
        end;
    end;
 
    if LowerCase(ExtractFileExt(Sd2.FileName)) = '.jpg' then
    begin
      with TJPEGImage.Create do
        try
          CompressionQuality := 80; { 75..85 : best ratio Size/Quality }
          ProgressiveEncoding := True; { True : good for web or slow computer }
          Assign(ImageSource1.picture.bitmap);
          SaveToFile(Sd2.FileName);
        finally
          Free;
        end;
    end
  end;

Cordialement

@+

[cincap]

@ Cirec, Comment vas tu ? et encore merci pour ta solution qui allège encore mon code et qui fonctionne correctement.

Je me suis permis de le modifier un peu pour mettre aussi le format .jpeg en créant une variable ImgExt.

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
with Sd2 { or SaveDialog2 } do
  begin
    Filter := 'Bitmap (*.bmp)|*.bmp|Jpeg (*.jpeg;*.jpg)|*.jpg|';
    DefaultExt := '.bmp';
 
    if not execute then
      exit;

    ImgExt := LowerCase(ExtractFileExt(Sd2.FileName));

    if ImgExt = '.bmp' then
    begin
      with TBitmap.Create do
        try
          Assign(ImageSource1.picture.bitmap);
          PixelFormat := pf24bit;
          SaveToFile(Sd2.FileName);
        finally
          Free;
        end;
    end;
 
    if (ImgExt = '.jpg') or (ImgExt = '.jpeg') then
    begin
      with TJPEGImage.Create do
        try
          CompressionQuality := 80; { 75..85 : best ratio Size/Quality }
          ProgressiveEncoding := True; { True : good for web or slow computer }
          Assign(ImageSource1.picture.bitmap);
          SaveToFile(Sd2.FileName);
        finally
          Free;
        end;
    end
  end;

@ +,

cincap