Tips:Import Image Ke Database –Power Builder

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:

• Membagi File ( File Splitting )
• Kompresi File Dengan 7-Zip
• Download Video
• Folder Guard
• Memilih Anti Virus
• Freeware Player,Video dan Audio Capture
• Freeware FTP Client and FTP Server
• Sumatra PDF is a slim,free,open-source PDF viewer for Windows.
• Advanced File Splitter
• Screen Capture
• Smilies In WordPress
• Optimalisasi Komputer
• Tips:Merawat Komputer
• Aplikasi Untuk Amankan Data Penting
• Membagi File ( Avi Splitting )
• Tips:Nama di Notifikasi Area
• Tips:Foto Sebagai Screen Saver
• Tips:Explore Disk Drive Pada Windows
• Tips:Tune Up Tool For Windows
• Tips:Registry - Mencegah Windows Shutdown
• Tips:Keyboard ShortCut - Win Word 2003
• Tips:Kostumasi Start Menu Windows XP
• Membuat Root di Linux tanpa PASSWORD
• Membuat File PDF dengan PrimoPDF
• Scan Virus Tanpa Anti Virus