请教图象编程高手!

BlueSoftEye 2003-08-19 11:13:06
以下是我的源代码,请看看错在哪儿?
-----------------------------------------------------------------------------
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;
------------------但是系统出错,好想是内存地址类的错误-----请问上面代码哪儿有错误?
...全文
21 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
DWGZ 2003-08-19
  • 打赏
  • 举报
回复
搞不懂你为会么要用jpeg 用TBitmap就行了
DWGZ 2003-08-19
  • 打赏
  • 举报
回复
var
Jpeg:TJpedImage;
Bmp: TBitmap;
-----------------
if SavePictureDialog.Execute then
Begin
Jpeg:=TJpegImage.Create;
Bmp := TBitmap.Create;
Try
ClipBoard.Clear;
DbChart.CopyToClipboardBitmap;//-----TDbchart 控件
if Clipboard.HasFormat(CF_BITMAP) then
Begin
Bmp.LoadFromClipboardFormat(CF_BITMAP,ClipBoard.GetAsHandle(CF_BITMAP),256);
Jpeg.Assign(Bmp);
Jpeg.SaveToFile(SavePictureDialog.FileName);
end;
Finally
Jpeg.Free;
Bmp.Free;
end;

end;
BlueSoftEye 2003-08-19
  • 打赏
  • 举报
回复
用Jpeg是想存为Jpeg格式的图象

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧