共8 条记录, 每页显示 10 条, 页签: [1]

标题：图片上传完成后不显示图片显示红色叉号

1楼

deliangzhaoe 发表于：2025/3/15 19:22:00

做了一个文件管理器模式窗口，窗口中加了图片查看器，图片上传能成功，但是上传后不显示图片内容，显示叉号，双击打开时，显示“此文件不存在”，打开文件存储位置，文件是正常存在的，这是怎么回事？压缩图片的代码也不起作用，代码应该怎么修改一下。谢谢！
上传按钮的代码如下：

Dim 当前目录 As String = e.Form.Controls("当前目录").text

Dim 刷新 As WinForm.Button = e.Form.Controls("刷新")

Dim curtable As Table = vars("tabc")

Dim curColName As String = curtable.Cols(curtable.ColSel).Name

Dim curCol As DataCol = curtable.DataTable.datacols(curColName)

Dim dr As DataRow = curtable.Current.DataRow

Dim openFilter As String = ""

Dim tpBl As Boolean = False

' 判断是否是图片列

If curCol.ExtendType = ExtendTypeEnum.Images Then

openFilter = "文件|*.jpeg;*.bmp;*.jpg;*.png;*.gif"

tpBl = True

Else

openFilter = "所有文件|*.*"

End If

Dim dlg As New OpenFileDialog ' 定义一个新的OpenFileDialog

dlg.Filter = openFilter ' 设置筛选器

dlg.MultiSelect = True

If dlg.ShowDialog = DialogResult.OK Then ' 如果用户单击了确定按钮

Dim upOk As New List(Of String)

Dim upNok As New List(Of String)

Dim result As New List(Of String)

For Each fl As String In dlg.FileNames

Dim fl2 As String = fl

If tpBl Then

' 压缩图片

fl2 = Functions.Execute("压缩图片", fl, 350)

If fl2 Is Nothing Then Continue For

End If

Dim flname As String = FileSys.GetName(fl2)

Dim 目标路径 As String = 当前目录 & "\" & flname

' 将文件复制到本地目录

Try

FileSys.CopyFile(fl2, 目标路径, True)

upOk.Add("上传成功: " & flname)

result.Add(目标路径)

Catch ex As Exception

upNok.Add("上传失败: " & flname)

Dim tishi As String = String.Join(vbCrLf, upNok.ToArray)

MessageBox.Show(tishi) ' 新增的,上传失败必须提示

End Try

' 删除压缩后的临时文件

If tpBl Then

FileSys.DeleteFile(fl2)

End If

' 把成功的添加到记录里面

For Each s As String In dr.Lines(curColName)

If result.Contains(s) Then Continue For

result.Add(s)

dr.Lines(curColName) = result

刷新.PerformClick()

End If

文件管理器窗口如图：

此主题相关图片如下：微信截图_20250315191944.png

双击打开文件时报错：

此主题相关图片如下：微信截图_20250315191957.png

[此贴子已经被作者于2025/3/16 11:39:51编辑过]

2楼

deliangzhaoe 发表于：2025/3/16 11:41:00

图片文件存放在C：\foxtabledata\picturefiles

3楼

有点蓝 发表于：2025/3/16 20:07:00

图片上传完成后，图片单元格显示的什么内容？文件的实际完整路径又是什么？

4楼

deliangzhaoe 发表于：2025/3/17 6:51:00

这是本地电脑中存在位置：

此主题相关图片如下：微信截图_20250317064700.png

这是foxtable中图片单元格显示的内容：

C:\foxtabledata\picturefiles\*************纸管厂\2025\隐患排查治理台账\0df3d7ca7bcb0a46d9931a5b8c457b2b6a60afd1.webp.jpg

这是文件管理窗口中获取到的位置：

此主题相关图片如下：微信截图_20250317064558.png

5楼

有点蓝 发表于：2025/3/17 9:03:00

这个文件应该不是jpg文件吧，只是强行把webp格式的扩展名改为jpg。Foxtable不支持显示webp格式图片

6楼

deliangzhaoe 发表于：2025/3/17 20:33:00

不管上传什么样的图片，都打不开。我已经上传过好多张了，什么样的图片都试过了。

7楼

deliangzhaoe 发表于：2025/3/17 20:34:00

此主题相关图片如下：微信截图_20250317203033.png

8楼

有点蓝 发表于：2025/3/17 20:52:00

做个例子发上来看看

共8 条记录, 每页显示 10 条, 页签: [1]