以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]上传照片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186506)

--  作者:bzqlyj
--  发布时间:2023/5/8 9:04:00
--  [求助]上传照片
通过拍照上传,点确定,收不到数据及照片   
With .AddUploader("grp", "照片", True)
                If drp("grp") = "" Then
                    .Accept = "image/*"
                    .AllowDelete = True \'允许删除
                    .Incremental = False \'允许重复选择文件或连续拍照
                    .Capture = "camera" \'只能拍照上传
                    With wb.AddButtonGroup("form1", "btg2", True)
                        .Add("btn2", "确定", "submit")
                    End With
                Else
                    .AllowAdd = False \'关闭文件上传
                    Dim zp As String
                    zp = "./Attachments/" & drp("grp") 
                  
                    .AddImage(zp, zp)
                End If
            End With
           
            drp("grp") = e.PostValues("grp")
            MessageBox.Show(drp("grp")),这里没有值
            For Each key As String In e.Files.Keys
                MessageBox.Show(key)
                If key = "grp" Then
                    For Each fln As String In e.Files(key)
                        MessageBox.Show(3)
                        e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)
                    Next
                                        drp.Lines("grp") = e.Files(key)
                                                        End If
            Next

--  作者:有点蓝
--  发布时间:2023/5/8 9:17:00
--  
上传的文件不是通过PostValues获取的。后面的for循环的代码才是获取文件的代码。MessageBox.Show(key)可以弹出说明有接收到上传的文件
--  作者:bzqlyj
--  发布时间:2023/5/8 9:25:00
--  回复:(有点蓝)上传的文件不是通过PostValues获取的...
是将文件名写入对应的行里,但收不到文件,如何处理
--  作者:有点蓝
--  发布时间:2023/5/8 9:30:00
--  
贴出完整代码看看。http://www.foxtable.com/mobilehelp/topics/0060.htm
--  作者:bzqlyj
--  发布时间:2023/5/8 9:42:00
--  回复:(有点蓝)贴出完整代码看看。http://www.foxta...
与登录有关系没有
Add("c3","销售统计", "./images/toast.png", "http://www.foxtable.com")

--  作者:有点蓝
--  发布时间:2023/5/8 9:48:00
--  
不清楚,请帖出完整代码看看
--  作者:bzqlyj
--  发布时间:2023/5/8 16:47:00
--  回复:(有点蓝)不清楚,请帖出完整代码看看
     For Each key As String In e.Files.Keys
                MessageBox.Show(key)
                If key = "grp" Then
                    For Each fln As String In e.Files(key)
                        MessageBox.Show(3)
                        e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)
                    Next
                                        drp.Lines("grp") = e.Files(key)
                                                        End If
            Next

Case
"upload.htm"
        Dim sb As New StringBuilder
        sb.AppendLine(
"
服务器收到的文件有:")
        For Each key As String In e.Files.Keys
            sb.AppendLine(Key)
            For Each fl As String In e.Files(key)
                sb.AppendLine("    " & fl)
                e.SaveFile(key,fl,"d:\\web\\uploadfiles\\" & fl)
\'
保存接收到的文件
            Next
        Next
        e.WriteString(sb.ToString)

End
Select
通过这个可以收到文件

--  作者:有点蓝
--  发布时间:2023/5/8 17:02:00
--  
dim lst as new list(of string)
For Each key As String In e.Files.Keys
                MessageBox.Show(key)
                If key = "grp" Then
                    For Each fln As String In e.Files(key)
                        MessageBox.Show(3)
                        e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)
lst.add(fln)
                    Next
                                        
                 End If
            Next
drp.Lines("grp") = lst