Pada artikel ini akan disajikan penggunaan powerscript untuk meng-import file image ke database. Penulis menggunakannya pada saat memasukkan foto dari user ke database. Yang perlu dicermati pada script berikut ini adalah penghitungan jumlah loops/perulangan yang harus dilakukan menggunakan FileRead. Secara default FileRead terbatas sampai pada 32765 bytes.

integer li_FileNum, loops, i
long flen, bytes_read
blob b, tot_b

SetPointer(HourGlass!)
flen = FileLength(sfilename)
li_FileNum = FileOpen(sfilename,StreamMode!, Read!, LockRead!)
IF flen > 32765 THEN

IF Mod(flen, 32765) = 0 THEN

loops = flen/32765

ELSE

loops = (flen/32765) + 1

END IF

ELSE

loops = 1

END IF

FOR i = 1 to loops

bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + b

NEXT
FileClose(li_FileNum)

Untuk memasukkan file gambar tersebut kita tinggal mengupdate kolom pada tabel yang kita buat ( tipe data dari kolom tersebut harus long binary ). Pada script dibawah kolom Image kita isi dengan variabel tot_b ang bertipe blob untuk data dengan “index image” = :iindex.

UPDATEBLOB dba.t_image SET “Image” = :tot_b
WHERE “Index Image” = :iindex
USING sqlca ;

File library / PBL dapat anda download disini. Selamat mencoba. Catatan: fungsi dalam library ini menggunakan 2 parameter yaitu sfilename bertipe string untuk namafile yang ingin kita import dan iindex bertipe integer merupakan index dari file ( bisa juga yang lain misalnya NIP atau NIM ).

Inlinks :

337 Views