FOXPRO中怎么显示JPG图片

[mrzhou]

两个问题
1、将图形文件存到FOXPRO中的GEN字段中，但现在在表单中只能显示BMP图像，请问怎么才能显示出JPG格式的图形？
2、怎么将图形下显示的文件名去掉？

谢谢

[mrzhou]

搞FOXPRO的高手哪里去了？

[流星尔]

除了升级到vfp6。0别无他法，6.0以下版本不支持该格式

[mrzhou]

以上的办法确实可以，但是，现在我要做的是一个厂里的程序，图片是产品的图片，命名没有规则。还有什么好办法没有？

[xyf_tck]

产品应该有一个唯一的产品编号来做为产品表的主关键字，只要将jpg文件名与产品编号相关联就行了，与产品的名称无关。

[mrzhou]

我想这个确实是一个方法。但是他们的图片太多，有几百张。文件名都是用产品型号命名的。我想用上面的这个方法有些麻烦。如果能直接显示JPG图片则会简单很多。

[andyting]

按钮加
public file_name
file_name=GETFILE('bmp;jpg;psd;ico','','',0,'请选择照片')
IF LEN(ALLT(file_name))>0
APPEND GENERAL zp FROM "&file_name" link
ENDIF
THISFORM.REFRESH

OLE init加入


IF LEN(ALLT("file_name"))>0
APPEND GENERAL zp
ENDIF
THISFORM.REFRESH

[mrzhou]

以上办法我想确实可以，但是现在产品太多了，并且现在图片已经做好了。命名是用产品型号命名的，很大的随意性。去改的话会很麻烦，并且厂家可能不会同意。

[mrzhou]

刚用以上方法试过，也只有BMP文件才能显示出来。是不是跟系统有关？我用的win2000,foxpro 6.0英文版

[xyf_tck]

那就用产品型号做表的关键字，这应该是唯一的吧，前面所说的jpg文件名前面的p省去不用，反正只要一个产品对应一个jpg 文件就行了。

[mrzhou]

到底有没有其它办法啊！
难道FOXPRO中真不能直接显示JPG图案？
？？？？？？？？？？？？？？？？？？？？？？？

[xyf_tck]

补充一句，如果不是用产品型号做主关键字，只要产品型号是唯一的就可以，先在表单上获得产品的型号将值传递给j即可。

[mrzhou]

gzgz

[mrzhou]

我的FOXPRO版本已经是6.0了？要不要做其它设置？
具体表现在表单中的GEN字段BMP能显示图像，而JPG则只显示文件图标，双击才打开对应的JPG看图程序。

[diruser]

请设置Oleboundcontrol中的AutoActivate的属性.

[mrzhou]

我已经将AutoActivate设为了automatic，但是还是一样的。请问是否还有其它办法？

[xyf_tck]

我觉得将图形文件放在GEN字段中并不好，

[xyf_tck]

对不起没写完就误发出去了，我想VFP中用到图形文件大概有两个用途，一个是用来做背景，二是用来关联某个人的照片，第一个只要在表单的Picture属性中设置即可，第二个可以在表单中加入一个image控件，然后在表单的get focus event属性中加入以下代码
local j
j=alltrim(str(thisform.工号.value))
thisform.image1.picture="p"-j-".jpg"
将工号与jpg文件名相关联，这样在按“上一个”或“下一个”时image控件就自动找到这个人的照片。注意jpg文件要命名为p+工号的形式，并放在与最后编译生成的可执行文件相同的目录里，这样我觉得也省去了将图形文件导入表的过程，而且减小了表的体积。

[mrzhou]

这个问题一定有办法解决。只是没有碰到高手。高手快来

[mrzhou]

upup