Foxtable(狐表) → 用户栏目 → 专家坐堂 → 压缩图片的程序加载图像失败


  共有106人关注过本帖树形打印复制链接

主题：压缩图片的程序加载图像失败
帅哥哟，离线，有人找我吗？
mxl810823
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		压缩图片的程序加载图像失败  发帖心情 Post By：2025/3/11 15:32:00 [只看该作者]

    Dim file As String = "f:\g\DSC01371.jpg"
    Dim img As Image = getImage(file)

    ' 检查 getImage 是否成功加载了图像
    If img Is Nothing Then
        MessageBox.Show("无法加载图像文件: " & file)
        Return Nothing 
    End If

    Dim bmp As Bitmap = Nothing

    Try
        ' 检查图像宽度是否大于 800
        If img.Width > 800 Then
            Dim newWidth As Integer = 800
            Dim newHeight As Integer

            ' 计算新的高度以保持宽高比
            If 800 * (img.Height / img.Width) > 600 Then
                newHeight = 600
                newWidth = CInt(800 * (600 / img.Height))
            Else
                newHeight = CInt(800 * (img.Height / img.Width))
            End If

            ' 创建新的 Bitmap 对象
            bmp = New Bitmap(img, newWidth, newHeight)
        Else
            ' 如果图像宽度不大于 800，直接使用原图
            bmp = New Bitmap(img)
        End If

        ' 保存处理后的图像
        bmp.Save("f:/g/VDSC01371.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    Catch ex As Exception
        ' 捕获并显示任何异常
        MessageBox.Show("处理图像时发生错误: " & ex.Message)
    Finally
        ' 确保 Bitmap 对象被正确释放
        If bmp IsNot Nothing Then
            bmp.Dispose()
        End If
    End Try

以上代码在图片比较大时，6M以上，getImage 不能成功加载图像，有什么办法提高这个加载成功率吗，我主要目的是压缩图片，或有其它更好的压缩图片的程序吗
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112699 积分：573834 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/11 15:37:00 [只看该作者]

特别大的图片建议还是使用专业的软件处理吧，比如Photoshop

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2025/3/11 16:07:00 [只看该作者]

我的想法是上传到ftp的图片有些比较大，我用PictureBox控件做了个预览窗口，上传大图片的同时，生成一个压缩后的图片，预览就下载压缩后的图片，这样就可以快速看到图片，大图片的话要等好久才能看到，体验不好，那么有没有更好的预览大图片的方法？

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2025/3/11 16:09:00 [只看该作者]

这些图片要上传留档的，不能压缩了再上传，一定要保留原图

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2025/3/11 16:12:00 [只看该作者]

或者提供个调用其它图片软件用来压缩图片的代码，有吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112699 积分：573834 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/11 17:17:00 [只看该作者]

暂时没有办法，毕竟Foxtable不是专业作图的

 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2025/3/11 18:27:00 [只看该作者]

Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.IO 
Module ImageCompressor
    Sub Main()
        Dim inputPath As String = "f\g\DSC01371.jpg"
        Dim outputPath As String = "f\g\vDSC01371.jpg" 
        Using originalImage As Image = Image.FromFile(inputPath)
            ' 设置压缩质量（0-100）
            Dim quality As Long = 50L
            Dim jpgEncoder As ImageCodecInfo = GetEncoder(ImageFormat.Jpeg) 
            ' 创建编码参数
            Dim myEncoder As Encoder = Encoder.Quality
            Dim myEncoderParameters As New EncoderParameters(1)
            Dim myEncoderParameter As New EncoderParameter(myEncoder, CType(quality, Byte))
            myEncoderParameters.Param[0] = myEncoderParameter 
            ' 保存压缩后的图像
            originalImage.Save(outputPath, jpgEncoder, myEncoderParameters)
        End Using
    End Sub 
    Private Function GetEncoder(ByVal format As ImageFormat) As ImageCodecInfo
        Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()
        Dim myEncoder As ImageCodecInfo = Nothing
        For Each codec As ImageCodecInfo In codecs
            If codec.FormatID = format.Guid Then
                myEncoder = codec
                Exit For
            End If
        Next codec
        Return myEncoder
    End Function
End Module
这是网上找的个程序，但运行出错，要怎么改？能行吗？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112699 积分：573834 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/11 19:48:00 [只看该作者]

Dim inputPath As String = "f:\g\DSC01371.jpg"
Dim outputPath As String = "f:\g\vDSC01371.jpg" 
Using originalImage As Image = Image.FromFile(inputPath)
    ' 设置压缩质量（0-100）
    Dim quality As Long = 50L

    Dim codecs As ImageCodecInfo() = ImageCodecInfo.GetImageDecoders()
    Dim jpgEncoder As ImageCodecInfo = Nothing
    For Each codec As ImageCodecInfo In codecs
        If codec.FormatID = ImageFormat.Jpeg.Guid Then
            jpgEncoder = codec
            Exit For
        End If
    Next codec
    
    ' 创建编码参数
    Dim myEncoder As Encoder = Encoder.Quality
    Dim myEncoderParameters As New EncoderParameters(1)
    Dim myEncoderParameter As New EncoderParameter(myEncoder, CType(quality, Byte))
    myEncoderParameters.Param(0) = myEncoderParameter 
    ' 保存压缩后的图像
    originalImage.Save(outputPath, jpgEncoder, myEncoderParameters)
End Using
 回到顶部
帅哥哟，离线，有人找我吗？
mxl810823
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：385 积分：3236 威望：0 精华：0 注册：2018/2/27 17:32:00 		  发帖心情 Post By：2025/3/12 9:17:00 [只看该作者]

你改过的代码运行还是有错，
图片点击可在新窗口打开查看此主题相关图片如下：qq_1741742132287.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112699 积分：573834 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2025/3/12 9:38:00 [只看该作者]

Dim myEncoder As System.Drawing.Imaging.Encoder = System.Drawing.Imaging.Encoder.Quality

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 4 次数据查询