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

fpspreadsheet: Add demo for reading embedded images.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8330 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-26 22:18:38 +00:00
parent e8d8973789
commit 1432cbe4c7
2 changed files with 137 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
components/fpspreadsheet/examples/other/images/demo_read_images.lpi Normal file
View File

@ -0,0 +1,68 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="demo_read_images"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<RequiredPackages>
<Item>
<PackageName Value="laz_fpspreadsheet"/>
</Item>
</RequiredPackages>
<Units>
<Unit>
<Filename Value="demo_read_images.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="demo_read_images"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf3"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="EAbort"/>
</Item>
<Item>
<Name Value="ECodetoolError"/>
</Item>
<Item>
<Name Value="EFOpenError"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

69
components/fpspreadsheet/examples/other/images/demo_read_images.lpr Normal file
View File

@ -0,0 +1,69 @@
program demo_read_images;
// Activate one of these defines
{$DEFINE USE_XLSX}
{.$DEFINE USE_OPENDOCUMENT}
uses
SysUtils, fpspreadsheet, fpstypes, fpsutils, fpsimages, xlsxooxml, fpsopendocument;
var
workbook: TsWorkbook;
worksheet: TsWorksheet;
myDir: String;
i, j: Integer;
embobj: TsEmbeddedObj;
img: PsImage;
begin
WriteLn('Starting program "demo_read_images"...');
// Create a spreadsheet
workbook := TsWorkbook.Create;
try
// Read spreadsheet file
myDir := ExtractFilePath(ParamStr(0));
{$IFDEF USE_XLSX}
workbook.ReadFromFile(myDir + 'img.xlsx', sfOOXML);
{$ENDIF}
{$IFDEF USE_OPENDOCUMENT}
workbook.ReadFromFile(myDir + 'img.ods', sfOpenDocument);
{$ENDIF}
// Get worksheets
for i := 0 to workbook.GetWorksheetCount-1 do
begin
worksheet := workbook.GetWorksheetByIndex(i);
WriteLn('Worksheet "' + worksheet.Name + '" contains ' + IntToStr(worksheet.GetImageCount) + ' image(s).');
// Read out images and save as separate files
for j := 0 to worksheet.GetImageCount-1 do
begin
img := worksheet.GetPointerToImage(j);
embObj := workbook.GetEmbeddedObj(img^.Index);
WriteLn(' Image Index=', img^.Index,
', Cell=', GetCellString(img^.Row, img^.Col),
', File=', ExtractFileName(embObj.FileName),
', Width=', embobj.ImageWidth:0:1, 'mm',
', Height=', embObj.ImageHeight:0:1,'mm',
', ScaleX=', img^.ScaleX:0:2,
', ScaleY=', img^.ScaleY:0:2
);
embobj.Stream.SaveToFile(ExtractFileName(embobj.FileName));
end;
end;
WriteLn('Finished.');
finally
workbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn;
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.