Pada artikel terdahulu yang berjudul Tips: Import Image Ke Database - Power Builder telah dibahas cara untuk mengimport image file ke dalam database. Artikel kali ini akan memberi contoh bagaimana memanggil kembali blob dari dalam database dan menampilkan di pictue control maupun meng-export kembali menjadi file gambar.

Blob Emp_id_pic
SELECTBLOB Image
INTO :Emp_id_pic
FROM dba.t_image
WHERE “index image” = :iindex
USING SQLCA ;

integer li_FileNum, loops
long flen
li_FileNum = FileOpen(sfilename,StreamMode!, Write!, Shared!, Replace!)
SetPointer(HourGlass!)
flen = Len(Emp_id_pic)
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

(more…/baca selengkapnya…)

44 Views

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)

(more…/baca selengkapnya…)

49 Views