Anda mengalami kesulitas dalam program untuk mengubah format gambar dari BMP menjadi JPG? Mungkin banyak program aplikasi yang dapat membuat fungsi seperti ini, akan tetapi kadang kita perlu membuat untuk keperluan khusus seperti pada saat membuat aplikasi database. Terkadang fasilitas standart tidak support format database bergambar dengan JPG sehingga perlu menggunakan BMP. Nah bagaimana cara konversinya…

Tips ini dapat dengan mudah diimplementasikan dengan membuat program dengan delphi sebagai berikut :

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
bmp : TImage;
jpg : TJpegImage;
begin
bmp := TImage.Create(nil);
jpg := TJpegImage.Create;
bmp.picture.bitmap.LoadFromFile ( ‘c:\gambar.bmp’ );
jpg.Assign( bmp.picture.bitmap );
// Disini anda dapat mengatur properties objek gambar
jpg.SaveToFile ( ‘c:\gambar.jpg’ );
jpg.Free;
bmp.Free;
end;
Semoga tutorial ini bermanfaat bagi yang memerlukan.