ASP.NET

<<pages enableEventValidation="false" viewStateEncryptionMode="Never">

madhukk wrote:

Iam using telerik rad scheduler

madhukk wrote:

if it is asp or ajax calendar control then is it possible to export

Public Function ResizeCropImage(ByVal sFilepath As String, ByVal ext As String) As Integer
   ' sFilepath = relative path to file, including it's name;  ext = file extension
   ' this file has already been saved from File Upload control via it's usual SaveAs method
   Try
      Dim FullSizeImage As Image
      FullSizeImage = Image.FromFile(HttpContext.Current.Server.MapPath(sFilepath))

      If (FullSizeImage.Height < 200) Or (FullSizeImage.Width < 200) Then
         FullSizeImage.Dispose()
         ' image is too small
         System.IO.File.Delete(HttpContext.Current.Server.MapPath(sFilepath))
         Return 0
      End If

      Dim imf As System.Drawing.Imaging.ImageFormat
      Select Case ext
         Case ".gif"
            imf = System.Drawing.Imaging.ImageFormat.Gif
         Case ".png"
            imf = System.Drawing.Imaging.ImageFormat.Png
         Case Else '".jpg", ".jpeg"
            imf = System.Drawing.Imaging.ImageFormat.Jpeg
      End Select


      Dim tmp As Bitmap
      Dim gX As System.Drawing.Graphics

      Dim bTidy As Boolean = True

      If (FullSizeImage.Height = 200) And (FullSizeImage.Width = 200) Then
         'nothing to do
         bTidy = False
      Else
         ' resize/crop to 200 x 200
         Select Case FullSizeImage.Height / FullSizeImage.Width
            Case Is < 1 'landscape image
               Dim x1 As Integer
               tmp = New Bitmap(200, 200)
               tmp.SetResolution(FullSizeImage.HorizontalResolution, FullSizeImage.VerticalResolution)
               x1 = CInt((FullSizeImage.Width / 2) - (FullSizeImage.Height / 2))
               gX = System.Drawing.Graphics.FromImage(tmp)
               gX.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
               gX.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
               gX.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
               gX.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality
               gX.DrawImage(FullSizeImage, New Rectangle(0, 0, 200, 200), New Rectangle(x1, 0, FullSizeImage.Height, FullSizeImage.Height), GraphicsUnit.Pixel)
            Case Is > 1 ' portrait image
               ' similar code for portrait images - omitted here to save space/bandwidth
            Case Else   ' square image,
               ' similar code for square images - omitted here to save space/bandwidth
         End Select
         ' save with amended filename (not to conflict with original)
         tmp.Save(HttpContext.Current.Server.MapPath(sFilepath.Replace(ext, "_c" & ext)), imf)
         tmp.Dispose()
         gX.Dispose()

      End If

      ' clean up
      FullSizeImage.Dispose()

      If bTidy Then
         ' delete original
         System.IO.File.SetAttributes(HttpContext.Current.Server.MapPath(sFilepath), FileAttributes.Normal)
         System.IO.File.Delete(HttpContext.Current.Server.MapPath(sFilepath))
         ' rename just saved amended file with filename of original
         System.IO.File.Move(HttpContext.Current.Server.MapPath(sFilepath.Replace(ext, "_c" & ext)), HttpContext.Current.Server.MapPath(sFilepath))
      End If

      Return 1
   Catch ex As Exception
      ' write error to log file
      writeLog("funcs/ResizeCropImage", ex.Message, Err.ToString)
      Return -1
   End Try
End Function

x1 = CInt((FullSizeImage.Width / 2) - (FullSizeImage.Height / 2))
y1=-x1
if x1<0 then x1=0
if y1<0 then y1=0