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 :
Siapkan komponen berikut :
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:
Sekian cara untuk menyimpan gambar ke dalam database dengan Lazarus. Untuk cara menampilkan tunggu tutorial selanjutnya.
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
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;
1 komentar:
terimakasih mas, sangat membantu..
Replybrgkali ada untuk menampilkannya mas..
terimakasih
Posting Komentar