如何将FORM保存为JPG图片? 我想实现这样一个功能,将程序中某个窗体界面保存为JPG图片。该如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var Bitmap: TBitmap; MyRect: TRect; JPG:TJPEGImage;begin MyRect.Left:=0; MyRect.Top:=0; MyRect.Right:=Width; MyRect.Bottom:=height; Bitmap := TBitmap.Create; Bitmap.Width:=Width; Bitmap.Height:=Height; Bitmap.Canvas.CopyRect(MyRect,Canvas,MyRect); JPG:=TJPEGImage.Create; JPG.Assign(Bitmap); JPG.CompressionQuality:=100; JPG.Performance:=jpBestQuality; JPG.Compress; JPG.SaveToFile('e:\temp\t.jpg'); Bitmap.Free; JPG.Free;end; access violation错误 如何将bmp 格式的图片中的黑色底色替换成白色并保存到文件? 请问在Fastreport中怎样动态显示图片??? 三层结构的一些提问,答者有分. 在delphi中如何实现redo和undo功能 rave报表打印出错,紧急求助! 知道IP如何知道计算机名??? 怎样获得外部已经运行的程序的存放路径(100分) 我用vs.net做了一个web service怎么在delphi下调用呢? 怎样把TBlobField字段赋为空?? 用DBEXPRESS连接MYSQL的问题 求Delphi快速卷积的算法!
var
Bitmap: TBitmap;
MyRect: TRect;
JPG:TJPEGImage;
begin
MyRect.Left:=0;
MyRect.Top:=0;
MyRect.Right:=Width;
MyRect.Bottom:=height;
Bitmap := TBitmap.Create;
Bitmap.Width:=Width;
Bitmap.Height:=Height;
Bitmap.Canvas.CopyRect(MyRect,Canvas,MyRect);
JPG:=TJPEGImage.Create;
JPG.Assign(Bitmap);
JPG.CompressionQuality:=100;
JPG.Performance:=jpBestQuality;
JPG.Compress;
JPG.SaveToFile('e:\temp\t.jpg');
Bitmap.Free;
JPG.Free;
end;