图片保存问题..... 急救...........

Question

如没有图片的话...
则下面的语句出错...  
  ww:=tmemorystream.Create;
   image1.Picture.Graphic.SaveToStream(ww); //这一句出错.
   ww.Position:=0;
   parameters.ParamByName('c33').LoadFromStream(ww,ftgraphic);

Answer 1

if image1.picture<>nil then
 image1.Picture.Graphic.SaveToStream(ww);

Answer 2

if assigned(image1.Picture.Graphic) then image1.Picture.Graphic.SaveToStream

Answer 3

procedure TForm1.BitBtn1Click(Sender: TObject);
前下次我试了一下不行用下面的
begin
   try
   if not image1.Picture.Graphic.Empty then
   showMessage('  有图片')；
   image1.Picture.Graphic.SaveToStream(ww); 
   except
   showmessage('没有图片')
   end;