在 .NET环境下进行图片压缩

 

在 .NET环境下进行图片压缩

告诉你：如何在 .NET环境下进行图片格式转换并压缩

我在前面几篇文章中讲到关于图像的格式转换，都是用VB6.0写的，里面的压缩编码都要自己编写，因为VB6.0中没有图像的格式转换和压缩编码。而在.NET环境下却集成了各种常见的压缩编码，在.NET环境下进行图像的格式转换和压缩变得非常的简单，只需要短短的几行代码，就可以把图像进行压缩。

那么，我们为什么要花那么大的力气用VB6.0来自己的压缩程序呢？这都是WINDOWS惹的祸：

.NET Framework 发展到现在有1.0 、1.1 、2.0 几个版本，在VB7.0中已经集成了.NET Framework 1.0；在VB8.0中已经集成了.NET Framework 2.0。因此，如果用VB7.0 或VB8.0来写的话，就可以利用.NET环境下集成的压缩编码进行图像压缩，而不必自己来写几百上千行的代码了。

那么，我们为什么不用VB7.0 或VB8.0来写程序，而非得用VB6.0呢？这是因为WINDOWS中没有集成.NET Framework，即使是WINDOWS XP中也没有，在安装光盘中也不能找到（可能是WINDOWS XP发行时，.NET Framework 1.0都还没发行吧，或者是.NET Framework不是作为常用的程序而被拿掉），需要时要自己从网上下载安装。当然，你如果安装VB7.0 或VB8.0时，安装程序就会自动为你安装的。

我们用VB6.0写的程序，它不需要.NET Framework，它可以在任意一个操作系统中运行，而VB7.0 或VB8.0写的程序需要.NET Framework才能运行，你总不能要求用户在使用你的程序时也一定要安装.NET Framework或VB7.0 或VB8.0吧？我想，这也许是VB6.0从98年发布至今仍经久不衰，而VB7.0 或VB8.0拥有先进的技术，而不能得到广泛应用的原因吧，这不能不说是一个奇怪的现象，应该也是一种悲哀，所以我们说这都是WINDOWS惹的祸也应该不为过吧？

既然都这样了，那我们再来讲在 .NET环境下进行图片格式转换并压缩，又有什么意义呢，当然是有意义的，如果您把代码放在ASP.NET网页中（网页的后缀名是 .aspx）,由于 ASP.NET网页是在WEB服务器中运行的，当用户浏览您的网页时，网页中的代码不会在用户的计算机中运行，而是在WEB服务器中运行后向用户返回运算的结果，因此它不需要用户也安装.NET Framework就能使用。

我在这里并不想说ASP.NET网页如何编写，而仅仅出示一些代码，供大家参考：

 

导入所需的.NET Framework命名空间：

Imports System.IO

Imports System.Drawing

Imports System.Drawing.Imaging

 

完成图像的格式转换及压缩：

Dim fs As FileStream

      ’ur是要转换的BMP图像的文件名及路径，打开并在PictureBox2中显示

fs = New FileStream(ur, FileMode.Open)

            PictureBox2.Image = Image.FromStream(fs)

            fs.Dispose()

      ’创建一个位图对象b，并用GIF的编码进行保存

            Dim b As Bitmap = New Bitmap(ur)

            Dim ens As System.Drawing.Imaging.EncoderParameters = New System.Drawing.Imaging.EncoderParameters()

            Dim q(1) As Long

            q(0) = 0

            Dim en As System.Drawing.Imaging.EncoderParameter = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, q)

            ens.Param(0) = en

            Dim arrayICI() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()

            Dim gifICI As ImageCodecInfo

            Dim x

            For x = 0 To arrayICI.GetLength(0) - 1

                If arrayICI(x).FormatDescription = "GIF" Then

                    gifICI = arrayICI(x)

                    b.Save("E:/yuejuan/temp/temp.gif", gifICI, ens)

                    Exit For

                End If

            Next

b.Dispose()

                  

                   福建省华安县际头小学  童跃

tongyue2007@126.com