“尝试使用zexmlss时，没有注册zip生成器，文件夹输出被禁用”

我正在尝试使用zexmlss http://neborak.org/zexmlss/index.php?lang=en导出到ODS的Excel。 我编译了这个库，并且在库中包含了Synapse生成器。 现在我试图从代码中使用它：

procedure Test; var tz: TZEXMLSS; begin tz := TZEXMLSS.Create(nil); tz.Sheets.Count:=2; tz.Sheets[0].Title:='Test'; with tz.Sheets[0] do begin RowCount:=20; ColCount:=20; Cell[0, 0].Data := 'zexmlss'; end; TZXMLSSave.From(tz).Save('C:\A_EXCEL\test.xlsx'); end 

而且我收到错误消息“没有注册的zip生成器，文件夹输出禁用”。 保存到XML完成成功。 如何以及在哪里注册压缩生成器？

Answer 1

您是否将\ delphizip \ synzip \中的文件复制到src文件夹（zipusesyn.pas，xlsxzipfunc.inc，xlsxzipfuncimpl.inc，xlsxzipuses.inc等）？ 如果scr文件夹中的文件使用函数SaveXmlssToXLSX（），如：

 //uses zexlsx; procedure Test; var tz: TZEXMLSS; begin tz := TZEXMLSS.Create(nil); tz.Sheets.Count:=2; tz.Sheets[0].Title:='Test'; with tz.Sheets[0] do begin RowCount:=20; ColCount:=20; Cell[0, 0].Data := 'zexmlss'; end; SaveXmlssToXLSX(tz, 'C:\A_EXCEL\test.xlsx'); end