VFP处理JPG图像文件方法谈

来源： 作者： 出处：综艺读书 2006-10-13 

关 键 词：文件格式  存储  os  ie  

　　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的情况，处理速度非常满意。当图像文件较大时，则显示速度比较慢。

更多内容请看数据库处理专题专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：VFP查询系统实现技巧六则

较新的文章：VFP调用Word创建文档