Image resize

I det "gamle" asp havde jeg følgende:

<%
Text=request.querystring("Text")
FileName=request.querystring("FileName")
size=Cint(request.querystring("size"))
PWidth=Cint(request.querystring("Width"))
PHeight=Cint(request.querystring("Height"))
Response.ContentType = "image/jpeg"
'*** get width/height of original image
Set Image = Server.CreateObject("AspImage.Image")
Myfolder ="pics"
Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& FileName
ImageHeight = Image.MaxY
ImageWidth = Image.MaxX
Image.CreateButton 0,true
Image.ImageFormat = 1
Image.JPEGQuality = 80
if size>0 AND ImageWidth > size then
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Image.ResizeR NewWidth,NewHeight
end if
if PWidth >0 AND ImageWidth > PWidth then
NewHeight = Cint(ImageHeight*PWidth/ImageWidth)
NewWidth = PWidth
Image.ResizeR NewWidth,NewHeight
end if
if PHeight >0 AND ImageHeight > PHeight then
NewWidth = Cint(ImageWidth*PHeight/ImageHeight)
NewHeight = PHeight
Image.ResizeR NewWidth,NewHeight
end if
if NOT Text = "False" then

Image.FontColor = vbWhite
  Image.Italic = False
  Image.Bold = true
  Image.FontName = "Arial"
  Image.FontSize = 10
  Image.PadSize = 0

Image.TextOut "© Yehaa.dk",  10, Image.maxY - 25, false

end if

Response.BinaryWrite Image.Image
Set Image = Nothing
%>

Og det er sådan noget jeg leder efter nu bare til asp.net..

http://west-wind.com/weblog/posts/283.aspx

Hej

I vb.net gør du sådan:

                Dim Image As System.Drawing.Bitmap = New System.Drawing.Bitmap(file.PostedFile.InputStream)
                Dim Image2 As System.Drawing.Bitmap = New System.Drawing.Bitmap(75, 75, System.Drawing.Imaging.PixelFormat.Format24bppRgb)
                Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Image2)
                g.InterpolationMode = Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(Image, 0, 0, Image2.Width, Image2.Height)
                Image2.Save(tmpResizeImageFileName)

Hej.. Jeg har selv fået noget bikset sammen, udfra forskellige artikler..:

Dim img As Image = Image.FromFile(Server.MapPath(Request.QueryString("Image")))
        Dim imgFormat As Imaging.ImageFormat = img.RawFormat
        Dim dRatio As Decimal
        Dim iNewWidth As Integer = 0
        Dim iNewHeight As Integer = 0
        Dim iWidth As Integer = Request.QueryString("Width")
        Dim iHeight As Integer = Request.QueryString("Height")

        If img.Width >= ((img.Height / 3) * 4) Then
            'Resize dimensions by width size
            dRatio = CType(iWidth / img.Width, Decimal)
            iNewWidth = iWidth

            Dim iTemp As Decimal = img.Height * dRatio
            iNewHeight = CType(iTemp, Integer)
        Else
            'Resize dimensions by height size
            dRatio = CType(iHeight / img.Height, Decimal)
            iNewHeight = iHeight

            Dim iTemp As Decimal = img.Width * dRatio
            iNewWidth = CType(iTemp, Integer)
        End If

        Dim bmp As New Bitmap(iNewWidth, iNewHeight)
        Dim g As Drawing.Graphics = Graphics.FromImage(DirectCast(bmp, Drawing.Image))
        g.DrawImage(img, 0, 0, iNewWidth, iNewHeight)
        g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        img.Dispose()
        bmp.Save(Response.OutputStream, imgFormat)
        bmp.Dispose()

Hmm.. ligner nu meget mine kode...

clawsclaws >> 1. Jeg kan nu ikke se hvordan den ligner din kode? Du har vel ikke patent på f.eks. Drawing2D??

Jeg fik det lavet i fredags, og har så ikke været hjemme siden..
Det er en viderebygning på det her: http://www.eksperten.dk/spm/701304