thumbnail resize URI format

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Is it impossible to use URI formats with asp.net image resizing?

I'm trying to adjust a script that is able to resize images on my local
server, but once adjusted to use http:// or www. etc. it gives the
following error:

URI formats not supported

What is causing this issue, and is there a way to work around this issue?

Here's the script. I deleted the parts in red for it to accept http or www links (or so i hoped)

<%@ Import Namespace=System.Drawing %>

<%@ Import Namespace=System %>

<%@ Import Namespace=System.Web %>

<html>

<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)

' Dim all Variables

    Dim OrginalImg, Thumb As System.Drawing.Image

    Dim Rootpath, FileName As String

    Dim imgHeight, imgWidth, maxWidth, MaxHeight As Integer

    Dim inp As New IntPtr()

' Get width using QueryString.

    If Request.QueryString("width") = Nothing Then

        maxWidth = orginalimg.Width

    ElseIf Request.QueryString("width") = 0 Then

        maxWidth = 180    

    Else

         maxWidth = Request.QueryString("width")

 End If

' Get height using QueryString.

    If Request.QueryString("height") = Nothing Then

        MaxHeight = orginalimg.Height

    ElseIf Request.QueryString("height") = 0 Then

        MaxHeight = 20

    Else

        MaxHeight = Request.QueryString("height")

    End If

' Get Root Application Folder

    rootpath = Server.MapPath("/")

' Get filename

    FileName = rootpath & Request.QueryString("FileName")

' Attempt to populate the original image object    

    Try

        orginalimg = orginalimg.FromFile(FileName)

' Get the current Height and width of the image

        imgHeight = orginalimg.Height

        imgWidth = orginalimg.Width

' Check to see if the image even needs scaled

        If imgWidth > maxWidth Or imgHeight > MaxHeight Then

'Determine what dimension is off by more

            Dim deltaWidth As Integer = 1

            Dim deltaHeight As Integer = 2

            Dim scaleFactor As Double

            If deltaHeight > deltaWidth Then

' Use the Height to set the scale factor

                scaleFactor = MaxHeight / imgHeight

            Else

' Use the Width to set the scale factor

                scaleFactor = maxWidth / imgWidth

            End If

' Set the new Scaled the image Size 

            imgWidth *= scaleFactor

            imgHeight *= scaleFactor

        End If

' If the population fails get error.gif

    Catch

        orginalimg = orginalimg.FromFile(rootpath & "error.gif")

    End Try

' set the thumbnail width and height by the new correct scale

    thumb = orginalimg.GetThumbnailImage(imgWidth, imgHeight, Nothing, inp)

'Sending Response JPEG type to the browser. 

    Response.ContentType = "image/jpeg"

    thumb.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)

 'Disposing the objects.

    orginalimg.Dispose()

    thumb.Dispose() 

  End Sub

</script>

</html>

Thanks for your help. 