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 implementation
uses uses
LclIntf, StrUtils, fpsUtils, fpsRegFileFormats; LclIntf, StrUtils, fpsUtils;
{$R *.lfm} {$R *.lfm}

3
components/fpspreadsheet/fpsopendocument.pas
View File

@ -3703,8 +3703,7 @@ begin
{ Now compress the files } { Now compress the files }
FZip := TZipper.Create; FZip := TZipper.Create;
try 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(FSMeta, OPENDOC_PATH_META);
FZip.Entries.AddFileEntry(FSSettings, OPENDOC_PATH_SETTINGS); FZip.Entries.AddFileEntry(FSSettings, OPENDOC_PATH_SETTINGS);
FZip.Entries.AddFileEntry(FSStyles, OPENDOC_PATH_STYLES); FZip.Entries.AddFileEntry(FSStyles, OPENDOC_PATH_STYLES);

2
components/fpspreadsheet/xlsxooxml.pas
View File

@ -3600,7 +3600,7 @@ begin
{ Now compress the files } { Now compress the files }
FZip := TZipper.Create; FZip := TZipper.Create;
try 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(FSContentTypes, OOXML_PATH_TYPES);
FZip.Entries.AddFileEntry(FSRelsRels, OOXML_PATH_RELS_RELS); FZip.Entries.AddFileEntry(FSRelsRels, OOXML_PATH_RELS_RELS);
FZip.Entries.AddFileEntry(FSWorkbookRels, OOXML_PATH_XL_RELS_RELS); FZip.Entries.AddFileEntry(FSWorkbookRels, OOXML_PATH_XL_RELS_RELS);