当前位置: 代码迷 >> PB >> PB9保存图时的有关问题
  详细解决方案

PB9保存图时的有关问题

热度:168   发布时间:2016-04-29 10:32:35.0
PB9保存图时的问题
有一个数据窗口,我加了一个p_1图片控件。。。
在w_goods窗口中有一个加载图片的按钮。。
,可以找开图片。。但是保存时有问题。


当goodsid=1或ll_id=dw_1.GetItemnumber(dw_1.getrow(),'goodsid') 时,久久没有反应
或当ll_id=dw_1.GetItemnumber(dw_1.rowcount(),'goodsid') 时,就可以保存图片
按钮的代码如下主


integer value,ll_id
   
  dw_1.accepttext()
  ll_id=dw_1.GetItemnumber(dw_1.getrow(),'goodsid')  
 
  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  
  MessageBox('提示信息',ll_id)
  
  updateblob zp_goods set picture=:lb_file where goodsid=:ll_id using sqlca;  
  SQLCA.AutoCommit = true
  if SQLCA.SQLNRows>0 then  
commit;
  MessageBox('提示信息','此图片以成功存入数据库!')  
  end if  
  fileclose(fileno)  
  SQLCA.AutoCommit = False  
  
  
  //////////备注
zp_goods表中有三条记录
goodsid 从一到三。。


  
  
  
  
 

------解决方案--------------------
怎么是保存有问题,又怎么才是可以保存
问题看几遍,已经晕了
  相关解决方案