PB数据窗口通过路径显示图片

PB数据窗口通过路径显示图片,第1张

图片控制或数据窗口对象中图片控件方法都一样:

PIC控件方法直接在PIC控件属性中赋值,值则是你的路径

如果是数据窗口对象需取数据库中路径显示图片则在dw中做计算列 在计算列中输入:bitmap ( 图片路径 ) 其中“图片路径”为你数据库字段名。

如果图片是dw直接显示出来的,通过print()是能够打印的

如果是通过其他控件添加显示或者是程序代码显示的,就不行

另外看下你的打印程序,如果直接用print()应该没问题

如果是采用打印控件,将dw作为参数传递然后再进行一系列的处理,那么很可能就打印不出来了

有两方法,1是图片保存在服务器的共享文件夹里,数据库保存图片的路径

2是直接把图片当成大二进制文件保存进数据库,以下是例子:

//取图号

string ls_id

ls_id = this.GetItemString(row,'id')

//选择文件

string pname, fname

value = GetFileOpenName("请选择图片",pname, fname,'jpg', +'Jpg 文件(*.jpg),*.jpg,所有文件(*.*),*.*')

IF value <>1 THEN return

//显示文件

dw_1.object.p_1.filename = fname

SetPointer( HOURGLASS! )

SQLCA.AutoCommit = True

//测定文件长度

long ll_len

ll_len = FileLength(pname)

//打开文件

integer fileno

fileno = FileOpen(pname,StreamMode!,READ!,LOCKREAD!)//读文件

blob lb_file ,lb_fn

int li_ii,ii

li_ii = ceiling(ll_len/32765)

for ii = 1 to li_ii

FileRead (fileno, lb_fn)

lb_file = lb_file + lb_fn

next//文件存入数据库

updateblob sysman set pict = :lb_file where id = :ls_id

if SQLCA.SQLNRows >0 then

MessageBox('提示信息','此图片以成功存入数据库!')

end if

fileclose(fileno)

SQLCA.AutoCommit = False


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9650897.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-30
下一篇 2023-04-30

发表评论

登录后才能评论

评论列表(0条)

保存