Försöker skapa en tumbanil av en bild med denna kod:
<code>
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
</code>

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.

Har testat både med gif/jpg/bmp.

Någon med idéer?

Jag gissar på att den sparar bilden i bmp format oavsett vilken filändelse du ger den. Det är därför bilderna inte fungerar.

hmm mjo kanske. hmm...

Måste börja med att säga att jag tycker det är rysligt fånigt att vara anonym här på Pellesoft.

Sen skulle jag vilja säga att det finns en överladdad variant av just Save-metoden som tar emot en ImageFormat-enumrering. Kanske du skulle testa att använda den??

Följande är saxat från hjälpen:
Image.Save Method (String, ImageFormat) [Visual Basic]
Saves this Image object to the specified file in the specified format.

Overloads Public Sub Save( _
ByVal filename As String, _
ByVal format As ImageFormat _
End Sub

filename: A string that contains the name of the file to which to save this Image object.
format: The ImageFormat object for this Image object.

Varså god

//Mikael.NET

</citat>Måste börja med att säga att jag tycker det är rysligt fånigt att vara anonym här på Pellesoft</citat> Ehh menar du mig?

Hur som helst! Denna kod fungerar i alla fall.
<code>
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)
</code>

Håller med Sand. Du har valt att inte publicera dit visitkort för ossa andra medlemmar. Det är det som ogillas. ;o)

Vi är lite paranoida och tror då att du har något att dölja. ;o)

Sådär, då borde ni se det :)

Gäller ju att hitta inställningen också....