Delphi x BrOffice
Possuo um código que exporta dados para o formato calc do Broffice. Só que o broffice fica preso na memória após gerar o arquivo. Qual comando está faltando?
var
parametro, OpenOffice, OpenDesktopOpenOffice, CalcOpenOffice, SheetsOpenOffice, SheetOpenOffice: Variant;
begin OpenOffice:=CreateOleObject('com.sun.star.ServiceManager'); OpenDesktopOpenOffice:=OpenOffice.CreateInstance('com.sun.star.frame.Desktop');
parametro:=VarArrayCreate([0, 0], varVariant);
parametro[0]:=CriaParametroOpenOffice('Hidden',True);
CalcOpenOffice:=OpenDesktopOpenOffice.LoadComponentFromURL('private:factory/scalc', '_blank', 0, parametro);
SheetsOpenOffice:=CalcOpenOffice.Sheets;SheetOpenOffice:=SheetsOpenOffice.getByIndex(0);
....... .......... .................. ................... ............................ OpenOffice:=Unassigned;
parametro, OpenOffice, OpenDesktopOpenOffice, CalcOpenOffice, SheetsOpenOffice, SheetOpenOffice: Variant;
begin OpenOffice:=CreateOleObject('com.sun.star.ServiceManager'); OpenDesktopOpenOffice:=OpenOffice.CreateInstance('com.sun.star.frame.Desktop');
parametro:=VarArrayCreate([0, 0], varVariant);
parametro[0]:=CriaParametroOpenOffice('Hidden',True);
CalcOpenOffice:=OpenDesktopOpenOffice.LoadComponentFromURL('private:factory/scalc', '_blank', 0, parametro);
SheetsOpenOffice:=CalcOpenOffice.Sheets;SheetOpenOffice:=SheetsOpenOffice.getByIndex(0);
....... .......... .................. ................... ............................ OpenOffice:=Unassigned;
Fabrício Moraes,
Curtidas 0