调试正常,编译后就不正常了,紧急求助!!!!!!!!!100分

ahhfclt 2004-10-29 10:47:10
我用的是二进制备注型字段贮存图片,然后用image显示出来,语句如下
thisform.image1.picture="TMP.JPG"
thisform.image1.height=200
thisform.image1.width=150
thisform.refresh()
调试是正常的可以显示的,不过编译成可独立运行的文件后就不显示了,请各位大大指教,怎么样解决,是什么原因?
...全文
149 15 打赏 收藏 举报
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
fengyeng 2004-11-18
  • 打赏
  • 举报
回复
设置默认路径了吗?
Surpass 2004-11-02
  • 打赏
  • 举报
回复
通用型的字段方便些。

另外:
thisform.image1.picture="TMP.JPG"
thisform.image1.height=200
thisform.image1.width=150
thisform.refresh()

执行这些代码前设置默认路径了吗?
xclzteb 2004-11-01
  • 打赏
  • 举报
回复
把图片保存为通用型不更好吗?可以省很多事。
LAIYANGPJ 2004-10-29
  • 打赏
  • 举报
回复
你加上自动默认的路径试一下:
STRTOFILE(photo,"TMP.JPG")
***********
TMP=sys(5)+sys(2003)+'\TMP.JPG'
**************
thisform.image1.picture=TMP
thisform.image1.height=200
thisform.image1.width=150
thisform.refresh()

ahhfclt 2004-10-29
  • 打赏
  • 举报
回复
而且我发现实际上tmp.jpg文件已随着我的操作改变了,不过就是image控件不变,真奇怪,在foxpro环境下是可以改变的,问题在哪呢
ahhfclt 2004-10-29
  • 打赏
  • 举报
回复
给我的感觉就是image不刷新,刚运行的时候那个默认的可以显示,就是不刷新,不过如果有设置有错的话,为什么在foxpro环境下运行都刷新正常呢
十豆三 2004-10-29
  • 打赏
  • 举报
回复
也就是说:

STRTOFILE(photo,"TMP.JPG")
之前加:
go 记录号 &&这个记录号是你字段photo存放TMP.JPG二进制数据的记录号。
ahhfclt 2004-10-29
  • 打赏
  • 举报
回复
成功了,不过image控件显示不出来,但是我在foxpro环境下可以显示出来的呀
十豆三 2004-10-29
  • 打赏
  • 举报
回复
我按照你的题目,做了一个实验,没有问题。

估计是执行
STRTOFILE(photo,"TMP.JPG")
这句时,当前photo字段里是空的,也就是说你在执行
STRTOFILE(photo,"TMP.JPG")
之前很有可能记录的当前位置发生了变化。
十豆三 2004-10-29
  • 打赏
  • 举报
回复
检查一下这句成功了吗?
STRTOFILE(photo,"TMP.JPG")

即:
P=STRTOFILE(photo,"TMP.JPG")
if P=0
messagebox("未成功!",16)
else
messagebox("成功!",64)
endif


ahhfclt 2004-10-29
  • 打赏
  • 举报
回复
前面还有一句STRTOFILE(photo,"TMP.JPG")即是将字段值转化成tmp.jpg
LAIYANGPJ 2004-10-29
  • 打赏
  • 举报
回复
看一下你的TMP.JPG图片是不是没有在你的编译文件夹里?
LAIYANGPJ 2004-10-29
  • 打赏
  • 举报
回复
nnd,不管那么多好了就成........
ahhfclt 2004-10-29
  • 打赏
  • 举报
回复
NND,我将tmp.jpg改成tmp1,即将所有的tmp改成tmp1就成了,这是什么原因呀,是不是foxpro问题
十豆三 2004-10-29
  • 打赏
  • 举报
回复
在foxpro环境下是可以改变的,问题在哪呢

---------------------
说明你在foxpro环境下,当前目录里有tmp.jpg这个文件,用以下在foxpro环境下运行,看一看有没有问题。

DELETE FILE "tmp.jpg"
STRTOFILE(photo,"TMP.JPG")
IF FILE("TMP.JPG") &&判断STRTOFILE是否成功
thisform.image1.picture="TMP.JPG"
thisform.image1.height=200
thisform.image1.width=150
thisform.refresh()
ELSE
MESSAGEBOX("未找到Tmp.jpg文件!",16)
RETURN
ENDIF
相关推荐
发帖
VFP

2574

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2004-10-29 10:47
社区公告
暂无公告