ASP.NET thumbnail creating and saving

[asad]

Hello friends, how ru all, i have some problem about saving created
thumbnail, following is the code i use for creating thumbnail but thumbnail
was not saved it is on memory which method is used to store created thumbnail
in to hard disk

<%@ Page Language="VB" ContentType="te xt/html" ResponseEncodin g="iso-8859-1"
%>
<%@ Import Namespace="Syst em.Drawing.Imag ing"%>
<%@ Import Namespace="Syst em.Drawing.imag e"%>
<script language="VB" runat="server">
Function ThumbnailCallba ck() as Boolean
return False
end function
Sub Page_Load()
Dim imageurl as string=Request. QueryString("im g")
imageurl="/images/" & imageurl
Dim fullsizeimg as system.Drawing. Image
fullsizeimg=Sys tem.Drawing.Ima ge.FromFile(Ser ver.M apPath("mug.gif "))
Response.Conten tType="image/gif"
'fullsizeimg.sa ve(Response.out putstream,image forma t.gif)
Dim dummyCallBack as System.Drawing. Image.GetThumbn ailImageAbort
dummyCallBack=N ew system.drawing. image.GetThumbn ailimageabort(A ddres sOf
ThumbnailCallba ck)
Dim thumbnailimg as System.Drawing. Image
thumbnailimg=fu llsizeimg.Getth umbnailImage(10 0,100 ,dummyCallBack, IntPtr.Zero)
thumbnailimg.Sa ve(Application. StartupPath&cst rThumbFileName)
End Sub
</script>

pls review it and tell me about he function thanks

[Verde]

This works for me. It's C#, but all you need to do is pay attention to the
..NET Framework classes I'm using.

System.IO.FileS tream fs = new System.IO.FileS tream(pathToFul lSizeImage,
System.IO.FileM ode.Open, System.IO.FileA ccess.Read);

System.Drawing. Image objThumbnail =
System.Drawing. Image.FromStrea m(fs).GetThumbn ailImage(tWidth , tHeight, null,
IntPtr.Zero);

// DO NOT USE THE FOLLOWING LINE; Image.FromFile( ) keeps the file open. This
is why we open the file via a stream - a stream can be closed.
// System.Drawing. Image objThumbnail =
System.Drawing. Image.FromFile( strFilename).Ge tThumbnailImage (iWidth,
iHeight, null, IntPtr.Zero);

// Set the ContentType correctly
if (fileType == "JPG" || fileType == "JPEG") {
objThumbnail.Sa ve(pathToThumbn ailImage, ImageFormat.Jpe g);
}
else {
objThumbnail.Sa ve(pathToThumbn ailImage, ImageFormat.Gif );
}
HTH
"asad" <as**@discussio ns.microsoft.co m> wrote in message
news:56******** *************** ***********@mic rosoft.com...

Hello friends, how ru all, i have some problem about saving created
thumbnail, following is the code i use for creating thumbnail but
thumbnail
was not saved it is on memory which method is used to store created
thumbnail
in to hard disk

<%@ Page Language="VB" ContentType="te xt/html"
ResponseEncodin g="iso-8859-1"
%>
<%@ Import Namespace="Syst em.Drawing.Imag ing"%>
<%@ Import Namespace="Syst em.Drawing.imag e"%>
<script language="VB" runat="server">
Function ThumbnailCallba ck() as Boolean
return False
end function
Sub Page_Load()
Dim imageurl as string=Request. QueryString("im g")
imageurl="/images/" & imageurl
Dim fullsizeimg as system.Drawing. Image
fullsizeimg=Sys tem.Drawing.Ima ge.FromFile(Ser ver.M apPath("mug.gif "))
Response.Conten tType="image/gif"
'fullsizeimg.sa ve(Response.out putstream,image forma t.gif)
Dim dummyCallBack as System.Drawing. Image.GetThumbn ailImageAbort
dummyCallBack=N ew system.drawing. image.GetThumbn ailimageabort(A ddres sOf
ThumbnailCallba ck)
Dim thumbnailimg as System.Drawing. Image
thumbnailimg=fu llsizeimg.Getth umbnailImage(10 0,100
,dummyCallBack, IntPtr.Zero)
thumbnailimg.Sa ve(Application. StartupPath&cst rThumbFileName)
End Sub
</script>

pls review it and tell me about he function thanks

[Brock Allen]

Don't forget to call Dispose on your Image objects (both the one you load
and the generated thumbnail one).
I have an implementation of this already here:

http://staff.develop.com/ballen/blog...8-9aff48bf2481

-Brock
DevelopMentor
http://staff.develop.com/ballen

Hello friends, how ru all, i have some problem about saving created
thumbnail, following is the code i use for creating thumbnail but
thumbnail was not saved it is on memory which method is used to store
created thumbnail in to hard disk

<%@ Page Language="VB" ContentType="te xt/html"
ResponseEncodin g="iso-8859-1"
%>
<%@ Import Namespace="Syst em.Drawing.Imag ing"%>
<%@ Import Namespace="Syst em.Drawing.imag e"%>
<script language="VB" runat="server">
Function ThumbnailCallba ck() as Boolean
return False
end function
Sub Page_Load()
Dim imageurl as string=Request. QueryString("im g")
imageurl="/images/" & imageurl
Dim fullsizeimg as system.Drawing. Image
fullsizeimg=Sys tem.Drawing.Ima ge.FromFile(Ser ver.M apPath("mug.gif "))
Response.Conten tType="image/gif"
'fullsizeimg.sa ve(Response.out putstream,image forma t.gif)
Dim dummyCallBack as System.Drawing. Image.GetThumbn ailImageAbort
dummyCallBack=N ew system.drawing. image.GetThumbn ailimageabort(A ddres
sOf
ThumbnailCallba ck)
Dim thumbnailimg as System.Drawing. Image
thumbnailimg=fu llsizeimg.Getth umbnailImage(10 0,100
,dummyCallBack, IntPtr.Zero)
thumbnailimg.Sa ve(Application. StartupPath&cst rThumbFileName)
End Sub
</script>
pls review it and tell me about he function thanks