pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Restore usage of a temp file name for the zipper needed by xlsx and ods writers, now defined by GetTempfilename, instead of the constant '___TEMP.TMP___'. This should work even if the current folder is not writable.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4400 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-12-03 11:10:34 +00:00
parent 7ef55a84d9
commit b9b381633f
3 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/examples/fpsspeedtest/mainform.pas
View File

@ -70,7 +70,7 @@ var
implementation
uses
LclIntf, StrUtils, fpsUtils, fpsRegFileFormats;
LclIntf, StrUtils, fpsUtils;
{$R *.lfm}

3
components/fpspreadsheet/fpsopendocument.pas
View File

@ -3703,8 +3703,7 @@ begin
{ Now compress the files }
FZip := TZipper.Create;
try
// FZip.FileName := '__temp__.tmp';
FZip.FileName := GetTempFilename; // needed if the zipped file is too big for in-memory processing
FZip.Entries.AddFileEntry(FSMeta, OPENDOC_PATH_META);
FZip.Entries.AddFileEntry(FSSettings, OPENDOC_PATH_SETTINGS);
FZip.Entries.AddFileEntry(FSStyles, OPENDOC_PATH_STYLES);

2
components/fpspreadsheet/xlsxooxml.pas
View File

@ -3600,7 +3600,7 @@ begin
{ Now compress the files }
FZip := TZipper.Create;
try
// FZip.FileName := '__temp__.tmp';
FZip.FileName := GetTempFilename; // needed if the zipped file is too big for in-memory processing
FZip.Entries.AddFileEntry(FSContentTypes, OOXML_PATH_TYPES);
FZip.Entries.AddFileEntry(FSRelsRels, OOXML_PATH_RELS_RELS);
FZip.Entries.AddFileEntry(FSWorkbookRels, OOXML_PATH_XL_RELS_RELS);