请教图象编程高手!
以下是我的源代码,请看看错在哪儿?
-----------------------------------------------------------------------------
Uses Clipbrd,Jpeg;
-----------------
var Jpeg:TJpedImage;
-----------------
if SavePictureDialog.Execute then
Begin
Jpeg:=TJpegImage.Create;
Try
ClipBoard.Clear;
DbChart.CopyToClipboardBitmap;//-----TDbchart 控件
if Clipboard.HasFormat(CF_BITMAP) then
Begin
Jpeg.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),256);
Jpeg.SaveToFile(SavePictureDialog.FileName);
end;
Finally
Jpeg.Free;
end;
end;
------------------但是系统出错,好想是内存地址类的错误-----请问上面代码哪儿有错误?