以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  在手机端想显示一个图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133390)

--  作者:gudao123456
--  发布时间:2019/4/13 12:44:00
--  在手机端想显示一个图片
在手机端想显示一张图片,代码如下:
With wb.AddArticle("","ar1")
.useGallery=True
.addTitle("h1","【" & dr("username") & "】资料列表")
.Addimage("d:/web/图片材料/" & gzxx & username & "/1.jpg" )
.AddContent("【基本情况】" & jbqk)
.AddContent("【录取情况】" & lqqk)
End With
 e.WriteString(wb.Build) 
其他项目都显示正常,就是图片没有显示出来,有一个灰色的图片图标,但点击后就是黑黑的一片,图片文件是存在的,代码哪里有问题呢?谢谢!

[此贴子已经被作者于2019/4/13 13:32:54编辑过]

--  作者:有点蓝
--  发布时间:2019/4/13 13:54:00
--  
看看:http://www.foxtable.com/mobilehelp/scr/0044.htm
--  作者:gudao123456
--  发布时间:2019/4/13 16:07:00
--  
谢谢!我试了,那是单独显示图片,
我是想将图片列的图片与其他文字一起显示,我的设计有图片列是tucl,图片的存放地址是:d:\\web\\图片材料\\ & gzxx & "\\" & userna ,文件路径是动态合成的,图片文件有两个:1.jpg 和2.jpg 谢谢!

--  作者:有点蓝
--  发布时间:2019/4/13 16:33:00
--  
.Addimage("/图片材料/" & gzxx & username & "/1.jpg" )
--  作者:gudao123456
--  发布时间:2019/4/13 16:36:00
--  
我写错路径了:应该是:"d:/web/图片材料/"  & gzxx & "/" & username & "/1.jpg"

我用你的代码,在“图片材料”目录下建立了一个“username”目录,将1.jpg拷贝进去,可以显示,但改为真实路径:.Addimage(“/图片材料/” & gzxx & "/" & username "/1.jpg" )后又不行了,谢谢
[此贴子已经被作者于2019/4/13 17:09:27编辑过]

--  作者:有点蓝
--  发布时间:2019/4/13 16:53:00
--  
认真看看2楼帮助,帮助里说的绝对路径和C\\S中文件的绝对路径不是一个概念
--  作者:gudao123456
--  发布时间:2019/4/13 17:10:00
--  
我写错路径了:应该是:"d:/web/图片材料/"  & gzxx & "/" & username & "/1.jpg"

我用你的代码,在“图片材料”目录下建立了一个“username”目录,将1.jpg拷贝进去,可以显示,但改为真实路径:.Addimage(“/图片材料/” & gzxx & "/" & username "/1.jpg" )后又不行了,谢谢
[此贴子已经被作者于2019/4/13 17:09:27编辑过]


--  作者:有点蓝
--  发布时间:2019/4/13 17:25:00
--  
.Addimage(“/图片材料/” & gzxx & "/" & username & "/1.jpg" )
--  作者:gudao123456
--  发布时间:2019/4/13 17:38:00
--  
.Addimage(“/图片材料/” & gzxx & "/" & username & "/1.jpg" )

这个“&”,是有了的,是我提问时漏打而已,不知为什么就不行

With wb.AddArticle("","ar1")
.addTitle("h1","【" & dr("username") & "】资料列表")
.AddContent("【基本情况】" & jbqk)
.AddContent("【录取情况】" & lqqk)
.Addimage("/图片材料/" & gzxx & "/" & username & "/1.jpg" )
End With

[此贴子已经被作者于2019/4/13 17:40:07编辑过]

--  作者:gudao123456
--  发布时间:2019/4/13 17:47:00
--  
奇怪:
With wb.AddArticle("","ar1")
.addTitle("h1","【" & dr("username") & "】资料列表")
.AddContent("【基本情况】" & jbqk)
.AddContent("【录取情况】" & lqqk)
.Addimage("/图片材料/" & gzxx & "/" & username & "/1.jpg" )
.Addimage("/图片材料/" & gzxx & "/" & username & "/2.jpg" )
End With
加多了红色的一行,2.jpg却能显示了,1.jpg就是不行,(图片是正常的,可以打开浏览)