Assign Pic from JPEG to Bitmap in delphi

Jadi Pengen nulis nehh…

Habis baca blognya Fuad tentang share ilmunya jadi pengen nulis jugaa, ohhh yaa btw, Fuad itu temanku Jago banget dengan Java… hehheheheee…. ajarin donk Fu…

Jadi gini, sekarang lagi ada kerjaan bikin SI SMP 4 Babarsari, nah dua minggu lalu aku ma temanku se-tim, Bary daan Andiko ke SMP 4 di babarsari, berangkat dari kampus jam 10-an sampe sana jam 11-an (busyeeett… lama
amat) habis.. Bary pake Boker segala di kampus.. kekekekeekekke…
Akhirnya kamipun sampai di SMP 4 babarsari, karena yang mendapatkan proyek adalah bos Andiko, maka dia pun menjadi Guide kami disana, ehh ternyata Andiko punya tante, tantenya adalah Guru di SMP itu, akhirnya kami pun bertemu dengan tantenya Andiko, setelah basa basi dikit kami pun ditemui olehh Guru yang akan mengelola SI yang kami buat nanti, namanya pak …??? (waduh lupa siapa ya …).. karena saya lupa maka saya menamai bapaknya dengan Mr.SI..Kamipun diterima dengan Mr.SI, akhirnya kamipun mendemokan SI demo yag telah saya buatkan sebelumnya…, si Mr.SI pun terkagum kagum dengan SI demo, (padahal masih berantakannn Je….!), setalah itu kami pun me-List keinginan si Mr.SI , nah salah satu keinginan si Mr.SI adalah adanya Biodata Guru dan Murid tapi bisa Upload Foto, nah sama Andiko bilang “Bisa pak, kami buatkan !!” waksss padahal programmernya aku dan aku ngga tahu caranya bagaimana…. kenapa bisa ngga tahu caranya ??,
Gini pada Delphi, komponen untuk menampilkan Picture ada pada komponen Image, nah kompenen itu hanya bisa membaca file gambar yang berekstensi .BMP, nah Format itu adalah defaultnya Delphi, nah permasalahan timbul dari masalah diatas disebabkan karena sebagaian besar Foto yang biasanya beredar adalh berforamt JPEG……
Wahhhh…..Dengan belajar banyak dari sang dewa akhirnya pun aku bisa…
Berikut adalah Listing Code-nya di Bahasa Delphi

Pertama yang kita lakukan adalah mencari file Fotonya (ya iyalahhh….), bisa make Openpicture Dialog… nah pada
Dialog ini kita filterkan ekstensinya Misalkan Hanya bisa baca File yag berkekstensi JPEG… tempatnya ?? ya di Object Inspector-nya OpenDialog ada property Filter….

Oke setelah ketemu kita lanjutkan dengan menampilkannya pada Image, Imagenya saya namakan “FotoUpload”..

Listing Code :

procedure TFrom1.ButtonUploadClik(Sender: TObject);
begin

If OpenDialog.Execute then
begin

UploadFoto(OpenDialog.Filename);

end;

end;

Procedure TForm1.UploadFoto(FileFoto:String);
var pic:TJPEGImage; // nahh tambahkan JPEG pada Uses List;
begin

if (UpperCase(ExtractFileExt(FileFoto)=’.JPEG’) then
begin
if FileExists(FileFoto) then
begin
pic:=TJPEGImage.Create;
pic.LoadFromFile(FileFoto);
FotoUpload.Picture.Bitmap.Assign(pic);
pic.Free;
end;
end
else

showError(‘File tidak terdektesi !!’);

end;

// sekarang tinggal mensave-nya lagi… ke direktori keinginan kita.

procedure TForm1.SimpanFoto(AlamatFotoSimpan:string);
var jp: TJPEGImage; //Membutuhkan JPEG ditambahkan pada Kluasa USES
begin

jp := TJPEGImage.Create;

try

with jp do
begin

Assign(FotoUpload.Picture.Bitmap);
SaveToFile(AlamatFotoSimpan);

end;

finally

jp.Free;

end;

ya begitulah ilmu baru yang saya dapatkan dari si-Mbah Delphi Bram Gendutssszzzz…
Cukup berguna sihhh…. Silahkan Mencoba…