Uses Clipbrd,Jpeg;
-----------------
var Jpeg:TJpedImage;
-----------------
if SavePictureDialog.Execute then
Begin
Jpeg:=TJpegImage.Create;
Try
ClipBoard.Clear;
DbChart.CopyToClipboardBitmap;
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;
------------------但是系统出错,好想是内存地址类的错误-----请问上面代码哪儿有错误?
-----------------
var Jpeg:TJpedImage;
-----------------
if SavePictureDialog.Execute then
Begin
Jpeg:=TJpegImage.Create;
Try
ClipBoard.Clear;
DbChart.CopyToClipboardBitmap;
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;
------------------但是系统出错,好想是内存地址类的错误-----请问上面代码哪儿有错误?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货