I'm trying to open LibreOffice from Delphi script. I read some articles and wrote this code:
Code: Select all
var
FOffice, FDesktop, FDocument: Variant;
begin
FOffice := CreateOleObject('com.sun.star.ServiceManager');
FDesktop := FOffice.CreateInstance('com.sun.star.frame.Dekstop');
OpenParams := VarArrayCreate([0, 0], varVariant);
FDocument := FDesktop.LoadComponentFromURL('private:factory/swriter', '_default', 0, OpenParams);
end;
Code: Select all
Could not convert variant of type (Unknown) into type (Integer)
Thanks for all replies.