如何将一个表中的照片显示在表单上？

[yuanzhang]

我的表中照片字段为通用类型，我想让表中的照片在表单上显示，显示在一个image 中，请问写代码如何完成？

[atsiang]

同意

也可在FORM的INIT:
THIS.Oleboundcontrol1.CONTROLSOURCE="rsda.照片"

[Joan1980]

但是我试过了，照片在表单上根本不会显示，只显示一个图片的图标，难道照片的格式有规定吗？望指导！

[atsiang]

图片确认在表里？
QQ：66741441联系

[itzhiren]

对呀，我刚才也试了一下，也是这个问题，表里有图片，但是只显示一个图标

[itzhiren]

到底应该怎么整呢？楼主搞定了没有？

[yuanzhang]

只能显示的是BMP格式文件,但是我希望现在用程序来实现

[itzhiren]

进入表单设计器；

调OLE绑定型控件工具；

在表单上适当地方画出控件，就象设置一个image控件一样;
设置其controlsource属性为一通用字段的字段名，比如"rsda.照片"

[yuanzhang]

我在一本书上看到这样一段代码，用于显示zhqkb中一个记录的照片字段，
在FORM的INIT事件中
select zhqkb
set order to kh
if(alltrim("zhqhb.照片")+".bmp") &&在此之前必须先准备好文件zhqhb.照片.bmp
thisfrom.image1.picture=alltrim("zhqhb.照片")+".bmp"
endif
我不大明白if(alltrim("zhqhb.照片")+".bmp") &&在此之前必须先准备好文件zhqhb.照片.bmp
这句话的意思，是指一个文件呢，还是指表中的字段，运行程序时这句时，提示错误，数据类型不匹配。
盼望各位大侠指点。

[LAIYANGPJ]

你上面的这语句对吗?IF 后是不是少了FOUND?

[LAIYANGPJ]

或是FILE()函数吧!

[yuanzhang]

我是从书上抄的例子，我加上FOUND再调试看看，可是难道不用指定图片的路径吗？还是在把图片放到默认路径中就可以了？

[LAIYANGPJ]

你先把这个.BMP文件COPY到当前路径中来,后不用FOUND()用FILE()试一下.

[十豆三]

看意思是指zhqhb表中的照片字段内容为图片文件文件名，但应该为：
if(alltrim(zhqhb.照片)+".bmp")

[cxmcxm]

将图片添加到general字段后，用ole容器控件即可直接显示图片。
用append general命令将图片添加到通用字段中。

[十豆三]

不用通用型字段，用备注型来存放图片的字符串。比如备注型字段名为 BZ
向表内存放图片的字符串时：
replace BZ WITH FILETOSTR("tmp.jpg") &&注意文件路径，假设tmp.jpg文件在当前路径内

表单内的控件还用IMAGE控件。
然后在表单的init事件：
USE 表名
dele file "tmp.jpg"
strtofile(bz,"tmp.jpg")
thisform.image1.picture="tmp.jpg"

[itzhiren]

我知道为什么只显示了一个图标了,因为我是直接在表里面增加的图片,增加的时候就只增加了一个图标,正确的应该是把图片复制,然后粘贴到表的图片字段，就可以显示了，不过使用image控件还没试过

[yuanzhang]

还是不对，如果改成成apple_8180说的那样，提示函数的参数的值、类型或书目无效。
加上found 函数也不对呀，盼望各位在想想办法，我是想用代码实现。

[十豆三]

select zhqkb
set order to kh
if (alltrim(zhqhb.照片)+".bmp") &&在此之前必须先准备好文件zhqhb.照片.bmp
thisfrom.image1.picture=alltrim(zhqhb.照片)+".bmp"
endif

[十豆三]

前提是： &&以表zhqhb中的字段"照片"为主文件名的bmp文件必须存在当前路径下
这种方式是BMP文件不在表中，而是在当前文件夹下。

select zhqkb
if file((alltrim(temp.name)+".jpg"))
thisform.image4.picture=alltrim(temp.name)+".jpg"
endif