Contoh artikel ini menjelaskan metode mengubah grafik berformat BMP menjadi grafik berformat JPG di Delphi. Bagikan dengan semua orang untuk referensi Anda. Metode implementasi spesifiknya adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
prosedur KonversiBMPtoJPG(SFileName,DFileName:string);
Var
J:TJpegImage;
Saya:TBitmap;
S,D: Tali;
mulai
s:=SFileNama;
d:=DFileNama;
J:=TJpegImage.Buat;
I:=TBitmap.Buat;
I.LoadFromFile(s);
J.Tugas(I);
I.Gratis;
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Aplikasi.prosespesan;
J.Gratis;
akhir;
Saya harap artikel ini bermanfaat untuk pemrograman Delphi semua orang.