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
beginjp := 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…











napa mesti delphi? disuruh andiko yah? hihi…
heheheee maklumlah pak cuma bisa delphi…
gak ada yang suruh tuhh…
andiko kan cuma bos ane
hihihi…
halah….
ini sih gampang…
wong tinggal convert dari bmp ke jpeg.
pake acdsee kan juga bisa
Joesacth : :
Wahh josesacth anda tidak memperhatikan artikelnya, kan aku bilang mau buat SI Akademik yang bisa buat upload Foto…, jadi ngga bisa donk make ACDSEE ?, itu mah menyulitkan pemakainya, mendingan dia cari sembarang gambar, bisa ditampilkan, dan disimpan…
kekekekee.. kali ini anda salah..
mangsudku sebelum diupload, fotonya dikonvert dulu, kekekekeke
add link gue juga dong.Ngomong2 websiteku sekarang pake ajax
Weeb alamatnya apa ??, sok sekarang ya pake Ajaxx
aku dulu juga suka ajax, waktu masih ada nkwanko kanu, finidi george, patrick kluivert, marc overmars, edwin van der sar, sama jari litmanen
Thanks!,