JPG图片处理 ［已解决］

fan0217

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

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
    

复制代码

fan0217

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

fan0217

上面提供的代码生成com类，acc可以引用使用的。