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

fpspreadsheet: Fix Excel error with several images in xlsx file

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4542 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-03-11 18:38:48 +00:00
parent 8a75b32525
commit 345f1c6818
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpspreadsheet/xlsxooxml.pas
View File

@ -3372,7 +3372,7 @@ begin
ext := ExtractFileExt(FWorkbook.GetEmbeddedStream(img.Index).Name);
AppendToStream(FSDrawingsRels[FCurSheetNum], Format(
' <Relationship Id="rId%d" Type="%s" Target="../media/image%d%s"/>' + LineEnding, [
img.Index+1, SCHEMAS_IMAGE, img.Index+1, ext
i+1, SCHEMAS_IMAGE, img.Index+1, ext
]));
end;
@ -3961,7 +3961,7 @@ end;
procedure TsSpreadOOXMLWriter.WriteContentTypes;
var
i: Integer;
i,j: Integer;
imgext: TStringList;
ext: String;
sheet: TsWorksheet;
@ -3982,16 +3982,17 @@ begin
begin
imgExt := TStringList.Create;
try
imgExt.Duplicates := dupIgnore;
for i:=0 to Workbook.GetEmbeddedStreamCount-1 do
begin
ext := ExtractFileExt(Workbook.GetEmbeddedStream(i).Name);
if ext[1] = '.' then Delete(ext, 1, 1);
imgExt.Add(ext);
j := imgExt.IndexOf(ext);
if j = -1 then
imgExt.Add(ext);
end;
for i := 0 to imgExt.Count-1 do
AppendToStream(FSContentTypes, Format(
'<Default Extension="%s" ContentType="image/%s" />' + LineEnding, [ext, ext]));
'<Default Extension="%s" ContentType="image/%s" />' + LineEnding, [imgExt[i], imgExt[i]]));
finally
imgExt.Free;
end;