Jpeg compress

[Résolu/Fermé]
Signaler
Messages postés
63
Date d'inscription
dimanche 22 juillet 2007
Statut
Membre
Dernière intervention
28 avril 2011
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Salut

je voudrais comprimer jpeg mais sa ne marche pas
PROCEDURE BMPtoJPG (CONST  myBMP: TBitmap; myJPG: TPicture);
VAR
Bitmap: TBitmap;
JPEG : TJPEGImage;
BEGIN
Bitmap := TBitmap.Create;
JPEG := TJPEGImage.Create;
TRY
Bitmap.Assign(myBMP);
JPEG.CompressionQuality := StrToInt(Form1.edit1.Text);
JPEG.Assign(Bitmap);
myJPG.Assign(JPEG);
FINALLY
Bitmap.Free;
JPEG.Free
END;
END;

procedure TForm1.Button1Click(Sender: TObject);
begin
image2.picture:= nil;
BMPtoJPG(Image1.Picture.Bitmap,Image2.Picture);
end; 

1 réponse

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
La réponse est ici

Malgré de nombreux rappels à l'ordre et autant de mises en garde tu continues à polluer le forum

résultat
Sujet + compte clos
+ Admin de Delphi-Praxis averti

adieu