L'exemple de cet article décrit la méthode de conversion de graphiques au format BMP en graphiques au format JPG dans Delphi. Partagez-le avec tout le monde pour votre référence. La méthode spécifique de mise en œuvre est la suivante :
Copiez le code comme suit :
procédure ConvertBMPtoJPG(SFileName,DFileName:string);
Var
J:TJpegImage;
I:TBitmap ;
S,D : chaîne ;
commencer
s:=SFileName;
d:=DFileName;
J:=TJpegImage.Create;
I:=TBitmap.Create;
I.LoadFromFile(s);
J.Assign(I);
I.Gratuit ;
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Messages de processus d'application ;
J.Free;
fin;
J'espère que cet article sera utile à la programmation Delphi de chacun.