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;