Hi,
with this code, i can read a file ods without password:
MyWorkbook:=TsWorkbook.Create;
try
MyWorkbook.ReadFromFile('PwdNo.ods', sfOpenDocument);
MyWorksheet:=MyWorkbook.GetFirstWorksheet;
Memo1.Lines.Add('File without password: Col = ' +
IntToStr(MyWorksheet.GetLastColIndex(False)) +
' - Row = ' +
IntToStr(MyWorksheet.GetLastRowIndex(False)));
finally
FreeAndNil(MyWorkbook);
end;
Now, the same file have been protected with password.
I've tried with the code avove, but it fails:
MyWorkbook:=TsWorkbook.Create;
try
MyWorkbook.ReadFromFile('PwdYes_123456.ods', '123456'{, sfOpenDocument});
MyWorksheet:=MyWorkbook.GetFirstWorksheet;
Memo1.Lines.Add('File with password: Col = ' +
IntToStr(MyWorksheet.GetLastColIndex(False)) +
' - Row = ' +
IntToStr(MyWorksheet.GetLastRowIndex(False)));
finally
FreeAndNil(MyWorkbook);
end;
Someone can help me?
Thanks, Mario