现在只能保存BMP格式的呀,如题。。
解决方案 »
- 谁用过TwwDBLookupComboDlg控件?
- 高分求问,Lookup问题!!!!!!!!!!!!!
- 无限深度展开树型数据库(TreeView)
- 有没有这样的结构try..except..finally..end
- 在MDI里,怎么使两个子窗体不能同时打开?
- 请问Form的Destroy和Close有什么区别?
- Acess数据库中存取图形及二进制数,字段应为什么类型及如何存取???
- DELPHI中EXCEL2007与SQL互导
- 当我用adotable链接数据库时出现这种情况
- 哪里有斑马(zebra)条码打印机的汉字输出函数或控件??(所有分送出!!)
- 使用MS SQL2000数据库,table.post时出错。
- 我如何实现关联?
可以对图片处理一下,转为jpg,网上很多代码例子
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeeComma, ExtCtrls, TeeProcs, TeEngine, Chart, Buttons,jpeg,
ExtDlgs;type
TForm1 = class(TForm)
Chart1: TChart;
TeeCommander1: TTeeCommander;
procedure SaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
TeeCommander1.ButtonSave.OnClick:=SaveClick;
end;procedure TForm1.SaveClick(Sender: TObject);
var
bmp:TBitmap;
JpegImg:TJpegImage;
begin
bmp:= Tbitmap.Create;
JpegImg:= TJpegImage.Create;
try
bmp.Width:=Chart1.Width;
bmp.Height:=Chart1.Height;
bmp.Canvas.CopyMode:=cmSrcCopy;
bmp.Canvas.CopyRect(rect(0,0,Chart1.Width,Chart1.Height),Chart1.Canvas.ReferenceCanvas,rect(0,0,Chart1.Width,Chart1.Height));
JpegImg.Assign(bmp);
JpegImg.SaveToFile('c:\1.jpg');
finally
bmp.Free;
JpegImg.Free;
end;
end;end.