Fórum Delphi x BrOffice #377557
13/05/2010
0
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,
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)