Ett utdrag av koden nedan.

När den kör "GetThumbnailImage" på filer som är större än 530 kB så kommer felmeddelandet: "Value cannot be null. Parameter name: format" upp. Mindre filer fungerar fint. Alla filerna är Jpeg.

           fileupload1.PostedFile.SaveAs("C:\temp\" & strFileName)


            Dim file As String = strFileName
            Dim fileext As String = Right(strFileName, 3)

            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
            End Select

            mImage = mImage.FromFile("C:\temp\" & strFileName)

            Dim btm As New Bitmap(mImage)
            mImage.Dispose()
            mImage = btm
            mImage = mImage.GetThumbnailImage(100, 100, TIA, IntPtr.Zero)
            mImage.Save(Response.OutputStream, imgFormat)

Säker på att filen finns då?

För jag har läst in flera MB stora filer, då du får null så är det något som inte finns.

Mvh Johan

Jorå, filerna finns. Om jag lägger två filer i min temp-mapp. Döper dem till Fil1.jpg och Fil2.jpg, fil1 är 450 kB och fil2 är 650 kB.

Laddar jag upp fil1 så fungerar det, tar jag fil2 så blir det fel.

Prova på följande adress: http://www.klementsson.se/net/fileupload.aspx

Det är inte så att du försöker mellanlagra bilddata i en variable som är begränsad till max 512 kb? Och om denna gräns överskrids så lämnas denna variabel tom?

Om du kan posta lite kod, så kanske man kan se vad som går snett.

// Johan

<code>
Select Case fileext
Case "jpg"
imgFormat = Imaging.ImageFormat.Jpeg
Case "gif"
imgFormat = Imaging.ImageFormat.Gif
End Select
</code>

Den där tror jag felar, vad sägs om att ändra fileext till fileext.ToLowerCase() samt att lägga till en default? Min gissning är helt enkelt att filtillägget på filen du laddar upp inte är till 100% vad du förväntar dig

Här är den kompletta koden, lite ostädad....

<code>
Sub UploadFile()
If Not (fileupload1.PostedFile Is Nothing) Then 'Check to make sure we actually have a file to upload
Dim strLongFilePath As String = fileupload1.PostedFile.FileName
Dim intFileNameLength As Integer = InStr(1, StrReverse(strLongFilePath), "\")
Dim strFileName As String = Mid(strLongFilePath, (Len(strLongFilePath) - intFileNameLength) + 2)

If strLongFilePath = "" Then Exit Sub

fileupload1.PostedFile.SaveAs("C:\temp\" & strFileName)


Dim file As String = strFileName
Dim fileext As String = Right(strFileName, 3)

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
End Select

mImage = mImage.FromFile("C:\temp\" & strFileName)


Dim btm As New Bitmap(mImage)
mImage.Dispose()
mImage = btm

Dim objGraphics As Graphics

Dim newSize As New Size(640, 480)

objGraphics = Graphics.FromImage(btm)

Dim objNewBMP As New Bitmap(btm, newSize)

objNewBMP.Save(Response.OutputStream, imgFormat)

End If
End Sub

</code>

Kollade ej så noga på din kod men vid uppladdning av filer har du en begränsning vid uppladdning till server på default 4Mb satt i machine.config

<httpRuntime
executionTimeout="90"
maxRequestLength="4096"
useFullyQualifiedRedirectUrl="false"
minFreeThreads="8"
minLocalRequestFreeThreads="4"
appRequestQueueLimit="100"
/>

exempel länk : http://support.microsoft.com/default.aspx?scid=kb;en-us;323245

MVH // Anders

Men de filer som jag laddar upp är ju bara 600 kB stora, så 4 MB är ju långt ifrån....

Upload fungerar fint... filen hamnar där den skall... men det är Outputstream som inte fungerar om filen är över 512 kB stor.

Jag har ökat maxRequestLength till 30 MB nu så det skall inte vara några problem med den.

Är det ingen som har en idé hur detta problem skall lösas?

Jag kan bidra med att säga att jag har fått det att fungera med större filer på ett projekt för längesedan. Kan dock inte komma åt källkoden nu, men det ska gå!

Å du har ingen aning om var jag skall börja titta efter lösningen?

Google är allt jag kan komma ihåg... :/