[delphi-br] Re: Exportar para o OpenOffice

Wed, 14 Feb 2007 03:53:52 -0800 

Olá Giovanny,

Há pouco tempo também precisei realizar manipulação de arquivos do 
OpenOffice através do Delphi. O exemplo que te envio a baixo é de 
como abrir um documento em branco do Writer em segundo plano, inserir 
informações (que foram informadas no sistema pelo usuário) e exportar 
p/ pdf através do filtro writer_pdf_export. Talvez te ajude a 
entender a lógica do funcionamento da integração Delphi x OpenOffice.

Mas vc encontra mta informação e exemplos c/ Calc tb no Forum do 
OpenOffice.org. Este topico por exemplo acho q eh de utilidade p/ vc: 
http://www.oooforum.org/forum/viewtopic.phtml?
t=11752&highlight=delphi+calc

Segue o exemplo que me referi entao:

var Desktop, Properties, Document: Variant;

OpenOffice := CreateOleObject('com.sun.star.ServiceManager');
Desktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
Properties := VarArrayCreate([0, 0], varVariant);
Properties[0] := DefinirPropriedadesOpenOffice('Hidden', True);
Document := Desktop.loadComponentFromURL('file:///'+Local , '_blank', 
0, Properties);
Properties[0] := DefinirPropriedadesOpenOffice
('FilterName', 'writer_pdf_Export');
Document.StoreToURL('file:///'+Diretorio+'APLTemp.pdf', Properties);

function DefinirPropriedadesOpenOffice(PropName: string; PropValue: 
variant): variant;
var Struct: variant;
begin
    Struct := OpenOffice.Bridge_GetStruct
('com.sun.star.beans.PropertyValue');
    Struct.Name := PropName;
    Struct.Value := PropValue;
    Result := Struct;
end;

Att.
Mônica Dachary

--- Em delphi-br@yahoogrupos.com.br, "Giovanny Carvalho" 
<[EMAIL PROTECTED]> escreveu
>
> Boa tarde a todos,
> 
> Eu possuo uma aplicação em delphi 6 / SQL Server 2000 que exporta
> várias consultas para o Excel.  O programa "abre" o excel, exporta 
os
> dados e ao final o usuário salva diretamente no Excel, a planilha
> gerada.  Eu usei para isso uma rotina que peguei na net, que usa a
> unit ComOBj.  Agora a direção da empresa que eu presto serviço
> determinou que usasse mos o OpenOffice (na verdade BrOffice).  Como 
dá
> para imaginar as exportações do sistema não funcionam com o Calc. 
> Alguém poderia me ajudar neste sentido?
> 
> Uma solução que eu pensei, seria, o programa gerar um arquivo em 
algum
> formato que o "Calc" do OpenOffice pudesse ler.
> 
> Obrigado,
> Giovanny Carvalho
>

Responder a