Konversi (Convert) BMP to JPG


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.

About muhal

Dosen Jurusan Pendidikan Teknik Elektro FT UNY

Posted on March 24, 2007, in tips & trik. Bookmark the permalink. 3 Comments.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: