以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Uploade与图片浏览器问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111422)
--  作者：y2287958
--  发布时间：2017/12/21 16:44:00
--  Uploade与图片浏览器问题
问题：用Uploade作了一个图片浏览器，服务器上的图片可以正常浏览，但单击图片出现图片浏览窗口后图片就闪了一下就是黑屏，未能成功显示。
我以为是图片大小问题，将图片处理到100K以下仍然无法显示。但我用Uploade上会手机中的图片就算是用M的图片照样能在浏览窗口中看到，问题在哪里地？如何解决？
--  作者：有点甜
--  发布时间：2017/12/21 16:48:00
--  

你代码怎么写的？直接用着这个又没问题？

 

http://www.foxtable.com/mobilehelp/scr/0093.htm

 
--  作者：y2287958
--  发布时间：2017/12/21 16:53:00
--  
用的就是类似这个代码啊，请分析一下。
\'\'\'
\'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "e:\\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"
            e.WriteFile(fl)
            Return  \'这里必须返回
    End Select
End If
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
Select Case e.Path
    Case "test.htm"
        If e.PostValues.Count = 0 Then
            wb.AddForm("","表单1","test.htm")
            With wb.AddInputGroup("表单1","输入框分组1","文件上传")   \'文件上传
                .AddUploader("文件上传1","")
            End With
            With wb.AddInputGroup("表单1","输入框分组2","浏览式文件上传")   \'带图片浏览的文件上传
                With .AddUploader("文件上传2","图片",True)   \'True表示允许一次上传多个文件
                    .AllowAdd = False \'关闭文件上传功能
                    .AddImage("./images/170940_20170502_111846s.jpg","./images/170940_20170502_111846.jpg")
                    .AddImage("./images/170940_20170531_155241s.jpg","./images/170940_20170531_155241.jpg")
                    .AddImage("./images/170940_20170629_112633s.jpg","./images/170940_20170629_112633.jpg")
                    .AddImage("./images/170940_20170724_152627s.jpg","./images/170940_20170724_152627.jpg")
                End With
            End With
            With wb.AddButtonGroup("表单1","按钮分组1",True)
                .Add("确定", "确定", "submit")
            End With
        Else
            wb.InsertHTML("接收到的数据有:<br/>")   \'这个用于测试结果:很好
            For Each key As String In e.PostValues.Keys
                wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
            Next
        End If
End Select
e.WriteString(wb.Build) \'生成网页
--  作者：有点甜
--  发布时间：2017/12/21 17:00:00
--  

我测试没问题。你试试把s去掉或者加上

 

.AddImage("./images/170940_20170502_111846s.jpg","./images/170940_20170502_111846s.jpg")