[求助]图片多张，加载显示不了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片多张，加载显示不了

共有1700人关注过本帖树形打印复制链接主题：[求助]图片多张，加载显示不了

浙江仔

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00

[求助]图片多张，加载显示不了 发帖心情

Post By：2017/8/16 11:12:00 [只看该作者]

图片多张，加载显示不了，只有空白框

是代码问题吗？望指点

With .AddUploader("up1","照片",True) 'True表示允许上传多个文件

.ScaleWidth= 800

If sdr IsNot Nothing Then

For Each dr As DataRow In DataTables("C_SI_Estimate_DTL_FILES").SQLSelect("DTL_id = '" & xdr("DTL_id") & "' and is_active='1' ")

'messagebox.show( dr("FILES_SAVENAME") )

.AddImage( "./web/upload/" & dr("FILES_SAVENAME") )

End If

End With

此主题相关图片如下：screenshot_20170816-111027.png

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 11:46:00 [只看该作者]

1、直接访问地址 "./web/upload/" & dr("FILES_SAVENAME") 能否访问你的图片？

2、试试 .AddImage( "./upload/" & dr("FILES_SAVENAME") )

浙江仔

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00

Post By：2017/8/16 13:23:00 [只看该作者]

是不是和这个有关系：

'通用事件头

'如果网页路径定义了中间目录,如"ordertest/logon.htm" ,则下面的fl实际就是"d:\web\ordertest\weui\weui.me.js"

'因此你需要把WeUI框架三个文件复制到"d:\web\ordertest\weui"目录下

Dim fl As String = ProjectPath & "web\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt",".jpeg"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

所以我把upload文件夹移出web文件夹，然后用http://127.0.0.1/upload/e9ae4d1dcbc8477ab099da1c4027c008.jpeg这个路径，图片就看得到了

浙江仔

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00

Post By：2017/8/16 13:39:00 [只看该作者]

同样的路径，有些照片能显示，有些不能显示，真奇怪！

此主题相关图片如下：qq图片20170816133656.png

此主题相关图片如下：20170816133741.png

此主题相关图片如下：qq截图20170816133735.png

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/16 14:26:00 [只看该作者]

Dim fl As String = ProjectPath & "web\ordertest\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".txt",".jpeg"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

文件目录：web\ordertest\upload\

访问地址：http://127.0.0.1/upload/e9ae4d1dcbc8477ab099da1c4027c008.jpeg

.AddImage( "./upload/" & dr("FILES_SAVENAME") )

浙江仔

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1326 积分：9603 威望：0 精华：1 注册：2010/7/21 14:20:00

Post By：2017/8/16 14:34:00 [只看该作者]

原来真的是路径问题，搞定，谢谢

下一主题 >> << 上一主题

主题：[求助]图片多张，加载显示不了