各位帮我看看: 退出FORM, 显示"stack overflow"错误,哪里出问题拉??? ( 积分: 0 )

procedure&nbsp;Tm_product.BitBtn3Click(Sender:&nbsp;TObject);<br>var<br>pict,pict1,PICT2:string;<br>pic3,pic1:tjpegimage;<br>strm,strm1:TMemoryStream;<br>begin<br>&nbsp;s_PROD_dict.Edit;<br>&nbsp;pict:=opendialog1.FileName;<br>&nbsp;if&nbsp;PICT&nbsp;&lt;&gt;''&nbsp;then<br>&nbsp;&nbsp;BEGIN<br>&nbsp;&nbsp;&nbsp;&nbsp;PICT1:=ExtractFileName(opendialog1.FileName);<br>&nbsp;&nbsp;&nbsp;&nbsp;s_PROD_dict['picture']:=pict1;<br>&nbsp;&nbsp;&nbsp;&nbsp;strm:=tmemorystream.Create&nbsp;;<br>&nbsp;&nbsp;&nbsp;&nbsp;PICT2:='//192.168.1.2/image1/'+pict1;<br>&nbsp;&nbsp;&nbsp;&nbsp;SaveDialog1.FileName:=PICT2;<br>&nbsp;&nbsp;&nbsp;&nbsp;Pic1:=TJpegImage.Create;<br>&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic1.loadfromfile(pict);&nbsp;&nbsp;//取得OPENDIAG1所取得JPG文件<br>&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('Error&nbsp;On&nbsp;LoadFile&nbsp;strm');<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Assigned(pic1)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic1.SaveToStream(strm);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strm.seek(0,&nbsp;0);<br>&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;strm&lt;&gt;nil&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strm.savetofile(SaveDialog1.FileName);&nbsp;&nbsp;//保存到指定位置&nbsp;&nbsp;file://内存流保存，大小与file://pict1一样<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;showmessage('error&nbsp;on&nbsp;access&nbsp;memory!');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//test<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;//测试把保存的图片文件显示出来<br>&nbsp;&nbsp;strm1:=tmemorystream.Create&nbsp;;<br>&nbsp;&nbsp;Pic3:=TJpegImage.Create;<br>&nbsp;&nbsp;image1.Picture.Graphic&nbsp;:=&nbsp;nil;<br>&nbsp;&nbsp;pict1:=s_prod_dict.fieldbyname('picture').asstring;<br>&nbsp;&nbsp;if&nbsp;pict1&lt;&gt;''&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PICT2:='//192.168.1.2/image1/'+pict1;&nbsp;//服务器共享目录，必需允许用户可以读写<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;openDialog1.FileName:=PICT2;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strm1.loadfromfile(openDialog1.FileName);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;strm1&lt;&gt;nil&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;strm1.seek(0,&nbsp;0);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pic3.LoadFromStream(strm1);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;image1.Picture.Graphic:=pic3;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;showmessage('error&nbsp;on&nbsp;access&nbsp;memory!');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;strm1.free;<br>&nbsp;&nbsp;pic3.Free&nbsp;;<br>&nbsp;&nbsp;strm.Free&nbsp;;<br>&nbsp;&nbsp;PIC1.Free;<br>&nbsp;&nbsp;end;<br>end;

已经弄好.FORMCLOSE里面加了CLOSE;&nbsp;结贴