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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)