El ejemplo de este artículo describe el método para convertir gráficos en formato BMP a gráficos en formato JPG en Delphi. Compártelo con todos para tu referencia. El método de implementación específico es el siguiente:
Copie el código de código de la siguiente manera:
procedimiento ConvertirBMPtoJPG(SFileName,DFileName:cadena);
var
J:TJpegImage;
I:TBitmap;
S,D:cadena;
comenzar
s:=NombreDeArchivo;
d:=NombreDeArchivo;
J:=TJpegImage.Create;
I:=TBitmap.Crear;
I.LoadFromFile(s);
J.Asignar(I);
I.Gratis;
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Mensajes de proceso de aplicación;
J. Gratis;
fin;
Espero que este artículo sea útil para la programación Delphi de todos.