pellesoft.se

Skapa en bildomskalningssubrutin - med aspImage

Postad 2007-05-19 av Jonas Boman i sektionen ASP.NET, C#, Okategoriserat med 1 Kommentarer | Läst av: 4124, Betyg: 40%

Förord

Här är samma subrutin, fast med aspImage istället. Från 2.X. För anrop och utförligare dokumentation hänvisar jag till den relaterade artikeln länkad nedan.

Innehåll

Relaterade artiklar

» Skapa en bildomskalningssubrutin - med w3Image
» Skapa en bildomskalningssubrutin för aspJpeg

<%
Sub MakeThumb(filepath, savefolder, maxwidth, maxheight)

  '**Defaults
  default_savepath="c:\inetpub\wwwroot\projectx\imagefolder\"
  default_maxwidth=100
  default_maxheight=100

  '** Check parameters
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  if filepath="" Then Exit Sub 
  'since this paragraph has no default value and it is a critical 
  'variable you have to end the sub rutine, else it vill nog work anyway.
  if fs.FileExists(filepath)=False Then Exit Sub
  filename=fs.GetFileName(filepath)

  if savefolder="" Then savefolder = default_savefolder
  if right(savefolder,1)<> "\" Then savefolder=savefolder&"\"
  if fs.FolderExists(savefolder)=False Then Exit Sub

  if Isnumeric(maxwidth)=false Or 0>maxwidth Then maxwidth = default_maxwidth
  if Isnumeric(maxheight)=false Or 0>maxheight Then maxheight = default_maxheight

  On Error Exit Sub
  '** initiate Image-function and open original image
  Set Image = Server.CreateObject("AspImage.Image")

  '** Opens, JPG, BMP and PNG-files
  Image.LoadImage filepath

  ' ** Save in JPEG-format
  Image.ImageFormat = 1
  Image.JPEGQuality = 90

  '** Determen if width or height i greater
  '** Resize in Version 2.0 and greater, else use Image.Resize due to better quality in v2.X
  If Image.MaxX> Image.MaxY Then
    Image.ResizeR maxwidth, (Image.MaxY  * maxwidth / Image.MaxX)
  Else
    Image.ResizeR (Image.MaxX  * maxheight / Image.MaxY), maxheight
  End If

  fileextension=right(filename,3) ' Or use the Split Function
  fileprefix=left(filename,len(filename)-4)

  '** Save new image
  Image.FileName savefolder & fileprefix & ".jpg"

  if Image.SaveImage then 'For debugging purposes
    ' Success!
  Else
    'Did not save Image.
  End if
  Set Image = nothing
  Set fs = nothing
End Sub
%>