Simpan File ke dalam Database dengan Lazarus

Kadang kita memerlukan aplikasi untuk menyimpan sebuah file baik berupa gambar, dokumen, file pdf atau file lainnya ke dalam database. Untuk itu Anda perlu untuk menciptakan tipe data Blob dalam struktur tabel di database Anda.  

Berikut ini cara untuk menyimpan gambar ke dalam database dengan Lazarus. Untuk contoh ini saya menggunakan tabel database :
create table PHOTOS (
  PHOTOID INTEGER,
  FILENAME VARCHAR(50) ,
  CONTENT BLOB
  , primary key (PHOTOID)
);

Siapkan komponen berikut :
  • TButton,
  • TIBConnection, (atau dapat menggunakan mysql connection atau sesuai databasenya)
  • TSQLTransaction,
  • TSQLQuery,
  • TOpenDialog
Masukkan tulisan db dalam uses.

Prosedurnya saat klik tombol maka akan muncul dialog pilih gambar. Setelah dialog pilih gambar di klik OK maka akan menginsert ke dalam tabel foto. Masukkan kode berikut dalam tombol untuk simpan/upload:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    SQLQuery1.SQL.Text:= 'insert into Photos (FileName, Content) values (:FileName, :Content)';
    SQLQuery1.ParamByName('FileName').AsString:= ExtractFileName(OpenDialog1.FileName);
    SQLQuery1.ParamByName('Content').LoadFromFile(OpenDialog1.FileName, ftBlob);
    SQLQuery1.ExecSQL;
    SQLTransaction1.Commit;
  end;
end;
Sekian cara untuk menyimpan gambar ke dalam database dengan Lazarus. Untuk cara menampilkan tunggu tutorial selanjutnya.

Posting Komentar

Jika ingin memberikan pertanyaan ataupun berdiskusi, mohon agar melalui kolom komentar pada artikel yang terkait dengan topik permasalahan.

ERROR - HALAMAN TIDAK TERSEDIA

Copyright © Hakayuci