17,082
社区成员
发帖
与我相关
我的任务
分享关于blob
我现在需要在oracle中写入图片(BLOB)，
bde不支持，
现采用odac,
但是是试用版的，
编译后不能独立运行。
谁有正式版，愿现金购买。[:D]
bde不支持，
现采用odac,
但是是试用版的，
编译后不能独立运行。
谁有正式版，愿现金购买。[:D]
...全文
请发表友善的回复…
发表回复
skingddddd 2003-10-21
- 打赏
- 举报
全給
skingddddd 2003-10-21
- 打赏
- 举报
Blob Emp_id_pic
SELECTBLOB Emp_pic
INTO :Emp_id_pic
FROM Employee
WHERE Employee.Emp_Num = 100
USING Emp_tran ;
p_1.SetPicture(Emp_id_pic)
SELECTBLOB Emp_pic
INTO :Emp_id_pic
FROM Employee
WHERE Employee.Emp_Num = 100
USING Emp_tran ;
p_1.SetPicture(Emp_id_pic)
skingddddd 2003-10-21
- 打赏
- 举报
int fh
blob Emp_id_pic
fh = FileOpen("c:\emp_100.bmp", StreamMode!)
IF fh <> -1 THEN
FileRead(fh, emp_id_pic)
FileClose(fh)
UPDATEBLOB Employee SET emp_pic = :Emp_id_pic
WHERE Emp_num = 100
USING Emp_tran ;
END IF
IF Emptran.SQLNRows > 0 THEN
COMMIT USING Emp_tran ;
END IF
blob Emp_id_pic
fh = FileOpen("c:\emp_100.bmp", StreamMode!)
IF fh <> -1 THEN
FileRead(fh, emp_id_pic)
FileClose(fh)
UPDATEBLOB Employee SET emp_pic = :Emp_id_pic
WHERE Emp_num = 100
USING Emp_tran ;
END IF
IF Emptran.SQLNRows > 0 THEN
COMMIT USING Emp_tran ;
END IF
良朋 2003-10-20
- 打赏
- 举报
很简单啊，做一个小过程就可以了，（写入，读出的 我都有现成的，既然你说你用现金购买，我就不贴了。付钱我就给你。呵呵。
Email:it_leon@sohu.com
QQ:120804558
Email:it_leon@sohu.com
QQ:120804558
luckysxn 2003-10-20
- 打赏
- 举报
写入图片为什么还用工具？
不明白。
不明白。
