连编与打包
程序连编后能正常运行,如下:页面中是两个图象控件,两张JPG图片。
连编前在VFP的源项目文件夹中能正常显示;连编后也能正常显示。
但,拷到别的机器上后(有运行库),图片无法显示,其他一切正常。
这两张图片是存储在数据库中数据表中某个Blob字段中的,呃,不知道问题出在哪里。
USE classes IN 1 GO TOP Thisform.pageframe1.page4.image1.PictureVal = pict1 SKIP Thisform.pageframe1.page4.image2.PictureVal = pict1 CLOSE TABLES
[此贴子已经被作者于2023-5-15 22:25编辑过]
PUBLIC LCSys16,LCNowpath LCSys16=SYS(16) &&获取当前程序所在的全路径,包括当前运行程序名。 LCNowpath=LEFT(LCsys16,RAT("\",LCSys16,1)) &&获取当前运行程序所在工作目录。 SET DEFAULT TO (LCNowpath) &&程序文件所在的当前路径
lj1=LCNowpath+"logo.jpg" lj2=LCNowpath+"mepic.jpg" Thisform.pageframe1.page4.image1.Picture = &lj1 Thisform.pageframe1.page4.image2.Picture = &lj2
[此贴子已经被作者于2023-5-15 22:32编辑过]