PEMROGRAMAN DELPHI

PENYIMPANAN DATA GAMBAR PADA BASIS DATA INTERBASE
DENGAN BAHASA PEMROGRAMAN DELPHI 6

Penyimpanan Data ke dalam Tabel
Untuk membuat aplikasi penyimpan data, dilakukan langkah-langkah sebagai berikut:
a. Membuat project baru dalam Delphi
b. Membuat form baruc. Didalam form baru pada nomor b, diberikan komponen-komponen:
- TSpinEdit : untuk memilih nomor gambar- TEdit : Untuk menampung data nama file gambar
- TButton : untuk perintah pencarian file gambar dan untuk perintah
penyimpanan data gambar ke database- TopenDialog : sebagai engine pencari file
- Tquery : sebagai penghubung aplikasi dengan database
- Timage : sebagai media untuk menampilkan data gambar yang akandisimpan

Gambar 1. Komponen Aplikasi Penyimpan Gambar

d. Pada komponen query1 isikan properti-properti databasename dengan nama
alias database TesBlob
e. Double click pada button1 dan ketikkan kode-kode program berikut ini:
procedure TFrmMenyimpan.Button1Click(Sender: TObject);
begin
try
Query1.Open;
Query1.Append;
Query1DATA.LoadFromFile(Edit1.Text);
Query1NOMOR.AsInteger := SpinEdit1.Value;
Query1.Post;exceptMessageDlg('Data dengan kode gambar '+
SpinEdit1.Text +' sudah ada', mtInformation,[mbOK],0);
end;
end;
procedure TFrmMenyimpan.Button2Click(Sender: TObject);
beginif OpenDialog1.Execute thenbegin
Edit1.Text := OpenDialog1.FileName;Image1.Picture.LoadFromFile(
OpenDialog1.FileName);
end;
end;
f. Untuk menjalankan program aplikasi penyimpan gambar tekan Tombol F9.
Gambar 2, menunjukkan hasil eksekusi program penyimpan gambar.

Gambar 2. Aplikasi Penyimpan Gambar

Mengakses Data dari tabel
Untuk membuat aplikasi pengakses data gambar, dilakukan langkah-langkah sebagai
berikut:
a. Membuat project baru dalam Delphi
b. Membuat form baru
c. Didalam form baru pada nomor b, diberikan komponen-komponen:
- TSpinEdit : untuk memilih nomor gambar
- Tquery : sebagai penghubung aplikasi dengan database- Timage : sebagai media untuk menampilkan data gambar yang diakses

Gambar 3. Komponen Aplikasi Pengakses Gambar

d. Pada komponen query2 isikan properti-properti databasename dengan nama
alias database TesBlob
e. Berikan even onchange pada komponen SpinEdit. Adapun even yang diberikan
adalah:
procedure TFrmMenampilkan.SpinEdit2Change(Sender: TObject);
begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select data from '+
'datablob where nomor = :nomor');Query2.ParamByName('nomor').AsInteger :=
SpinEdit2.Value;
Query2.Open;
Image2.Picture.Bitmap.Assign(Query2Data)
end;
f. Jalankan program aplikasi dengan menekan tombol F9. Aplikasi ini akan
menampilkan data-data gambar yang ada dalam basis data sesuai dengan
nomor yang dipilih pada splinedit. Gambar 4 menunjukkan hasil aplikasi.

Gambar 4. Aplikasi Pengakses Gambar