Jpeg compress

Résolu/Fermé

sarssor Messages postés 63 Date d'inscription dimanche 22 juillet 2007 Statut Membre Dernière intervention 28 avril 2011 - 28 avril 2011 à 16:20
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 28 avril 2011 à 20:50

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;

A voir également:

Jpegcompress
Compress image ✓ - Forum PHP
Unité image jpeg - Forum Delphi / Pascal
Convertir un jpeg en png ✓ - Forum Delphi / Pascal
C# compress image - Forum C# / .NET
Redimensionner image jpeg - Forum Delphi / Pascal

1 réponse

Réponse 1 / 1

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
28 avril 2011 à 20:50

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

Discussions similaires

Donner une transparence à un Jpeg ???

Conversion image [jpg, gif ou png]

Conversion d'une image tiff -> jpeg sans perte

Comment récuperer la taille d'une image JPEG

redimensionner jpg VB6