以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发 jpeg图片显示不了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126133)

--  作者:rogen
--  发布时间:2018/10/15 10:32:00
--  移动开发 jpeg图片显示不了
移动开发  做了个上传图片的功能
发现jpeg图片不能显示,在httprequest里添加jpeg格式,还是不能显示


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/10/15 11:11:00
--  

1、图片文件,要上传到 web 文件夹下才行;

 

2、你在web文件夹放一个jpg或者jpeg文件,然后在浏览器直接输入网址,看能否访问。如果不能访问,说明你add的代码没有执行。


--  作者:rogen
--  发布时间:2018/10/15 11:19:00
--  
以下是引用有点甜在2018/10/15 11:11:00的发言:

1、图片文件,要上传到 web 文件夹下才行;

 

2、你在web文件夹放一个jpg或者jpeg文件,然后在浏览器直接输入网址,看能否访问。如果不能访问,说明你add的代码没有执行。

图片已上传至服务器了

我把扩展名改为jpg,把数据库里记录的文件名的扩展名也改为jpg

就能正常显示了


--  作者:有点甜
--  发布时间:2018/10/15 11:27:00
--  

重新执行下面代码

 

HttpServer.Close
HttpServer.Prefixes.Add("http://*/")
HttpServer.Extensions.add(".jpeg")
HttpServer.Start()


--  作者:有点甜
--  发布时间:2018/10/15 11:29:00
--  

如果还有问题,就删除或者修改下面代码

 

If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar",".jpeg" \'这里加上了js扩展名
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If


--  作者:rogen
--  发布时间:2018/10/15 11:41:00
--  

4楼方法不行,5楼方法可以

感觉HttpServer.Extensions.add 这个命令不好用啊

是不是bug?

[此贴子已经被作者于2018/10/15 11:41:23编辑过]

--  作者:有点甜
--  发布时间:2018/10/15 11:44:00
--  
以下是引用rogen在2018/10/15 11:41:00的发言:

4楼方法不行,5楼方法可以

感觉HttpServer.Extensions.add 这个命令不好用啊

是不是bug?

[此贴子已经被作者于2018/10/15 11:41:23编辑过]

 

不是bug,如果你用了add,你要把5楼的那段代码删掉才行。


--  作者:rogen
--  发布时间:2018/10/15 12:08:00
--  

先试了4楼的add方法(没用5楼代码),无效

后改用5楼的方法才有效


--  作者:有点甜
--  发布时间:2018/10/15 12:09:00
--  
以下是引用rogen在2018/10/15 12:08:00的发言:

先试了4楼的add方法(没用5楼代码),无效

后改用5楼的方法才有效

 

不是bug,你可以把5楼的那段代码删掉,然后用4楼代码。