首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

VFP处理JPG图像文件方法谈

(加入日期: 2001-11-11 )

打印文章】【字体:

分享到:
  Bitmap是非压缩型图像文件,占用的存储空间很大,而JPG图像文件是压缩型图像文件,因此,正确保存和显示JPG等图像文件具有很高的实用价值。


  在VFP编程中,需保存图像文件时,通常是将图像以OLE方式保存到一个GENERAL型字段中。当需要在表单中显示该图像时,则使用OLE Bound控件,并将该控件绑定到保存图像的字段上即可。


  上述方法对于保存和显示Bitmap位图时没有问题,但是对JPG、GIF等图像文件则无法显示图像,而只能将其保存时的图像文件名显示出来。


  VFP 6.0版中的Imgae控件支持 bmp、gif、jpg和ico等图像文件格式,但是该控件不能绑定到保存图像文件的GENERAL型字段上。本文所采用的基本思路是:不将图像文件保存到GENERAL型字段中,而是把图像文件保存到一个二进制的Memo型字段中,当需要显示图像时,则将该Memo型字段的内容输出到一个临时文件中,然后再将临时文件名赋给Image控件中Picture属性即可显示图像。在报表打印输出时,也可以采用类似的方法打印图像。


  为实现上述的构想,本文提供了两个函数,一个是将图像文件保存到Memo型字段中,另一个是将Memo型字段中的图像保存到一个外部文件中。


  下面的过程文件是将一个外部图像文件保存到二进制Memo型字段中。图像文件在Memo型字段中的格式为:前128个字节保存原始图像文件名,其后的数据为图像数据。


  Procedure s—ftom


  lparameter s—cfield , s—cfile


  local s—temp—str


  if vartype(s—cfield) !=″C″ or vartype(s—cfile) !=″C″


   =MessageBox(″参数类型错!″,48,″提示″)


   return .F.


  endif


  if type(″&s—cfield″) != ″M″


   =MessageBox( ″ ′ ″+s—cfield +″ ′ ″+ ″字段必须是二进制备注型数据!″,48,″提示″)


   return .F.


  endif


  if !file( s—cfile)


   =MessageBox( ″文件:″+s—cfile+″ 不存在!″,48,″提示″)


   return .F.


  endif


  s—temp—str=PADR(JUSTFNAME(s—cfile),128, ′ ′)+filetostr(s—cfile)


  replace (s—cfield) with s—temp—str


  return .T.


  endproc


  下面的过程文件是将Memo型字段中的图像保存到外部文件中,s—default—return当Memo字段为空或读写错误时该过程返回的隐含信息。该过程调用成功后返回所写的图像文件名,否则返回s—default—return的值。


  procedure s—mtof


  lparameter s—cfield, s—cfile, s—default—return, s—old—file


  local s—temp—str, s—old—file, s—return


  clear resource


  s—return=s—default—return


  s—old—file=′′


  if vartype(s—cfield) !=″C″ or vartype(s—cfile) !=″C″ or vartype(s—default—return) !=″C″


   =MessageBox(″参数类型错!″,48,″提示″)


   return ′′


  endif


  if type(″&s—cfield″) != ″M″


   =MessageBox( ″ ′ ″+s—cfield +″ ′ ″+ ″字段必须是二进制备注型数据!″,48,″提示″)


   return s—return


  endif


  s—temp—str = &s—cfield


  if len(s—temp—str) 〈= 128


   return s—return


  endif


  s—old—file = alltrim(left(s—temp—str,128))


  if empty(s—cfile)


   s—return=s—old—file


  else


   s—return=defaultext( s—cfile, alltrim(justext(s—old—file)) )


  endif


  =STRTOFILE( substr(s—temp—str,129), s—return, .F.)


  return s—return


  endproc


  笔者使用该方法处理了大量的图像文件,在CPU 为P133的电脑上,对于每个图像文件不大于1.5MB的情况,处理速度非常满意。当图像文件较大时,则显示速度比较慢。

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章