4f04afdb1c
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@362 8e941d3f-bd1b-0410-a28a-d453659cc2b4
384 lines
13 KiB
ObjectPascal
Executable File
384 lines
13 KiB
ObjectPascal
Executable File
{
|
|
xlsxooxml.pas
|
|
|
|
Writes an OOXML (Office Open XML) document
|
|
|
|
An OOXML document is a compressed ZIP file with the following files inside:
|
|
|
|
[Content_Types].xml
|
|
_rels\.rels
|
|
xl\_rels\workbook.xml.rels
|
|
xl\workbook.xml
|
|
xl\styles.xml
|
|
xl\sharedStrings.xml
|
|
xl\worksheets\sheet1.xml
|
|
...
|
|
xl\worksheets\sheetN.xml
|
|
|
|
Specifications obtained from:
|
|
|
|
http://openxmldeveloper.org/default.aspx
|
|
|
|
AUTHORS: Felipe Monteiro de Carvalho
|
|
|
|
IMPORTANT: This writer doesn't work yet!!! This is just initial code.
|
|
}
|
|
unit xlsxooxml;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, {zipper,}
|
|
fpspreadsheet;
|
|
|
|
type
|
|
|
|
{ TsSpreadOOXMLWriter }
|
|
|
|
TsSpreadOOXMLWriter = class(TsCustomSpreadWriter)
|
|
protected
|
|
// FZip: TZipper;
|
|
FContentTypes: string;
|
|
FRelsRels: string;
|
|
FWorkbook, FWorkbookRels, FStyles, FSharedString, FSheet1: string;
|
|
public
|
|
{ General writing methods }
|
|
procedure WriteStringToFile(AFileName, AString: string);
|
|
procedure WriteToFile(AFileName: string; AData: TsWorkbook); override;
|
|
procedure WriteToStream(AStream: TStream; AData: TsWorkbook); override;
|
|
{ Record writing methods }
|
|
procedure WriteLabel(AStream: TStream; const ARow, ACol: Word; const AValue: string); override;
|
|
procedure WriteNumber(AStream: TStream; const ARow, ACol: Cardinal; const AValue: double); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
const
|
|
{ OOXML general XML constants }
|
|
XML_HEADER = '<?xml version="1.0" encoding="utf-8" ?>';
|
|
|
|
{ OOXML Directory structure constants }
|
|
OOXML_PATH_TYPES = '[Content_Types].xml';
|
|
OOXML_PATH_RELS = '_rels\';
|
|
OOXML_PATH_RELS_RELS = '_rels\.rels';
|
|
OOXML_PATH_XL = 'xl\';
|
|
OOXML_PATH_XL_RELS = 'xl\_rels\';
|
|
OOXML_PATH_XL_RELS_RELS = 'xl\_rels\workbook.xml.rels';
|
|
OOXML_PATH_XL_WORKBOOK = 'xl\workbook.xml';
|
|
OOXML_PATH_XL_STYLES = 'xl\styles.xml';
|
|
OOXML_PATH_XL_STRINGS = 'xl\sharedStrings.xml';
|
|
OOXML_PATH_XL_WORKSHEETS = 'xl\worksheets\';
|
|
|
|
{ OOXML schemas constants }
|
|
SCHEMAS_TYPES = 'http://schemas.openxmlformats.org/package/2006/content-types';
|
|
SCHEMAS_RELS = 'http://schemas.openxmlformats.org/package/2006/relationships';
|
|
SCHEMAS_DOC_RELS = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships';
|
|
SCHEMAS_DOCUMENT = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument';
|
|
SCHEMAS_WORKSHEET = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet';
|
|
SCHEMAS_STYLES = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/styles';
|
|
SCHEMAS_STRINGS = 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/sharedStrings';
|
|
SCHEMAS_SPREADML = 'http://schemas.openxmlformats.org/spreadsheetml/2006/main';
|
|
|
|
{ OOXML mime types constants }
|
|
MIME_XML = 'application/xml';
|
|
MIME_RELS = 'application/vnd.openxmlformats-package.relationships+xml';
|
|
MIME_SPREADML = 'application/vnd.openxmlformats-officedocument.spreadsheetml';
|
|
MIME_SHEET = MIME_SPREADML + '.sheet.main+xml';
|
|
MIME_WORKSHEET = MIME_SPREADML + '.worksheet+xml';
|
|
MIME_STYLES = MIME_SPREADML + '.styles+xml';
|
|
MIME_STRINGS = MIME_SPREADML + '.sharedStrings+xml';
|
|
|
|
{ TsSpreadOOXMLWriter }
|
|
|
|
{*******************************************************************
|
|
* TsSpreadOOXMLWriter.WriteStringToFile ()
|
|
*
|
|
* DESCRIPTION: Writes a string to a file. Helper convenience method.
|
|
*
|
|
*******************************************************************}
|
|
procedure TsSpreadOOXMLWriter.WriteStringToFile(AFileName, AString: string);
|
|
var
|
|
TheStream : TFileStream;
|
|
S : String;
|
|
begin
|
|
TheStream := TFileStream.Create(AFileName, fmCreate);
|
|
S:=AString;
|
|
TheStream.WriteBuffer(Pointer(S)^,Length(S));
|
|
TheStream.Free;
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* TsSpreadOOXMLWriter.WriteToFile ()
|
|
*
|
|
* DESCRIPTION: Writes an OOXML document to the disc
|
|
*
|
|
*******************************************************************}
|
|
procedure TsSpreadOOXMLWriter.WriteToFile(AFileName: string; AData: TsWorkbook);
|
|
var
|
|
TempDir: string;
|
|
begin
|
|
{FZip := TZipper.Create;
|
|
FZip.ZipFiles(AFileName, x);
|
|
FZip.Free;}
|
|
|
|
WriteToStream(nil, AData);
|
|
|
|
TempDir := IncludeTrailingBackslash(AFileName);
|
|
|
|
{ files on the root path }
|
|
|
|
ForceDirectories(TempDir);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_TYPES, FContentTypes);
|
|
|
|
{ _rels directory }
|
|
|
|
ForceDirectories(TempDir + OOXML_PATH_RELS);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_RELS_RELS, FRelsRels);
|
|
|
|
{ xl directory }
|
|
|
|
ForceDirectories(TempDir + OOXML_PATH_XL_RELS);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_XL_RELS_RELS, FWorkbookRels);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_XL_WORKBOOK, FWorkbook);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_XL_STYLES, FStyles);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_XL_STRINGS, FSharedString);
|
|
|
|
{ xl\worksheets directory }
|
|
|
|
ForceDirectories(TempDir + OOXML_PATH_XL_WORKSHEETS);
|
|
|
|
WriteStringToFile(TempDir + OOXML_PATH_XL_WORKSHEETS + 'sheet1.xml', FSheet1);
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* TsSpreadOOXMLWriter.WriteToStream ()
|
|
*
|
|
* DESCRIPTION: Writes an Excel 2 file to a stream
|
|
*
|
|
* Excel 2.x files support only one Worksheet per Workbook,
|
|
* so only the first will be written.
|
|
*
|
|
*******************************************************************}
|
|
procedure TsSpreadOOXMLWriter.WriteToStream(AStream: TStream; AData: TsWorkbook);
|
|
begin
|
|
// WriteCellsToStream(AStream, AData.GetFirstWorksheet.FCells);
|
|
|
|
FContentTypes :=
|
|
XML_HEADER + LineEnding +
|
|
'<Types xmlns="' + SCHEMAS_TYPES + '">' + LineEnding +
|
|
' <Default Extension="xml" ContentType="' + MIME_XML + '" />' + LineEnding +
|
|
' <Default Extension="rels" ContentType="' + MIME_RELS + '" />' + LineEnding +
|
|
' <Override PartName="/xl/workbook.xml" ContentType="' + MIME_SHEET + '" />' + LineEnding +
|
|
' <Override PartName="/xl/worksheets/sheet1.xml" ContentType="' + MIME_WORKSHEET + '" />' + LineEnding +
|
|
' <Override PartName="/xl/styles.xml" ContentType="' + MIME_STYLES + '" />' + LineEnding +
|
|
' <Override PartName="/xl/sharedStrings.xml" ContentType="' + MIME_STRINGS + '" />' + LineEnding +
|
|
'</Types>';
|
|
|
|
FRelsRels :=
|
|
XML_HEADER + LineEnding +
|
|
'<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding +
|
|
'<Relationship Type="' + SCHEMAS_DOCUMENT + '" Target="/xl/workbook.xml" Id="rId1" />' + LineEnding +
|
|
'</Relationships>';
|
|
|
|
FWorkbookRels :=
|
|
XML_HEADER + LineEnding +
|
|
'<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding +
|
|
'<Relationship Type="' + SCHEMAS_WORKSHEET + '" Target="/xl/worksheets/sheet1.xml" Id="rId1" />' + LineEnding +
|
|
'<Relationship Type="' + SCHEMAS_STYLES + '" Target="/xl/styles.xml" Id="rId2" />' + LineEnding +
|
|
'<Relationship Type="' + SCHEMAS_STRINGS + '" Target="/xl/sharedStrings.xml" Id="rId3" />' + LineEnding +
|
|
'</Relationships>';
|
|
|
|
FWorkbook :=
|
|
XML_HEADER + LineEnding +
|
|
'<workbook xmlns="' + SCHEMAS_SPREADML + '" xmlns:r="' + SCHEMAS_DOC_RELS + '">' + LineEnding +
|
|
' <fileVersion appName="xl" lastEdited="4" lowestEdited="4" rupBuild="4505" />' + LineEnding +
|
|
' <workbookPr defaultThemeVersion="124226" />' + LineEnding +
|
|
' <bookViews>' + LineEnding +
|
|
' <workbookView xWindow="480" yWindow="90" windowWidth="15195" windowHeight="12525" />' + LineEnding +
|
|
' </bookViews>' + LineEnding +
|
|
' <sheets>' + LineEnding +
|
|
' <sheet name="Sheet1" sheetId="1" r:id="rId1" />' + LineEnding +
|
|
' </sheets>' + LineEnding +
|
|
' <calcPr calcId="114210" />' + LineEnding +
|
|
'</workbook>';
|
|
|
|
FStyles :=
|
|
XML_HEADER + LineEnding +
|
|
'<styleSheet xmlns="' + SCHEMAS_SPREADML + '">' + LineEnding +
|
|
' <fonts count="1">' + LineEnding +
|
|
' <font>' + LineEnding +
|
|
' <sz val="10" />' + LineEnding +
|
|
' <name val="Arial" />' + LineEnding +
|
|
' </font>' + LineEnding +
|
|
' </fonts>' + LineEnding +
|
|
' <fills count="2">' + LineEnding +
|
|
' <fill>' + LineEnding +
|
|
' <patternFill patternType="none" />' + LineEnding +
|
|
' </fill>' + LineEnding +
|
|
' <fill>' + LineEnding +
|
|
' <patternFill patternType="gray125" />' + LineEnding +
|
|
' </fill>' + LineEnding +
|
|
' </fills>' + LineEnding +
|
|
' <borders count="1">' + LineEnding +
|
|
' <border>' + LineEnding +
|
|
' <left />' + LineEnding +
|
|
' <right />' + LineEnding +
|
|
' <top />' + LineEnding +
|
|
' <bottom />' + LineEnding +
|
|
' <diagonal />' + LineEnding +
|
|
' </border>' + LineEnding +
|
|
' </borders>' + LineEnding +
|
|
' <cellStyleXfs count="1">' + LineEnding +
|
|
' <xf numFmtId="0" fontId="0" fillId="0" borderId="0" />' + LineEnding +
|
|
' </cellStyleXfs>' + LineEnding +
|
|
' <cellXfs count="1">' + LineEnding +
|
|
' <xf numFmtId="0" fontId="0" fillId="0" borderId="0" xfId="0" />' + LineEnding +
|
|
' </cellXfs>' + LineEnding +
|
|
' <cellStyles count="1">' + LineEnding +
|
|
' <cellStyle name="Normal" xfId="0" builtinId="0" />' + LineEnding +
|
|
' </cellStyles>' + LineEnding +
|
|
' <dxfs count="0" />' + LineEnding +
|
|
' <tableStyles count="0" defaultTableStyle="TableStyleMedium9" defaultPivotStyle="PivotStyleLight16" />' + LineEnding +
|
|
'</styleSheet>';
|
|
|
|
FSharedString :=
|
|
XML_HEADER + LineEnding +
|
|
'<sst xmlns="' + SCHEMAS_SPREADML + '" count="4" uniqueCount="4">' + LineEnding +
|
|
' <si>' + LineEnding +
|
|
' <t>First</t>' + LineEnding +
|
|
' </si>' + LineEnding +
|
|
' <si>' + LineEnding +
|
|
' <t>Second</t>' + LineEnding +
|
|
' </si>' + LineEnding +
|
|
' <si>' + LineEnding +
|
|
' <t>Third</t>' + LineEnding +
|
|
' </si>' + LineEnding +
|
|
' <si>' + LineEnding +
|
|
' <t>Fourth</t>' + LineEnding +
|
|
' </si>' + LineEnding +
|
|
'</sst>';
|
|
|
|
FSheet1 :=
|
|
XML_HEADER + LineEnding +
|
|
'<worksheet xmlns="' + SCHEMAS_SPREADML + '" xmlns:r="' + SCHEMAS_DOC_RELS + '">' + LineEnding +
|
|
' <sheetViews>' + LineEnding +
|
|
' <sheetView workbookViewId="0" />' + LineEnding +
|
|
' </sheetViews>' + LineEnding +
|
|
' <sheetData>' + LineEnding +
|
|
' <row r="1" spans="1:4">' + LineEnding +
|
|
' <c r="A1">' + LineEnding +
|
|
' <v>1</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="B1">' + LineEnding +
|
|
' <v>2</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="C1">' + LineEnding +
|
|
' <v>3</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="D1">' + LineEnding +
|
|
' <v>4</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' </row>' + LineEnding +
|
|
' <row r="2" spans="1:4">' + LineEnding +
|
|
' <c r="A2" t="s">' + LineEnding +
|
|
' <v>0</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="B2" t="s">' + LineEnding +
|
|
' <v>1</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="C2" t="s">' + LineEnding +
|
|
' <v>2</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' <c r="D2" t="s">' + LineEnding +
|
|
' <v>3</v>' + LineEnding +
|
|
' </c>' + LineEnding +
|
|
' </row>' + LineEnding +
|
|
' </sheetData>' + LineEnding +
|
|
'</worksheet>';
|
|
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* TsSpreadOOXMLWriter.WriteLabel ()
|
|
*
|
|
* DESCRIPTION: Writes an Excel 2 LABEL record
|
|
*
|
|
* Writes a string to the sheet
|
|
*
|
|
*******************************************************************}
|
|
procedure TsSpreadOOXMLWriter.WriteLabel(AStream: TStream; const ARow,
|
|
ACol: Word; const AValue: string);
|
|
var
|
|
L: Byte;
|
|
begin
|
|
L := Length(AValue);
|
|
|
|
{ BIFF Record header }
|
|
// AStream.WriteWord(WordToLE(INT_EXCEL_ID_LABEL));
|
|
// AStream.WriteWord(WordToLE(8 + L));
|
|
|
|
{ BIFF Record data }
|
|
// AStream.WriteWord(WordToLE(ARow));
|
|
// AStream.WriteWord(WordToLE(ACol));
|
|
|
|
{ BIFF2 Attributes }
|
|
AStream.WriteByte($0);
|
|
AStream.WriteByte($0);
|
|
AStream.WriteByte($0);
|
|
|
|
{ String with 8-bit size }
|
|
AStream.WriteByte(L);
|
|
AStream.WriteBuffer(AValue[1], L);
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* TsSpreadOOXMLWriter.WriteNumber ()
|
|
*
|
|
* DESCRIPTION: Writes an Excel 2 NUMBER record
|
|
*
|
|
* Writes a number (64-bit IEE 754 floating point) to the sheet
|
|
*
|
|
*******************************************************************}
|
|
procedure TsSpreadOOXMLWriter.WriteNumber(AStream: TStream; const ARow,
|
|
ACol: Cardinal; const AValue: double);
|
|
begin
|
|
{ BIFF Record header }
|
|
// AStream.WriteWord(WordToLE(INT_EXCEL_ID_NUMBER));
|
|
// AStream.WriteWord(WordToLE(15));
|
|
|
|
{ BIFF Record data }
|
|
// AStream.WriteWord(WordToLE(ARow));
|
|
// AStream.WriteWord(WordToLE(ACol));
|
|
|
|
{ BIFF2 Attributes }
|
|
AStream.WriteByte($0);
|
|
AStream.WriteByte($0);
|
|
AStream.WriteByte($0);
|
|
|
|
{ IEE 754 floating-point value }
|
|
AStream.WriteBuffer(AValue, 8);
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* Initialization section
|
|
*
|
|
* Registers this reader / writer on fpSpreadsheet
|
|
*
|
|
*******************************************************************}
|
|
initialization
|
|
|
|
RegisterSpreadFormat(TsCustomSpreadReader, TsSpreadOOXMLWriter, sfOOXML);
|
|
|
|
end.
|
|
|