Menyimpan Gambar di MySQL dengan Delphi

Sebelumnya sudah saya posting tentang Upload Gambar dengan Delphi . Nah, posting yang sekarang ini lanjutannya yaitu menyimpan gambar di database MySQL.

1. Buat Project baru atau dapat melanjutkan project yang sebelumnya dan siapkan database.

2. Pada Button Upload gambar tambahkan kode berikut :

if OpenPictureDialog1.Execute then

begin

eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);

eFileFoto.Text:=OpenPictureDialog1.FileName;

end;

eFoto merupakan komponen TImage yang berfungsi menampilkan gambar yang telah diupload.

eFileFoto merupakan komponen TEdit yang berfungsi menampilkan nama file foto.

3. Pada Button Simpan tambahkan kode berikut :

with dm.qCalon_Pegawai do

begin

    Active:=False;

    Close;

    SQL.Clear;

    SQL.Text:='insert into data_pribadi_calon (no_ktp, nama,tempat_lahir, tgl_lahir, agama, alamat, no_telp, warganegara, status_nikah, stat, foto) values (:a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k)';

    ParamByName('a').AsString:=eKTP.Text;

    ParamByName('b').AsString:=eNama.Text;

    ParamByName('c').AsString:=eTempat.Text;

    ParamByName('d').AsString:=FormatDateTime('yyyy/mm/dd',eTgl.Date);

    ParamByName('e').AsString:=cbAgama.Text;

    ParamByName('f').AsString:=eAlamat.Text;

    ParamByName('g').AsString:=eTelp.Text;

    ParamByName('h').AsString:=eWn.Text;

    ParamByName('i').AsString:=cbNikah.Text;

    ParamByName('j').AsString:='Calon';

    ParamByName('k').AsString:=eFileFoto.Text;

    Execute;

  end;

Proses simpan sudah selesai.

4. Untuk menampilkan kembali gambar yang sudah tersimpan di database, maka pada dbgrid event oncellclick tambahkan kode berikut :

if (DM.qCalon_Pegawai.fieldbyname('foto').AsString='') or (DM.qCalon_Pegawai.fieldbyname('foto').AsString=Null) then

  begin

    eFoto.Picture:=nil;

  end

  else

  begin

    eFoto.Picture.LoadFromFile(DM.qCalon_Pegawai.fieldbyname('foto').AsString);

    eFileFoto.Text:=DM.qCalon_Pegawai.fieldbyname('foto').AsString;

  end;

Hasilnya terlihat seperti gambar di bawah ini:

Saya Bisa

Ini cerita 4 tahun yang lalu saat saya baru saja lulus dari STM. Masa-masa dimana kita memasuki kehidupan yang sesungguhnya dan dihadapkan 2 pilihan, yaitu kuliah atau kerja. Kalau kerja mau kerja yang kayak gimana dan dimana, kalau kuliah mau pakai biaya siapa coba secara ekonomi keluarga bisa dibilang dibawah standar. Tapi dari lubuk hati yang paling dalam, saya sendiri pengen sekali untuk melanjutkan ke sekolah. Dan saat itu juga ada saudara yang ngasih info kalau ada program kuliah gratis (beasiswa).  Yasudah, saya cari dech informasinya. Dan ternyata benar, pemerintah memberikan kesempatan kuliah untuk siswa berprestasi dari keluarga tak mampu yaitu program BIDIK MISI. Saya pun mendaftar via online dan segera melengkapi berkas-berkas untuk dikirim dan tak lupa saya pun mengajak teman sekolah untuk mendaftar. Kira-kira sebulan kemudian setelah melewati seleksi administrasi dan tes tertulis diumumkanlah hasilnya via online juga. Dan hasilnya, saya gagal dan 2 temanku diterima. Sedih rasanya dan sudahlah mungkin ini bukan rejeki buat saya.

Gagal ujian di salah satu universitas terkemuka di Jawa Tengah hampir membuat saya prustasi untuk ikut ujian kembali. Saya memutuskan untuk bekerja menjadi kasir di tempat rental komputer. Tak selang beberapa minggu saya dikabari oleh saudara saya bahwa ada Universitas yang membuka beasiswa. Saya pun dengan segera mengurus administrasi dimana salah satunya harus melampirkan surat keterangan tidak mampu. Saat saya meminta surat tersebut di kelurahan, salah satu petugasnya entah sengaja atau tidak mengatakan kalimat yang tak enak di dengar. Orang gak punya kuk mau kuliah, buat makan saja kurang-kurang. Perkataan yang membuat saya sedih tapi disisi lain menjadikan semangat buat saya untuk membuktikan bahwa saya bisa. Saya pun mengirimkan berkas administrasi dan mengikuti beberapa tes dan Alhamdulillah saya lolos dan mendapatkan beasiswa penuh di Universitas Teknologi Yogyakarta. 

Saya pun mulai menjalani kegiatan-kegiatan kuliah seperti umumnya mahasiswa lain. Awalnya terasa asing dan tidak punya teman tapi seiring berjalannya waktu semua mengalir begitu adanya dan saya berusaha untuk menikmati kehidupan baru ini walaupun kadang pusing juga dengan setumpuk tugas, kegiatan kuliah, kehidupan di kost serta masalah-masalah pribadi. 

(Teman-teman sekelas saya - SI'10)

Di tengah-tengah waktu yang sangat memusingkan tak lupa saya bersama teman-teman meluangkan waktu untuk refreshing sejenak melupakan beban yang ada dan esoknya kembali menjalani rutinitas seperti biasa.

(Pegunungan Nglanggeran)

(Pantai Ngobaran)

(Sekaten Alun-alun Utara)

(Pantai Slili)

(Taman Sari)

(Warung Roti Van Java)

3 tahun pun tak terasa, semester akhir saya dihadapkan dengan Kerja Praktik dan Tugas Akhir. Hari-hari pun sibuk menemui dosen pembimbing dan mengerjakan tugas besar bersama teman-teman seperjuangan. Seminar KP, Ujian Pendadaran serta kegiatan sakral lainnya harus dilalui demi meraih perjalanan di bangku kuliah.

(Seminar KP)

Waktu yang ditunggu-tunggu pun tiba, waktu dimana perjuangan selama 4 tahun saya kuliah  terbayarkan. Alhamdulillah saya lulus tepat waktu dengan nilai yang memuaskan. Walaupun bukan menjadi yang terbaik tapi saya bangga dengan perjuangan ini. Dan ternyata saya pun BISA, saya sudah lulus lhooo... :D

(Wisuda - with Abang)

(Wisuda - with Ibu & mbk)

Dan Alhamdulillah sekarang saya sudah dapat kerja di Pabrik Gula Blora sebagai IT-Staff.

:)

Upload Gambar di Delphi

Berhubung kemarin baru saja menghadapi masalah upload gambar di delphi dan serching pun hanya menemukan beberapa solusi, maka sekarang akan saya bagikan satu solusi untuk upload gambar di delphi. Langkah-langkahnya sebagai berikut:

1. Buka Delphi (So pasti... :p) dan buat project baru.

2. Tambahkan komponen TOpenPictureDialog, TImage dan TcxButton.

3. Atur Stretch TImage menjadi True pada jendela property untuk mendapatkan hasil gambar yang sesuai dengan ukuran TImage.

4. Tambahkan kode berikut di TcxButton:

if OpenPictureDialog1.Execute then
begin
eFoto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

5. TOpenPictureDialog hanya dapat membuka gambar dengan format *.png;*.png;*.bmp;*.ico. Untuk menambahkan format lain, maka dapat ditambah kode jpeg pada uses.

Atau dapat mengaturnya pada Filter di jendela properties.

6. Hasil setelan di RUN.

Tanpamu

Tahukah kamu?
Sehari tanpa kabar darimu aku khawatir. Aku takut bila terjadi sesuatu dengan mu, entah kenapa pikiran ini selalu begitu dan tak bisa dikendalikan.

Tahukah kamu?
Aku tak pernah melupakanmu walau hanya satu detik pun.
Saat aku pergi bersama kawan-kawanku, aku selalu pegang HP ini, siapa tahu ada sms dari mu, aku tak mau meluangkan hari ku tanpa dirimu..


Jogja, dahulu kala