TeeChart经验总结 12.Export之1.图像保存

TeeChart提供比较丰富的图像保存(处理),和数据保存.
先说图像保存.

BMP:

 1 //1   
 2 Chart.SaveToBitmapFile(Const FileName:String);   
 3 //2   
 4 Chart.SaveToBitmapFile(Const FileName:String; Const R:TRect);   
 5 //3   
 6 //Uses TeeBmpOptions;   
 7 Procedure TeeSaveToBitmap( APanel:TCustomTeePanel;   
 8                            Const FileName: WideString;   
 9                            Const R:TRect);   
10 //4   
11 //Uses TeeBmpOptions;   
12 var  
13   aBMPExportFormat: TBMPExportFormat;   
14 begin  
15   aBMPExportFormat := TBMPExportFormat.Create;   
16   aBMPExportFormat.Panel := Chart;   
17   aBMPExportFormat.SaveToFile('test.bmp');   
18   aBMPExportFormat.Free;   
19 end;

Flex:

 1 //1   
 2 //Uses TeeFlexCanvas;   
 3 procedure TeeSaveToFlexFile( APanel:TCustomTeePanel; const FileName: WideString;   
 4                              AWidth:Integer=0; AHeight:Integer=0;   
 5                              EmbededImages:Boolean=True);   
 6 //2 如果需要编译,还需要指定编译器的文件.   
 7 //Uses TeeFlexCanvas;   
 8 var  
 9   aFlexExportFormat: TFlexExportFormat;   
10 begin  
11   aFlexExportFormat := TFlexExportFormat.Create;   
12   aFlexExportFormat.Panel := Chart;   
13   aFlexExportFormat.SaveToFile('test.mxml');   
14   aFlexExportFormat.Free;   
15 end;

GIF:

 1 //1   
 2 //Uses TeeGIF;   
 3 var  
 4   aGIFExportFormat: TGIFExportFormat;   
 5 begin  
 6   aGIFExportFormat := TGIFExportFormat.Create;   
 7   aGIFExportFormat.Panel := Chart;   
 8   aGIFExportFormat.SaveToFile('test.gif');   
 9   aGIFExportFormat.Free;   
10 end;

JPG:

 1 //1   
 2 //Uses TeeJPEG;   
 3 { Returns a JPEG image from "APanel" Chart, DBChart or Draw3D }  
 4 Function TeeGetJPEGImageParams( APanel:TCustomTeePanel;   
 5                                 Const Params:TJPEGDefaults;   
 6                                 Left,Top,   
 7                                 Width,Height:Integer):TJPEGImage;   
 8 //2   
 9 //Uses TeeJPEG;   
10 { saves a Panel (Chart, Tree, etc) into a JPEG file }  
11 procedure TeeSaveToJPEGFile( APanel:TCustomTeePanel;   
12                              Const FileName: WideString;   
13                              Gray: WordBool;   
14                              Performance: TJPEGPerformance;   
15                              Quality, AWidth, AHeight: Integer);   
16 //3   
17 //Uses TeeJPEG;   
18 { same as above, with 100% quality }  
19 procedure TeeSaveToJPEG( APanel:TCustomTeePanel;   
20                          Const FileName: WideString;   
21                          AWidth, AHeight: Integer);   
22 //4   
23 //Uses TeeJPEG;   
24 var  
25   aJPEGExportFormat: TJPEGExportFormat;   
26 begin  
27   aJPEGExportFormat := TJPEGExportFormat.Create;   
28   aJPEGExportFormat.Panel := Chart;   
29   aJPEGExportFormat.Quality := 85;   
30   aJPEGExportFormat.SaveToFile('test.jpg');   
31   aJPEGExportFormat.Free;   
32 end;

MetaFile:

1 //1 no Enhanced   
2 Chart.SaveToMetafile(Const FileName:String);   
3 //2 Enhanced   
4 Chart.SaveToMetafileEnh(Const FileName:String);   
5 //3   
6 Chart.SaveToMetafileRect( Enhanced:Boolean; Const FileName:String;   
7                                   Const Rect:TRect );

PCX:

 1 //1   
 2 //Uses TeePCX;   
 3 var  
 4   aPCXExportFormat: TPCXExportFormat;   
 5 begin  
 6   aPCXExportFormat := TPCXExportFormat.Create;   
 7   aPCXExportFormat.Panel := Chart;   
 8   aPCXExportFormat.SaveToFile('test.pcx');   
 9   aPCXExportFormat.Free;   
10 end;

PDF:

 1 //1   
 2 //Uses TeePDFCanvas;   
 3 procedure TeeSaveToPDFFile( APanel:TCustomTeePanel; const FileName: WideString;   
 4                             AWidth:Integer=0;   
 5                             AHeight: Integer=0);   
 6 //2   
 7 //Uses TeePDFCanvas;   
 8 var  
 9   aPDFExportFormat: TPDFExportFormat;   
10 begin  
11   aPDFExportFormat := TPDFExportFormat.Create;   
12   aPDFExportFormat.Panel := Chart;   
13   aPDFExportFormat.SaveToFile('test.pdf');   
14   aPDFExportFormat.Free;   
15 end;

PostScript:

 1 //1   
 2 //Uses TeePSCanvas;   
 3 procedure TeeSaveToPSFile( APanel:TCustomTeePanel; const FileName: WideString;   
 4                             AWidth:Integer=0;   
 5                             AHeight: Integer=0);   
 6 //2   
 7 //Uses TeePSCanvas;   
 8 var  
 9   aEPSExportFormat: TEPSExportFormat;   
10 begin  
11   aEPSExportFormat := TEPSExportFormat.Create;   
12   aEPSExportFormat.Panel := Chart;   
13   aEPSExportFormat.SaveToFile('test.eps');   
14   aEPSExportFormat.Free;   
15 end;

SVG:

 1 //1   
 2 //Uses TeeSVGCanvas;   
 3 procedure TeeSaveToSVGFile( APanel:TCustomTeePanel; FileName: String;   
 4                             AWidth:Integer=0; AHeight: Integer=0);   
 5 //2   
 6 //Uses TeeSVGCanvas;   
 7 var  
 8   aSVGExportFormat: TSVGExportFormat;   
 9 begin  
10   aSVGExportFormat := TSVGExportFormat.Create;   
11   aSVGExportFormat.Panel := Chart;   
12   aSVGExportFormat.SaveToFile('test.svg');   
13   aSVGExportFormat.Free;   
14 end;

VML(HTM):

 1 //1   
 2 //Uses TeeVMLCanvas;   
 3 procedure TeeSaveToVMLFile( APanel:TCustomTeePanel; const FileName: WideString;   
 4                             AWidth:Integer=0;   
 5                             AHeight: Integer=0);   
 6 //2   
 7 //Uses TeeVMLCanvas;   
 8 var  
 9   aVMLExportFormat: TVMLExportFormat;   
10 begin  
11   aVMLExportFormat := TVMLExportFormat.Create;   
12   aVMLExportFormat.Panel := Chart;   
13   aVMLExportFormat.SaveToFile('test.htm');   
14   aVMLExportFormat.Free;   
15 end;

XAML(WPF):

 1 //1   
 2 //Uses TeeXAMLCanvas;   
 3 procedure TeeSaveToXAMLFile( APanel:TCustomTeePanel; const FileName: WideString;   
 4                              AWidth:Integer=0; AHeight: Integer=0);   
 5 //2   
 6 //Uses TeeXAMLCanvas;   
 7 var  
 8   aXAMLExportFormat: TXAMLExportFormat;   
 9 begin  
10   aXAMLExportFormat := TXAMLExportFormat.Create;   
11   aXAMLExportFormat.Panel := Chart;   
12   aXAMLExportFormat.SaveToFile('test.xaml');   
13   aXAMLExportFormat.Free;   
14 end;