delphi TMS FlexCel 预览Excel

美丽时光

TMS FlexCel 预览Excel

属性和方法

TFlexCelImgExport

用于将Excel文件导出为图像的组件。它可以返回图像对象或特定文件格式的实际字节。 （如 gif、tiff 或 png）

unit

FlexCel.Render

TFlexCelImgExport.Create

创建一个新的 FlexCelImgExport 并将其分配给 Excel 文件。

constructor Create(const aWorkbook: TExcelFile);
constructor Create(const aWorkbook: TExcelFile; const aAllowOverwritingFiles: Boolean);

重载

Create(TExcelFile, Boolean)

创建一个新的 FlexCelImgExport 并将其分配给 Excel 文件，将AllowOverwritingFiles设置为所需的值。

参数

aWorkbook 包含此组件将导出的数据的Excel 文件。

aAllowOverwritingFiles 当为true时，现有文件将被覆盖。

TFlexCelImgExport.AllVisibleSheets

如果为 true，则将打印工作簿上的所有可见工作表。

property AllVisibleSheets: Boolean

TFlexCelPreviewer.Document

要预览的文档。

property Document: TFlexCelImgExport

TFlexCelPreviewer.InvalidatePreview

使预览无效并强制控件从文档中重新加载。 当控件是缩略图时，无法使其无效，这将在您使主视图无效时自动完成。

procedure InvalidatePreview;

例子

预览Excel

在窗体上放置TFlexCelPreviewer组件FlexCelPreviewer1

procedure TForm1.Button6Click(Sender: TObject);
var
  XLS: TXlsFile;
  ImgExport: TFlexCelImgExport;
begin
  //读取Excel文件
  Xls := TXlsFile.Create('C:\Users\Administrator\Desktop\ceshi.xlsx');
  //将Excel文件导出为图像
  ImgExport := TFlexCelImgExport.Create(Xls, false);
  //不显示隐藏Sheet
  ImgExport.AllVisibleSheets := False;
  //设置要预览的文档
  FlexCelPreviewer1.Document := ImgExport;
  //加载文档
  FlexCelPreviewer1.InvalidatePreview;
end;

来源：https://www.cnblogs.com/txgh/p/16445386.html