zoukankan      html  css  js  c++  java
  • 制作最清晰缩略图的完整类(VB.NET版)

    Public Class ClassUpPic

        
    Private vPicFile As System.Web.UI.HtmlControls.HtmlInputFile

        
    Private vSmallPicSize, vUpFileSize As Integer

        
    Private vUpPicPath, vNewPicName, vTmpPicName As String

        
    Private PicMin, PicMax, vPicMax As System.Drawing.Image

        
    Private PicFormat As System.Drawing.Imaging.ImageFormat

        
    Private MinHeight, MinWidth As Decimal

        
    Private Myfile As IO.File

     

        
    Public Sub New(ByVal PicFile As System.Web.UI.HtmlControls.HtmlInputFile, ByVal UpPicType As PicType)

            vPicFile 
    = PicFile

            vUpFileSize 
    = HttpContext.Current.Application("UpFileSize")

            
    Select Case UpPicType

                
    Case PicType.Face

                    vUpPicPath 
    = "upload/images/Face"

                    vSmallPicSize = 150

                    vNewPicName 
    = HttpContext.Current.Session("MemberID"& "." & GetRightByChar(vPicFile.PostedFile.FileName, ".")

                
    Case PicType.Photo

                    vUpPicPath 
    = "upload/images/Photo"

                    vSmallPicSize = 150

                    vNewPicName 
    = System.Guid.NewGuid.ToString() & "." & GetRightByChar(vPicFile.PostedFile.FileName, ".")

                
    Case PicType.Pic

                    vUpPicPath 
    = "upload/images/Pic"

                    vSmallPicSize = 550

                    vNewPicName 
    = System.Guid.NewGuid.ToString() & "." & GetRightByChar(vPicFile.PostedFile.FileName, ".")

            
    End Select

        
    End Sub


     

        
    Public Function GetSavedFileName() As String

            
    '检验图片类型=================================================================

            
    If vPicFile.PostedFile.FileName = "" Then

                
    Throw New NotSupportedException("文件为空,请您选择上传的图片文件!")

            
    End If

            
    If Left(vPicFile.PostedFile.ContentType, 5<> "image" Then

                
    Throw New NotSupportedException("文件格式不合法,请选取有效的图片文件!" & vPicFile.PostedFile.ContentType)

            
    End If

            
    If vPicFile.PostedFile.ContentLength > vUpFileSize Then

                
    Dim MaxNumber As Decimal = vUpFileSize / 1024 / 1024

                
    Throw New NotSupportedException("上传的图片文件太大,最大支持" & Format(MaxNumber, "##,##0"& "M!")

            
    End If

     

            
    '检验数量限制=================================================================

     

            
    '保存大文件=================================================================

            vPicFile.PostedFile.SaveAs(HttpContext.Current.Server.MapPath(vUpPicPath 
    & "/max/"& vNewPicName)

            vPicFile.Dispose()

     

            
    '缩略图片文件=================================================================

            PicMax 
    = System.Drawing.Image.FromFile(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/"& vNewPicName)

            
    If Not (PicMax.RawFormat Is PicFormat.Gif Or PicMax.RawFormat Is PicFormat.Png) Then

                
    If PicMax.Height > vSmallPicSize Or PicMax.Width > vSmallPicSize Then

                    vTmpPicName 
    = System.Guid.NewGuid.ToString() & ".png"

                    vPicMax = PicMax

                    PicMax.Save(HttpContext.Current.Server.MapPath(vUpPicPath 
    & "/max/"& vTmpPicName, PicFormat.Png)

                    vPicMax.Dispose()

                    PicMax 
    = System.Drawing.Image.FromFile(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/"& vTmpPicName)

                
    End If

            
    End If

            
    '保存小文件=================================================================

            GetMinPic(PicMax).Save(HttpContext.Current.Server.MapPath(vUpPicPath 
    & "/min/"& vNewPicName, PicFormat.Jpeg)

            PicMax.Dispose()

     

            
    '删除临时png文件=================================================================

            
    If vTmpPicName <> "" Then Myfile.Delete(HttpContext.Current.Server.MapPath(vUpPicPath & "/max/"& vTmpPicName)

     

            
    Return vNewPicName

        
    End Function


     

        
    Private Function GetMinPic(ByVal MaxPic As System.Drawing.Image) As System.Drawing.Image

            
    If MaxPic.Height > vSmallPicSize Or MaxPic.Width > vSmallPicSize Then

                
    If MaxPic.Height > MaxPic.Width Then

                    MinWidth 
    = MaxPic.Width / (MaxPic.Height / vSmallPicSize)

                    MinHeight 
    = vSmallPicSize

                
    Else

                    MinWidth 
    = vSmallPicSize

                    MinHeight 
    = MaxPic.Height / (MaxPic.Width / vSmallPicSize)

                
    End If

                
    Return MaxPic.GetThumbnailImage(CInt(MinWidth), CInt(MinHeight), NothingNew System.IntPtr())

            
    Else

                
    Return MaxPic

            
    End If

        
    End Function


     

        
    Enum PicType

            Face 
    = 1

            Photo 
    = 2

            Pic 
    = 3

        
    End Enum


     

        
    Private Function GetRightByChar(ByVal StrValue As StringByVal CharValue As StringAs String

            
    Dim MyStr() As String = Split(StrValue, CharValue)

            
    Return MyStr(MyStr.Length - 1)

        
    End Function


    End Class

    转自:http://guoblog.com/blogview.asp?logID=259

    青苹果Web应用商店 https://webapp.taobao.com/

    PHP/ASP.NET/ASP/UCHOME/DISCUZ! X系列网站开发,详细需求联系QQ:8511978

  • 相关阅读:
    hdu 3555 Bomb 【数位DP】
    ibatis动态的传入表名、字段名
    ibatis把表名作为一个参数报错问题的解决方案
    事务——原子性、一致性、隔离性和持久性的理解
    struts2 集成webservice 的方法
    MySQL FEDERATED引擎使用示例, 类似Oracle DBLINK
    Javascript禁止网页复制粘贴效果,或者复制时自动添加来源信息
    asp.net关于Cookie跨域(域名)的问题
    Java cookie的使用
    关于Cookie跨域操作的一些总结
  • 原文地址:https://www.cnblogs.com/Dicky/p/122371.html
Copyright © 2011-2022 走看看