TeeChart Pro VCL/FMX教程（十二）：圖表的導出和導入

    TeeChart Pro VCL/FMX是一款主流的圖表制作工具。提供了數百種用于可視化的2D、3D圖形樣式、56種數學、統計和金融函數，以及不限數量的坐標軸和30種調色板組件。TeeChart Pro VCL/FMX教程將會以連載的形式持續為大家帶來TeeChart Pro VCL/FMX的使用方法。 

點擊下載TeeChart Pro VCL/FMX最新試用版

    本篇教程為大家帶來的是TeeChart Pro VCL/FMX中圖表的導出和導入的這一節，概述了以各種格式導出TeeCharts并導入TeeChart自己的.tee格式圖表模板。內容主要分為以下幾個部分： 

1. 導出圖表

   可用格式

   示例導出
   

2. 導出圖像

   JPEG，GIF，PNG

3. 導出數據

   text，XML，HTML，XLS和XLSX

4. TeeChart的Tee模板和數據導出/導入格式

   Tee files

5. 導入

   導入Tee格式文件

   示例導入Tee文件

   ChartWebSource和SeriesTextSource

導出圖表

可用格式

    可用的導出格式——可以將所有格式復制到文件或剪貼板，某些格式可能會復制到Stream。

圖像格式

(BMP)                CopyToClipboardBitmap

(WMF)   ;            CopyToClipboardMetafile

BMP                  TBMPExportFormat

JPEG       ;           SaveChartToJPEGFile

WMF ;              ;  TEMFExportFormat.Enhanced (false)

EMF   ;                TEMFExportFormat

GIF                     TGIFExportFormat

PNG                   TPNGExportFormat

PCX                    TPCXExportFormat

VML (HTML)      TVMLExportFormat

PDF                    TPDFExportFormat

SVG                    TSVGExportFormat

EPS             ;        TEPSExportFormat

Flex(Flash)          TFlexExportFormat

VRML 3D            TVRMLExportFormat

XAML (WPF)       TXAMLExportFormat

數據格式

Text                    TSeriesDataText

XML                    TSeriesDataXML

HTML                  TSeriesDataHTML

Excel     ;               TSeriesDataXLS

其他格式

    Tee格式是一種靈活的格式，可存儲圖表屬性信息以及（可選）圖表數據。 文件很小（取決于數據），非常適合網絡用于更新基于實時客戶端的圖表。

TEE（TeeChart）SaveChartToFile

    在運行時，您可以使用以下命令顯示導出對話框：

圖表 TeeExport

例：

TeeExport( Self, Chart1 );

示例導出

    可以導出到文件中，大部分情況，都只需要定義目標的文件名。

例：

if SaveDialog1.Execute then 
     Chart1.SaveToBitmapFile(SaveDialog1.FileName);

導出圖像

JPEG

    TeeChart本身并未包含導出方法，這是為了避免非JPEG應用程序的內存使用。

例：

// You need to include the Delphi JPEG unit in the Uses section of your project
// Pass the name of the Chart to this function. We've fixed the parameters here.
// In the demo they are presented as options for the user.
// Place a Chart (Chart1) on a Form and populate it with data.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 With GetChartJPEG(Chart1) do
 try
  SaveToFile('c:\temp\myJPEGChart.jpg');    { <-- save the JPEG to disk }
 finally
  Free;  { <-- free the temporary JPEG object }
 end;
end;

Function GetChartJPEG(AChart:TCustomChart):TJPEGImage;
var tmpBitmap:TBitmap;
begin
  result:=TJPEGImage.Create;   { <-- create a TJPEGImage }

  tmpBitmap:=TBitmap.Create;   { <-- create a temporary TBitmap }
  try

    tmpBitmap.Width :=AChart.Width;   { <-- set the bitmap dimensions }
    tmpBitmap.Height:=AChart.Height;

    { draw the Chart on the temporary Bitmap... }
    AChart.Draw(tmpBitmap.Canvas,Rect(0,0,tmpBitmap.Width,tmpBitmap.Height));

    { set the desired JPEG options... }
    With result do
    begin
      GrayScale            :=False;
      ProgressiveEncoding  :=True;
      CompressionQuality   :=50;  // % 0 - 100
      PixelFormat          :=jf24bit;  // or jf8bit
      ProgressiveDisplay   :=True;
      Performance          :=jpBestQuality;  // or jpBestSpeed
      Scale                :=jsFullSize;  // or jsHalf, jsQuarter, jsEighth
      Smoothing            :=True;

      { Copy the temporary Bitmap onto the JPEG image... }
      Assign(tmpBitmap);
    end;
  finally
    tmpBitmap.Free;  { <-- free the temporary Bitmap }
  end;
end;

    性能，jpegBestQuality和壓縮質量百分比（高值減去壓縮）的存在將使文件更大，導出花費的時間會更長，但是導出的效果會更好，可以根據自己的需求來選擇。

GIF

    TeeChart提供了創建GIF圖表圖像的方法，但您應該使用Unisys檢查您的許可位置，以便使用GIF LZW編碼圖像。 替代RLE編碼不受Unisys許可的約束。

使用TeeChart對話的示例

Uses TeeGIF, TeExport;

procedure TGIFExportForm.Button1Click(Sender: TObject);
begin
  TeeSavePanel(TGIFExportFormat,Chart1);
end;

示例代碼

Uses TeeGIF, GIFImage;

procedure TForm1.Button1Click(Sender: TObject);
var tmpGIF : TGIFImage;
begin
  tmpGIF:=TGIFImage.Create;

  With tmpGIF do
  begin
    Compression:=gcLZW;
    DitherMode:=dmStucki;
    ColorReduction:=rmQuantizeWindows;

    Assign(Chart1.TeeCreateBitmap(Chart1.Color,Rect(0,0,Chart1.Width,Chart1.Height)));

    SaveToFile('c:\tempCharts\Chart1.gif');
  end;
end;

PNG

    要使用PNG圖像格式，\ Windows \ System文件夾或路徑中需要有LPng.DLL。 PNG提供主要瀏覽器支持的壓縮圖像格式。

例：

Uses TeePNG, TeExport;

procedure TPNGExportForm.Button1Click(Sender: TObject);
begin
  TeeSavePanel(TPNGExportFormat,Chart1);
end;

導出數據

    TeeStore單元包括TSeriesData組件及其后代的定義：

Text               TSeriesDataText

XML               TSeriesDataXML

HTML             TSeriesDataHTML

Excel               TSeriesDataXLS (pre 2013 Excel xls) and TSeriesDataXLSObject (later versions of Excel for xlsx files)

    可以創建上述組件并將其與圖表系列相關聯，從中可以將數據導出為文件， Stream或Clipboard。以下示例將圖表系列中的數據導出到HTML表：

  With TSeriesDataHTML.Create(Chart1,Series1) do
  Begin
    IncludeHeader:=True;
    SaveToFile('c:\tempdata\Series1HTMLData.txt');
  end;

以上隨機數據集的輸出如下：

Excel導出代碼的示例：

uses TeeExcelSource

 try
   xlsexp := TSeriesDataXLSObject.Create(Chart1);
   xlsexp.IncludeHeader :=  True;
   xlsexp.IncludeIndex := True;
   xlsexp.SaveToFile('c:\temp\myExcelFile.xlsx');
 finally
   xlsexp.Free;
 end;

TeeChart的Tee模板和數據導出/導入格式

Tee files

    Tee files是TeeChart自己的模板格式，用于保存圖表及其數據。修改的圖表屬性隨模板一起保存，并將在模板導入新圖表時重現。

優點：

• Tee文件的尺寸非常小，在大多數情況下，它提供了優于純圖形格式（Quicker）的優勢。

• 模板的目標圖表是實時的，可以進行縮放和滾動，并修改其屬性。

• 根據您的偏好，數據可以選擇包含在Tee模板中。

SaveChartToFile / SaveChartToStream的聲明：

procedure SaveChartToFile(AChart: TCustomChart; Const AName: String; IncludeData: Boolean);

 procedure SaveChartToStream(AChart: TCustomChart; AStream: TStream; IncludeData: Boolean);

 {See the TeeStore unit for more information}

例：

// Add the unit teestore to the 'Uses' section of your project

With SaveDialog1 do
begin
  Filter:='Teefiles|*.tee';

  if Execute then 
     SaveChartToFile(Chart1,SaveDialog1.FileName,True);
end;

導入

導入Tee格式文件

    從本地文件源或http數據源導入已保存的Tee文件。

示例導入Tee文件

// Import from file

procedure TForm1.Button1Click(Sender: TObject);
var tmpChart : TCustomChart;
begin

  Chart1.Free;   // Assuming Chart1 is already on the Form
  tmpChart:=TChart.Create(Self);

  With OpenDialog1 do
  begin
    Filter:= 'Teefiles|*.tee';
    if Execute then 
       LoadChartfromFile(tmpChart,OpenDialog1.FileName);
  end;

  Chart1 := tmpChart as TChart;

  With Chart1 do
  begin
    Parent:=Self;
  end;
end;

    您還可以從URL，LoadChartFromURL導入TeeChart文件。

ChartWebSource和SeriesTextSource

    可以通過LoadChartFromURL方法或ChartWebSource組件從遠程Web源導入Tee文件。 可以通過TSeriesTextSource組件導入CSV數據。

    TeeChart for .NET，TeeChart for JavaScript/HTML5，TeeChart for Xamarin.Android均已加入在線訂購，現在搶購可立享特別優惠！！！

    關注慧聚IT微信公眾號???，了解產品的最新動態及最新資訊。