有一个项目需要在数据库中建立图片库，然后在PB中根据对于图片ID来调用相应的图片
本人新手，不知道如何实现，求达人指导~
------解决方案--------------------
给你点 代码 做下参考 设置BLOB变量 进行存储读取过程
string ls_pathname, ls_filename
integer li_value,li_FileNum,loops,i
long ll_fileLength,bytes_read,new_pos
blob b, tot_b
Blob gb_photo
//name= string(sle_1.text) 数据窗口查询变量
li_value = GetFileOpenName("选择照片", &
+ ls_pathname, ls_filename, "jpg","Jpg Files (*.jpg),*.jpg")
IF li_value = 1 THEN
SetPointer(HourGlass!)
ll_fileLength= FileLength(ls_filename)
li_FileNum = FileOpen(ls_filename, &
StreamMode!, Read!, LockRead!)
IF ll_filelength > 32765 THEN
IF Mod(ll_filelength, 32765) = 0 THEN
loops =ll_filelength/32765
ELSE
loops = (ll_filelength/32765) + 1
END IF
ELSE
loops = 1
END IF
new_pos = 1
FOR i = 1 to loops
bytes_read = FileRead(li_FileNum, b)
tot_b = tot_b + b
NEXT
FileClose(li_FileNum)
gb_photo=tot_b
UPDATEBLOB employee_basic SET pc = :gb_photo where emp_name = :name USing sqlca;
IF Sqlca.SQLNRows > 0 THEN
messagebox("提示","数据保存成功")
COMMIT USING SQLCA;
END IF
P_1.setpicture(gb_photo)
Elseif li_value=-1 then
MessageBox("选择照片","打开文件错误!")
End If
如果 使用 可以 我再把 读取图片的代码 给你