JPG图片处理 ［已解决］

beenet

现在做一个模块，想对JPG图片尺寸修改，减少体积。网游多日无果，要不只能在VB下使用。不知谁能提供帮助。
小弟不甚感激

[ 本帖最后由 beenet 于 2008-9-22 08:34 编辑 ]

ui

有现成的工具,优化图片.搜索一下百度

fan0217

生成缩微图，.NET很容易解决，但Acc就显得很困难了。

ui

.net如何解决,是否有内置功能?

fan0217

自己根据实际需要更改一下：

C#

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 
   
8. using System;
   
9. using System.Data;
   
10. using System.Configuration;
    
11. using System.Collections;
    
12. using System.Web;
    
13. using System.Web.Security;
    
14. using System.Web.UI;
    
15. using System.Web.UI.WebControls;
    
16. using System.Web.UI.WebControls.WebParts;
    
17. using System.Web.UI.HtmlControls;
    
18. using System.Drawing;
    
19. /// <summary>
    
20.        /// 生成缩略图
    
21.        /// </summary>
    
22.        /// <param name="originalImagePath">源图路径（物理路径）</param>
    
23.        /// <param name="thumbnailPath">缩略图路径（物理路径）</param>
    
24.        /// <param name="width">缩略图宽度</param>
    
25.        /// <param name="height">缩略图高度</param>
    
26.        /// <param name="mode">生成缩略图的方式</param>
    
27.        public void MakeThumbnail(string originalImagePath, string thumbnailPath, int width, int height, string mode)
    
28.        {
    
29.            System.Drawing.Image originalImage = System.Drawing.Image.FromFile(originalImagePath);
    
30.            int towidth = width;
    
31.            int toheight = height;
    
32.            int x = 0;
    
33.            int y = 0;
    
34.            int ow = originalImage.Width;
    
35.            int oh = originalImage.Height;
    
36.            switch (mode)
    
37.            {
    
38.                case "HW"://指定高宽缩放（可能变形）               
    
39.                    break;
    
40.                case "W"://指定宽，高按比例                    
    
41.                    toheight = originalImage.Height * width / originalImage.Width;
    
42.                    break;
    
43.                case "H"://指定高，宽按比例
    
44.                    towidth = originalImage.Width * height / originalImage.Height;
    
45.                    break;
    
46.                case "Cut"://指定高宽裁减（不变形）               
    
47.                    if ((double)originalImage.Width / (double)originalImage.Height > (double)towidth / (double)toheight)
    
48.                    {
    
49.                        oh = originalImage.Height;
    
50.                        ow = originalImage.Height * towidth / toheight;
    
51.                        y = 0;
    
52.                        x = (originalImage.Width - ow) / 2;
    
53.                    }
    
54.                    else
    
55.                    {
    
56.                        ow = originalImage.Width;
    
57.                        oh = originalImage.Width * height / towidth;
    
58.                        x = 0;
    
59.                        y = (originalImage.Height - oh) / 2;
    
60.                    }
    
61.                    break;
    
62.                default:
    
63.                    break;
    
64.            }
    
65.            //新建一个bmp图片
    
66.            System.Drawing.Image bitmap = new System.Drawing.Bitmap(towidth, toheight);
    
67.            //新建一个画板
    
68.            Graphics g = System.Drawing.Graphics.FromImage(bitmap);
    
69.            //设置高质量插值法
    
70.            g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High;
    
71.            //设置高质量,低速度呈现平滑程度
    
72.            g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
    
73.            //清空画布并以透明背景色填充
    
74.            g.Clear(Color.Transparent);
    
75.            //在指定位置并且按指定大小绘制原图片的指定部分
    
76.            g.DrawImage(originalImage, new Rectangle(0, 0, towidth, toheight),
    
77.                new Rectangle(x, y, ow, oh),
    
78.                GraphicsUnit.Pixel);
    
79.            try
    
80.            {
    
81.                //以jpg格式保存缩略图
    
82.                bitmap.Save(thumbnailPath, System.Drawing.Imaging.ImageFormat.Jpeg);
    
83.            }
    
84.            catch (System.Exception e)
    
85.            {
    
86.                throw e;
    
87.            }
    
88.            finally
    
89.            {
    
90.                originalImage.Dispose();
    
91.                bitmap.Dispose();
    
92.                g.Dispose();
    
93.            }
    
94.        }
    

复制代码

VB.Net

1. 
   
2. Imports System
   
3. Imports System.Data
   
4. Imports System.Configuration
   
5. Imports System.Collections
   
6. Imports System.Web
   
7. Imports System.Web.Security
   
8. Imports System.Web.UI
   
9. Imports System.Web.UI.WebControls
   
10. Imports System.Web.UI.WebControls.WebParts
    
11. Imports System.Web.UI.HtmlControls
    
12. Imports System.Drawing
    
13. 
    
14. '''<summary>
    
15. '''生成缩略图
    
16. '''</summary>
    
17. '''<param name="originalImagePath">源图路径（物理路径）</param>
    
18. '''<param name="thumbnailPath">缩略图路径（物理路径）</param>
    
19. '''<param name="width">缩略图宽度</param>
    
20. '''<param name="height">缩略图高度</param>
    
21. '''<param name="mode">生成缩略图的方式</param>
    
22. Sub MakeThumbnail(ByVal originalImagePath As String, ByVal thumbnailPath As String, ByVal width As Integer, ByVal height As Integer, ByVal mode As String)
    
23.     Dim originalImage As System.Drawing.Image = System.Drawing.Image.FromFile(originalImagePath)
    
24.     Dim towidth As Integer = width
    
25.     Dim toheight As Integer = height
    
26.     Dim x As Integer = 0
    
27.     Dim y As Integer = 0
    
28.     Dim ow As Integer = originalImage.Width
    
29.     Dim oh As Integer = originalImage.Height
    
30.     Select Case mode
    
31.         Case "HW" '指定高宽缩放（可能变形）               
    
32.         Case "W" '指定宽，高按比例                    
    
33.             toheight = originalImage.Height * width / originalImage.Width
    
34.         Case "H" '指定高，宽按比例
    
35.             towidth = originalImage.Width * height / originalImage.Height
    
36.         Case "Cut" '指定高宽裁减（不变形）               
    
37.             If CDbl(originalImage.Width) / CDbl(originalImage.Height) > CDbl(towidth) / CDbl(toheight) Then
    
38.                 oh = originalImage.Height
    
39.                 ow = originalImage.Height * towidth / toheight
    
40.                 y = 0
    
41.                 x = (originalImage.Width - ow) / 2
    
42.             Else
    
43.                 ow = originalImage.Width
    
44.                 oh = originalImage.Width * height / towidth
    
45.                 x = 0
    
46.                 y = (originalImage.Height - oh) / 2
    
47.             End If
    
48.         Case Else
    
49.     End Select
    
50.     '新建一个bmp图片
    
51.     Dim bitmap As New System.Drawing.Bitmap(towidth, toheight)
    
52.     '新建一个画板
    
53.     Dim g As Graphics = System.Drawing.Graphics.FromImage(bitmap)
    
54.     '设置高质量插值法
    
55.     g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
    
56.     '设置高质量,低速度呈现平滑程度
    
57.     g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
    
58.     '清空画布并以透明背景色填充
    
59.     g.Clear(Color.Transparent)
    
60.     '在指定位置并且按指定大小绘制原图片的指定部分
    
61.     g.DrawImage(originalImage, New Rectangle(0, 0, towidth, toheight), New Rectangle(x, y, ow, oh), GraphicsUnit.Pixel)
    
62.     Try
    
63.         '以jpg格式保存缩略图
    
64.         bitmap.Save(thumbnailPath, System.Drawing.Imaging.ImageFormat.Jpeg)
    
65.     Catch e As System.Exception
    
66.         Throw e
    
67.     Finally
    
68.         originalImage.Dispose()
    
69.         bitmap.Dispose()
    
70.         g.Dispose()
    
71.     End Try
    
72. End Sub
    

复制代码

ui

呵呵,这么全,看来要了解一下.net   谢谢

beenet

感谢大家 实际这个问题围绕多长久了 网络上基本没有好的方法实现
找到最好的是XAT出的控件，但苦于没有破解流传。
不知坛中能否有高手破解一下此控件。

fan0217

其实AcdSee就是个很好的工具，何必舍近求远呢？

ui

可能控件,可以自己来批量转. Acdsee可能不好控制

086-china

用PHOTOSHOP专业点