bildproblem...

Försöker skapa en tumbanil av en bild med denna kod:

    Public Shared Function CreateTumbNail(ByVal strPath As String, ByVal strFilePath As String)
        Dim objBMP As System.Drawing.Bitmap
        Dim objGraphics As System.Drawing.Image
        Dim maxImage As Integer = 200
        'open image
        objBMP = New Bitmap(strPath & GetName(strFilePath) & "." & GetExtension(strFilePath))
        Dim imgw As Integer = objBMP.Width
        Dim imgh As Integer = objBMP.Height

        ' Creating a Thumbnail with scale
        Dim newimgw As Integer
        Dim newimgh As Integer
        If imgw > imgh Then
            newimgw = maxImage
            newimgh = (imgh * maxImage) / imgw
        ElseIf imgh > imgw Then
            newimgw = (imgw * maxImage) / imgh
            newimgh = maxImage
        Else
            newimgw = imgw
            newimgh = imgh
        End If
        Try
            'ThumbNail it!!
            objGraphics = objBMP.GetThumbnailImage(newimgw, newimgh, Nothing, IntPtr.Zero)

            ' creates the name
            objGraphics.Save(strPath & GetName(strFilePath) & "-tumbnail." & GetExtension(strFilePath))
        Catch Exp As Exception
            Return Exp.ToString
        End Try
    End Function

Bilen skapas och läggs i mappen. Om jag dubbelklickar på den i utforskaren så visas den fint i visningsprogramet. Men om jag går in i visual studio (eller tex webbläsare ) för att hämta filen och placera den på en webbsida så visas den inte. En gamla "stora" filen visas dock som vanligt.

Någon med idéer?

Låter mystiskt, verkar som om att IE inte kan läsa bilden, men bildvisningprogramet kan. I vilket format sparas den?

Sparar du den inte som en .bmp nu, eller har jag missförstått din kod? I så fall kan du inte visa den i en webbläsare.

hmm jo kanske. Även om jag tar en .bmp fil och försöker tumbnaila den så visas den inte.

Hum, tror inte NETwork menar källfilen så mycket, det viktiga är att du inte sparar tumbnail i BMP format, välj gif, jpeg eller png.

Oki, testat det också utan resultat!

Ahh såg något annat inlägg... får konvertera lite kod...
tog lite kod av xrobx blev så här om någon vill ha :P

        Dim file As String = "ökensand"
        Dim fileext As String = "bmp"

        Dim TIA As System.Drawing.Image.GetThumbnailImageAbort
        Dim imgFormat As Imaging.ImageFormat
        Dim mImage As System.Drawing.Image
        Select Case fileext
            Case "jpg"
                imgFormat = Imaging.ImageFormat.Jpeg
            Case "gif"
                imgFormat = Imaging.ImageFormat.Gif
            Case "bmp"
                imgFormat = Imaging.ImageFormat.Bmp
        End Select

        mImage = mImage.FromFile(Server.MapPath(file & "." & fileext))
        Dim btm As New Bitmap(mImage)
        mImage.Dispose()
        mImage = btm
        mImage = mImage.GetThumbnailImage(100, 100, TIA, IntPtr.Zero)
        mImage.Save(Server.MapPath(file & "tumb." & fileext), imgFormat)