Modificare il file:
\FckEditor\filemanager\browser\default\connectors\asp\ResizeAspNet.aspx
<%@ Page Language="VB" debug="true" ContentType="text/html" ResponseEncoding="iso-8859-1"%> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <script runat="server"> Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) 'verifica se esiste ASP.NET if request("TestAspNet")<>"" then response.Clear() response.write("yes") response.end end if Dim oldFilePath As String = Request("oldFilePath") Dim newFilePath As String = Request("newFilePath") Dim width As Integer = CType(Request("width"), Integer) Dim height As Integer = CType(Request("height"), Integer) Dim imageQuality As Integer = CType(Request("imageQuality"), Integer) Dim keepAspect As Boolean If Request("keepAspect") <> "0" Then keepAspect = True Else keepAspect = False End If ResizeImage(oldFilePath, newFilePath, width, height, imageQuality, keepAspect) Response.Write("Done") Response.End() End Sub Private Function ResizeImage(ByVal oldPathImage As String, ByVal newPathImage As String, ByVal Width As Integer, ByVal Height As Integer, ByVal imgQuality As Integer, ByVal keep As Boolean) As String Dim bmp As System.Drawing.Image = System.Drawing.Image.FromFile(oldPathImage) If bmp.Width <= Width and bmp.Height <= Height Then bmp.Dispose() exit function end if Dim percW As Double = 0 Dim percH As Double = 0 Dim newDimension() As Integer = getNewImageSize(bmp.Width, bmp.Height, Width, Height, keep) Dim newImage As System.Drawing.Bitmap newImage = New System.Drawing.Bitmap(bmp, newDimension(0), newDimension(1)) bmp.Dispose() File.Delete(oldPathImage) Dim imageFormat As Imaging.ImageFormat Select Case getImageFormat(newPathImage) Case "gif" newImage.Save(newPathImage, imageFormat.Gif) Case "jpg" Dim imageQuality As System.Drawing.Imaging.EncoderParameters = New System.Drawing.Imaging.EncoderParameters(1) imageQuality.Param(0) = New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, imgQuality) Dim ImageCodecInfo As ImageCodecInfo = GetEncoderInfo("image/jpeg") newImage.Save(newPathImage, ImageCodecInfo, imageQuality) Case "bmp" newImage.Save(newPathImage, imageFormat.Bmp) Case "png" newImage.Save(newPathImage, imageFormat.Png) Case "tif" newImage.Save(newPathImage, imageFormat.Tiff) Case "emf" newImage.Save(newPathImage, imageFormat.Emf) Case "wmf" newImage.Save(newPathImage, imageFormat.Wmf) End Select newImage.Dispose() End Function Private Function getImageFormat(ByVal FileName As String) As String If LCase(FileName).EndsWith(".bmp") Then Return "bmp" ElseIf LCase(FileName).EndsWith(".jpg") Then Return "jpg" ElseIf LCase(FileName).EndsWith(".jpeg") Then Return "jpg" ElseIf LCase(FileName).EndsWith(".gif") Then Return "gif" ElseIf LCase(FileName).EndsWith(".tiff") Then Return "tif" ElseIf LCase(FileName).EndsWith(".tif") Then Return "tif" ElseIf LCase(FileName).EndsWith(".png") Then Return "png" ElseIf LCase(FileName).EndsWith(".emf") Then Return "emf" ElseIf LCase(FileName).EndsWith(".wmf") Then Return "wmf" End If End Function Private Function getNewImageSize(ByVal imageW As Integer, ByVal imageH As Integer, ByVal newImageW As Integer, ByVal newImageH As Integer, ByVal keepAspect As Boolean) As Array Dim percW As Double Dim percH As Double Dim retStr(1) As Integer If newImageW = 0 Then newImageW = imageW End If If newImageH = 0 Then newImageH = imageH End If If keepAspect Then percW = CType(imageW, Double) / CType(newImageW, Double) percH = CType(imageH, Double) / CType(newImageH, Double) If percW > percH Then newImageW = CType(CType(imageW, Double) / percW, Integer) newImageH = CType(CType(imageH, Double) / percW, Integer) Else newImageW = CType(CType(imageW, Double) / percH, Integer) newImageH = CType(CType(imageH, Double) / percH, Integer) End If End If retStr(0) = newImageW retStr(1) = newImageH return retStr End Function Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo Dim J As Integer Dim retStr As ImageCodecInfo Dim encoders() As ImageCodecInfo encoders = ImageCodecInfo.GetImageEncoders() For J = 0 To UBound(encoders) If String.Compare(encoders(J).MimeType, mimeType, True) = 0 Then retStr = encoders(J) Exit For End If Next Return retStr End Function </script>
[
Íàçàä
]