Lav Thumbnail når man uploader billeder

Har din server ikke nogen ASP-komponenter til rådighed, der kan arbejde med billeder?

Jeg har før været på Webhotel, men har nu fået en dediceret server, så har jo intet på serveren og skal jo betale hvis jeg f.eks. skal have AspJpeg component som jeg altid har brugt.. :-(

Skal den vise en thumbnail efter billedet er uploadet? Kan du ikke nøjes med at skalere billedet ned?

Hmmm.. hvis billedet så er stort (bytes mæssig), så tager det jo rimelig meget server CPU hvis jeg kun skalere det?

Kan du bruge det her evt?
http://www.codeproject.com/KB/asp/thumbtools2.aspx

Hej, hvis har du .net på serveren(ellers er det meget nemt at få)
kan du bruge en stump asp.net kode til det.
Jeg gør det selv fordi der ikke er nogle billedkomponenter på mit webhotel.

Den skal bare have stien til det billede som skal laves til thumbnail, bredde, højde og hvor meget det skal komprimeres(1-100)

<%@ Page Language="vb" Debug="True" %>
<%@ import namespace="System" %>
<%@ import namespace="System.Drawing" %>
<%@ import namespace="System.Drawing.Imaging" %>
<%@ import namespace="System.IO" %>
<%@ import namespace="System.IO.StreamReader" %>
<script runat="server">

Sub CreateThumb()


  dim sWidth, sHeight, sCompression as Integer
        Dim sImage

        sImage = Request("Image") ' <-- Stien til billedet
        sWidth = CInt(Request("Width")) 'Bredden
        sHeight = CInt(Request("Height"))'<---Højden
        sCompression = 50 '<---Hvor meget skal det komprimeres



        Dim graphic As System.Drawing.Image = System.Drawing.Image.FromFile(sImage)
        Dim graphicFormat = graphic.RawFormat
        Dim Width, Height As Integer

        Width = sWidth
        Height = sHeight
        'if(graphic.Width < graphic.Height)
        '  Width = cint(sHeight)
        '  Height = cint(sWidth)
        'else
        '  Width = cint(sWidth)
        '  Height = cint(sHeight)
        'end if

        'if(Height = 0) then
        '  Height = graphic.Height * Width / graphic.Width
        'elseif(Width = 0) then
        '  Width = graphic.Width * Height / graphic.Height
        'end if

        Dim Image As New Bitmap(graphic, Width, Height)
        If graphicFormat.Equals(System.Drawing.Imaging.ImageFormat.Gif) Then
            Response.ContentType = "image/gif"
        ElseIf graphicFormat.Equals(System.Drawing.Imaging.ImageFormat.Jpeg) Then
            Response.ContentType = "image/jpeg"
        ElseIf graphicFormat.Equals(System.Drawing.Imaging.ImageFormat.Png) Then
            Response.ContentType = "image/png"
        ElseIf graphicFormat.Equals(System.Drawing.Imaging.ImageFormat.Bmp) Then
            Response.ContentType = "image/bmp"
        End If

        Image.Save("C:\inetpub\www\billeder\thumbnails\" & Request("name") & "", graphicFormat)

        graphic.Dispose()
        Image.Dispose()

    End Sub
</script>
<% CreateThumb() %>

Hey Loukas.
Jeg har længe gerne ville i gang med .net, det ser ud til det skal være nu! :-)
Mange tak, jeg prøver den lige. Og har.net på min server, så det går nok.
Okay tak til dig ikuyucu for link, men prøver lige .net løsningen først.
Mvh.
Henrik

Fået løst problemet?

svar