d25851c07f
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5806 8e941d3f-bd1b-0410-a28a-d453659cc2b4
69 lines
1.5 KiB
ObjectPascal
69 lines
1.5 KiB
ObjectPascal
unit xlsxooxml_crypto;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes,
|
|
fpstypes, xlsxooxml, xlsxdecrypter;
|
|
|
|
type
|
|
TsSpreadOOXMLReaderCrypto = class(TsSpreadOOXMLReader)
|
|
public
|
|
procedure ReadFromStream(AStream: TStream; APassword: String = '';
|
|
AParams: TsStreamParams = []); override;
|
|
end;
|
|
|
|
var
|
|
sfidOOXML_Crypto: TsSpreadFormatID;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
fpsReaderWriter;
|
|
|
|
procedure TsSpreadOOXMLReaderCrypto.ReadFromStream(AStream: TStream;
|
|
APassword: String = ''; AParams: TsStreamParams = []);
|
|
var
|
|
ExcelDecrypt : TExcelFileDecryptor;
|
|
DecryptedStream: TStream;
|
|
begin
|
|
ExcelDecrypt := TExcelFileDecryptor.Create;
|
|
try
|
|
AStream.Position := 0;
|
|
if ExcelDecrypt.isEncryptedAndSupported(AStream) then
|
|
begin
|
|
DecryptedStream := TMemoryStream.Create;
|
|
try
|
|
ExcelDecrypt.Decrypt(AStream, DecryptedStream, APassword);
|
|
// Discard encrypted stream and load decrypted one.
|
|
AStream.Free;
|
|
AStream := TMemoryStream.Create;
|
|
DecryptedStream.Position := 0;
|
|
AStream.CopyFrom(DecryptedStream, DecryptedStream.Size);
|
|
AStream.Position := 0;
|
|
finally
|
|
DecryptedStream.Free;
|
|
end;
|
|
end;
|
|
finally
|
|
ExcelDecrypt.Free;
|
|
AStream.Position := 0;
|
|
end;
|
|
|
|
inherited;
|
|
end;
|
|
|
|
|
|
initialization
|
|
|
|
// Registers this reader/writer for fpSpreadsheet
|
|
sfidOOXML_Crypto := RegisterSpreadFormat(sfUser,
|
|
TsSpreadOOXMLReaderCrypto, nil,
|
|
STR_FILEFORMAT_EXCEL_XLSX, 'OOXML', [STR_OOXML_EXCEL_EXTENSION, '.xlsm']
|
|
);
|
|
|
|
end.
|
|
|
|
end.
|