我們都知道用Delphi第三方圖表工具 TeeChart 可以導(dǎo)出很多種圖像格式，TeeChart 7 前可以通過類似于Chart1.Export.SaveToJPEGFile的方法把TChart存成需要的圖像格式，但到TeeChart 7后就沒有Export屬性了。下面我用代碼示例總結(jié)一下導(dǎo)出各種圖像格式時的設(shè)置方法：

1、TeeChart導(dǎo)出BMP、WMF

TeeChart提供導(dǎo)出BMP、WMF的方法，直接調(diào)用即可，示例如下：

Chart1.SaveToBitmapFile('c:\1.bmp');

Chart1.SaveToMetafile('c:\1.wmf');

2、TeeChart導(dǎo)出JPG（JPEG）

TeeChart導(dǎo)出JPG（JPEG）也比較簡單，在本單元中uses TeeJPEG單元，然后執(zhí)行TeeJPEG中的TeeSaveToJPEG或TeeSaveToJPEGFile。示例如下：

//注意要包含TeeJPEG才可以
implementationuses  TeeJPEG;
procedure TForm1.Button2Click(Sender: TObject);
begin  TeeSaveToJPEG(Chart1, 'c:\1.jpg', -1, -1);//后面的兩個參數(shù)是寬和高，如果用TeeChart的寬、高可以設(shè)為-1.end;

3、TeeChart導(dǎo)出GIF

TeeChart導(dǎo)出GIF較復(fù)雜一些，代碼示例：

//注意要包含TeeGIF才可以
implementationuses  TeeGIF;procedure TForm1.Button3Click(Sender: TObject);
var  exp : TGIFExportFormat;  
frm : TTeeGIFOptions;
begin  exp := TGIFExportFormat.Create;  exp.Panel := Chart1;  
frm := TTeeGIFOptions(exp.Options());  
frm.CBReduction.ItemIndex := 3;  
exp.SaveToFile('c:\1.gif');  
exp.Free;
end;

注：上面的例子對于TeeChart的圖像導(dǎo)出很有代表意義，其實(shí)所有格式的導(dǎo)出到可以用上例的方式，只是把TGIFExportFormat換成需要的格式即可，因?yàn)樗械膶?dǎo)出都對應(yīng)一種格式。

上面例子中，生成一個導(dǎo)出的格式類對象，設(shè)置此格式要導(dǎo)出的Chart，如果有必要再設(shè)定導(dǎo)出的選項(xiàng)。導(dǎo)出選項(xiàng)要特別提醒一下，所有導(dǎo)出格式的導(dǎo)出選項(xiàng)都是通過格式類的Options()函數(shù)得到的窗體進(jìn)行設(shè)置的，這點(diǎn)比較奇怪。

GIF導(dǎo)出必須設(shè)定frm.CBReduction.ItemIndex，因?yàn)榇隧?xiàng)缺省為0，導(dǎo)出時會報(bào)“Color Table error....”的錯誤，所以必須設(shè)為非0的值，每個值代表什么意思，自己可以查一下。

4、TeeChart導(dǎo)出PCX

TeeChart導(dǎo)出PCX同導(dǎo)出GIF極其類似，代碼示例如下：

//注意要包含TeePCX才可以
implementationuses  TeePCX;
procedure TForm1.Button4Click(Sender: TObject);
var  exp : TPCXExportFormat;
begin  exp := TPCXExportFormat.Create;  exp.Panel := Chart1;  
exp.SaveToFile('c:\1.pcx');  
exp.Free;
end;

5、TeeChart導(dǎo)出HTM

TeeChart可以直接導(dǎo)出到HTM，在本單元中uses TeeVMLCanvas單元，然后執(zhí)行TeeVMLCanvas中的TeeSaveToVMLFile即可。示例如下：

//注意要包含TeeVMLCanvas才可以
implementationuses  TeeVMLCanvas;
procedure TForm1.Button5Click(Sender: TObject);
begin  TeeSaveToVMLFile(Chart1, 'c:\1.html');
end;

6、TeeChart導(dǎo)出PNG

TeeChart可以很容易導(dǎo)出到PNG，在本單元中uses TeePNG單元，然后執(zhí)行TeePNG中的TeeSaveToPNG即可。示例如下：

//注意要包含TeePNG才可以 
implementationuses  TeePNG;
procedure TForm1.Button7Click(Sender: TObject);
begin  TeeSaveToPNG(Chart1, 'c:\1.png');
end;

注意：保存PNG格式需要LPng.dll，所以為了能正常運(yùn)行上例代碼需下載安裝LPng.dll。

結(jié)語

本文總結(jié)了TeeChart 導(dǎo)出圖像時的各種方法，每種方式都給出了代碼示例，希望對使用TeeChart的朋友有所幫助。