You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8910 8e941d3f-bd1b-0410-a28a-d453659cc2b4
37 lines
762 B
ObjectPascal
37 lines
762 B
ObjectPascal
program read_encrypted_ods;
|
|
|
|
uses
|
|
SysUtils,
|
|
fpSpreadsheet, fpsTypes, fpsUtils, fpsOpenDocument_Crypto;
|
|
|
|
const
|
|
FILENAME = 'pwd 123.ods';
|
|
PASSWORD = '123';
|
|
|
|
var
|
|
wb: TsWorkbook;
|
|
ws: TsWorksheet;
|
|
cell: PCell;
|
|
fn: String;
|
|
fmtID: TsSpreadFormatID;
|
|
t: TDateTime;
|
|
begin
|
|
t := Now;
|
|
wb := TsWorkbook.Create;
|
|
try
|
|
wb.ReadFromFile(FILENAME, sfidOpenDocument_Crypto, PASSWORD, []);
|
|
ws := wb.GetFirstWorksheet;
|
|
if ws <> nil then
|
|
for cell in ws.Cells do
|
|
WriteLn('cell ', GetCellString(cell^.Row, cell^.Col), ' = "', ws.ReadAsText(cell), '"');
|
|
finally
|
|
wb.Free;
|
|
end;
|
|
t := Now - t;
|
|
WriteLn('Time to decrypt and load: ', FormatDateTime('nn:ss.zzz', t), ' seconds');
|
|
|
|
Write('Press ENTER to close...');
|
|
ReadLn;
|
|
end.
|
|
|