在WeUI实例中，怎么打开并查看二进制列已经上传的图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在WeUI实例中，怎么打开并查看二进制列已经上传的图片

web上传图片附件

姓名() ----> 字符型(255)

图片类别() ----> 字符型(255)

图片名称() ----> 字符型(255)

时间戳() ----> 字符型(255)

图片()------->二进制列

代码如下：

Dim xingming As String = e.PostValues("姓名")

Dim dr As DataRow = DataTables("web上传图片附件").SQLFind("姓名=xingming")

Dim Multi As List(of String) = dr.Lines("图片")

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text")
            With .AddUploader("up1","",True)
                .AllowAdd = False '关闭文件上传功能
For Each file As String In Multi

msgbox(file)

.AddImage("./images/" & file )

            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select

怎么实现根据姓名输入的值，查找web上传图片附件里面的符合条件的所有图片，并全部显示出来呢？

老师麻烦指导一下谢谢！

参照帮助学习如下：

Dim xingming1 As String = e.PostValues("姓名")

……

Case "test.htm"

wb.AddForm("","form1","getVimg.htm")

With wb.AddInputGroup("form1","ipg1","增加图片")

.AddInput("姓名","姓名","Text")

End With

With wb.AddButtonGroup("form1","btg1",True) '垂直排列

.Add("btn1", "查看图片")

End With

e.WriteString(wb.Build) '生成网页

Case "getVimg.htm"

wb.AddForm("","form1","getVimg.htm")

Dim cmd11 As New SQ LCommand

cmd11.Connec tion Name = "智慧党建"

cmd11.Com mand Text="sele ct 图片 from web上传图片附件 where 姓名= '" & xingming1 & "' " '这里第八列是二进制列

Dim dt As DataTable = cmd11.Execu teReader

Dim src As String

If dt.DataRows.Count >0 Then

Dim imagebytes As Byte() = dt.DataRows(0)("图片")

src = Convert.ToBase64String(imagebytes )

End If

With wb.AddArticle("","ar1")

.UseGallery = True '启用Gallery,必须放在第一行

' .AddImage("./images/004.jpg")

.AddImage("data:image/jpeg;base64," & src)

End With

e.WriteString(wb.Build) '生成网页

End Select

上述代码基本上是可以实现了查找姓名对应的图片单张显示，是否可以帮忙改进一下显示多张图片呢？

参照论坛其它学习

更改如下后：无法正常使用

Case "getVimg.htm"

wb.AddForm("","form1","getVimg.htm")

Dim cmd11 As New SQ LCommand

cmd11.Connecti

cmd11.Com man dText="se lect 图片 fro m web上传图片附件 whe re 姓名= '" & xingming1 & "' " '这里第八列是二进制列

Dim dt As DataTable = cm d11.Execu teReader

Dim dr As DataRow = dt.DataRows(0)

Dim Multi As List(of String) = dr.Lines("图片")

Dim src As String

If dt.DataRows.Count >0 Then

Dim imagebytes As Byte() = dt.DataRows(0)("图片")

src = Convert.ToBase64String(imagebytes )

End If

With wb.AddInputGroup("form1","ipg1","客户资料")

.AddInput("姓名","姓名","text").value = "舒淇"

.AddInput("地点","地点","text").Value = "蒙古草原"

.AddInput("日期","日期","date").value = #10/12/2012#

With .AddUploader("up1","",True)

.AllowAdd = False '关闭文件上传功能

For Each file As String In Multi

msgbox(file)

.AddImage("data:image/jpeg;base64," & src)

End With

e.WriteString(wb.Build) '生成网页

End Select

[此贴子已经被作者于2020/5/20 16:51:01编辑过]

Case "getVimg.htm"

wb.AddForm("","form1","getVimg.htm")

Dim cmd11 As New SQ LCommand

cmd11.Conn ecti

cmd11.CommandText="sele ct 图片 from web上传图片附件 where 姓名= '" & xingming1 & "' " '这里第八列是二进制列

Dim dt As DataTable = cmd11.ExecuteReader

Dim src As String

With wb.AddInputGroup("form1","ipg111","客户资料")

.AddInput("姓名","姓名","text").value = xingming

End With

With wb.AddInputGroup("form1","ipg1111","图片信息")

With .AddUploader("up111","",True)

.AllowAdd = False '关闭文件上传功能

With wb.AddArticle("","ar1")

.UseGallery = True '启用Gallery,必须放在第一行

For Each dr As DataRow In dt.DataRows

Dim imagebytes As Byte() = dr("图片")

src = Convert.ToBase64String(imagebytes )

.AddImage("data:image/jpeg;base64," & src)

End With

With wb.AddInputGroup("form1","ipg1111111","")

With wb.AddButtonGroup("form1","btg1",True) '垂直排列

.Add("btn5", "按钮", "", "http://www.foxtable.com")

End With

e.WriteString(wb.Build) '生成网页

初步可以实现根据姓名显示多个图片文件

怎么把图片显示在图片信息框框里呢？

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

老师去掉了红色部分

With wb.AddInputGroup("form1","ipg1111","图片信息")

With .AddUploader("up111","",True)

.AllowAdd = False '关闭文件上传功能

With wb.AddArticle("","ar1")

.UseGallery = True '启用Gallery,必须放在第一行

For Each dr As DataRow In dt.DataRows

Dim imagebytes As Byte() = dr("图片")

src = Convert.ToBase64String(imagebytes )

.AddImage("data:image/jpeg;base64," & src)

End With

之后，如果是单张图片可以正常显示，多张图片就提示错误如下：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：项目,HttpRequest

详细错误信息：

已添加了具有相同键的项。

不去掉的时候，如5楼，只是显示位置不对但是多张图片可以全部显示出来

[此贴子已经被作者于2020/5/21 9:43:25编辑过]

老师：

以下内容是专门发给有点蓝浏览

Case "getVimg.htm"

wb.AddForm("","form1","getVimg.htm")

Dim cmd11 As New S Q L Command

cmd11.Co nn ectio nNam e = "智慧党建"

cmd11.CommandText="sel ect 图片 from web上传图片附件 where 姓名= '" & xingming1 & "' " '这里第八列是二进制列

Dim dt As DataTable = cmd11.ExecuteReader

Dim src As String

With wb.AddInputGroup("form1","ipg11","客户资料")

.AddInput("姓名","姓名","text").value = xingming

End With

With wb.AddInputGroup("form1","ipg22","图片信息")

MessageBox.Show(1)

With .AddUploader("up2","",True)

MessageBox.Show(2)

.AllowAdd = False '关闭文件上传功能

MessageBox.Show(3)

For Each dr As DataRow In dt.DataRows

MessageBox.Show(4)

Dim imagebytes As Byte() = dr("图片")

MessageBox.Show(5)

src = Convert.ToBase64String(imagebytes )

MessageBox.Show(6)

.AddImage("data:image/jpeg;base64," & src)

MessageBox.Show(7)

MessageBox.Show(8)

End With

MessageBox.Show(9)

With wb.AddInputGroup("form1","ipg33","")

With wb.AddButtonGroup("form1","btg1",True) '垂直排列

.Add("btn5", "按钮", "", "test.htm")

End With

e.WriteString(wb.Build) '生成网页

经过测试

依次提示1234567456然后报错。

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.1.19.19

错误所在事件：项目,HttpRequest

详细错误信息：

已添加了具有相同键的项。

经过测试如果上传的文件不是同一个图片的话是不会报错如果同一个图片选择两次然后发送就会出现楼上报错

进一步深入操作：怎么在图片预览全屏后，有一个返回操作按钮呢？

有点蓝老师当图片比较大的时候下载页面比较慢到之后页面假死情况

有没有办法解决呢？

当上传文件的时候就生成缩约图同步上传原图然后查询得到结果先显示缩约图然后同步下载原图最后用户点击打开的是原图

借以提高用户体验性不然容易出现页面假死甚至打不开的情况好尴尬

除了采用下面的方法压缩上传图片外

.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩

[此贴子已经被作者于2020/5/22 12:24:46编辑过]

主题：在WeUI实例中，怎么打开并查看二进制列已经上传的图片