生成缩略图，错误提示：内存不足！

vasun 2004-03-30 11:18:02

//取得原图像的缩略图
System.Drawing.Image img =image.GetThumbnailImage(Newwidth,Newheight,null,System.IntPtr.Zero);

这一句显示红色，提示：内存不足。

到底怎么回事，我狂晕。

...全文

311 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

longchen 2004-07-02

打赏
举报

什么原因啊？？

musicllm 2004-03-30

打赏
举报

别晕了。
搞GUI＋经常会碰到内存不足。哈

vasun 2004-03-30

打赏
举报

顶

vasun 2004-03-30

打赏
举报

不行啊，就是按这个程序写的，你的可以吗？怪事啊。

nnh 2004-03-30

打赏
举报

試試吧.沒有問題,可以用的.
<% @Page Language="vb" debug="true"%>
<script language="VB" runat="server">
Sub UploadFile(sender As Object, e As EventArgs)

FSize.Text ="Big:"+ CStr(FileUp.PostedFile.ContentLength/1024)+"KB"
FName.Text = "Name:"+FileUp.PostedFile.FileName

dim strFileName as string =FileUp.PostedFile.FileName.ToString()
dim namei as integer =strFileName.LastIndexOf(".")
dim strNameX as string=strFileName.Substring(namei)

dim sql as string
dim id as integer
Dim image,anewimage As System.Drawing.Image
dim width,height,newwidth,newheight as integer
Dim callb As System.Drawing.Image.GetThumbnailImageAbort

dim strNewName as string =Session.SessionID.Tostring() + DateTime.Now.Year.ToString()+ DateTime.Now.Month.ToString()+DateTime.Now.Day.ToString()+DateTime.Now.Hour.ToString()+DateTime.Now.Minute.ToString()+DateTime.Now.Second.ToString()

FileUp.PostedFile.SaveAs(Server.MapPath(".\classpic\" & strNewName & strNameX))

image=System.Drawing.Image.FromFile(Server.MapPath(".\classpic\" & strNewName & strNameX))

PicSize.text="size:" & "width:" & image.Width & " " & "height:" &image.height

if width>height then
newwidth=250
newheight=image.height/image.Width*newwidth
else
newheight=250
newwidth=image.Width/image.height*newheight
end if

aNewImage=image.GetThumbnailImage(newwidth,newheight,callb,new System.IntPtr())
aNewImage.Save(Server.MapPath(".\smallpic\" & strNewName & "_small" & strNameX))
image.Dispose()

NewPicSize.text="SIZE:" & "width:" & newwidth & " " & "height:" & newheight
End Sub
</script>
<Html>
<Body BgColor=White>
<Form Enctype="multipart/form-data" onsubmit="return guestbook_Validator(this)" runat="server">
<FONT COLOR="#CC0000">UplaodFile:</FONT>
<Input Type="File" id="FileUp" runat="server" size="20">
<Asp:button id="Upload" OnClick="UploadFile" Text="UpLoadFile" runat="server"/><BR>
<Asp:Label id="FSize" runat="server" enableviewstata="falase"/><BR>
<Asp:Label id="FName" runat="server" enableviewstata="falase"/><BR>
<Asp:Label id="PicSize" runat="server" enableviewstata="falase"/><BR>
<Asp:Label id="NewPicSize" runat="server" enableviewstata="falase"/>
</form>
</Body>
</Html>

vasun 2004-03-30