pilotare LibreOffice

[Maverich]

mi sto ponendo il problema di aprire un documento "write" di LibreOffice/OpenOffice, cercare una sorta di marcatore posto dall'utilizzatore ed al suo posto inserire il valore di un campo proveniente da un DB.
es: posto che l'utilizzatore abbia un documento che contiene il testo [***] , dovrei aprire il documento cercare [***] (naturalmente non si conosce la posizione in cui si trova),e sostituirlo con il valore del Campo DB (mettiamo il solito Mario Rossi) che potrebbe risultare

.<testio precedente>. con il presente atto il [***]  <testo successivo>
.<testio precedente>. con il presente atto il Sig. Mario Rossi <testo successivo>

vorrei poterlo fare sia in Windows che Linux, quindi OLE non va bene.
gli esempi trovati usano sempre variabile := CreateOleObject('com.sun.star.ServiceManager');
 
non va bene neppure usare i codici Campo all'interno del Documento, vorrebbe dire rifare tutti i documenti.

esperienze in merito ?

[Stilgar]

Puoi accedere al documento ... row ... senza usare Office?
In quel caso, apri modifchi e salvi con un altro nome.
Basta un string replace.
Se ricordo bene OpenOffice è scritto in Java, quindi un'altra strada è attivare la jvm direttamente da programma, attivare office e chiamare le varie funzioni java....
Non è proprio una bella esperienza ...
C'è diventare matti ...

[nomorelogic]

c'è un'API che si chiama UNO (la stessa la dovresti trovare per openoffice)
prova a dare un'occhiata
http://api.libreoffice.org/

[Maverich]

Puoi accedere al documento ... row ... senza usare Office?
In quel caso, apri modifchi e salvi con un altro nome.
Basta un string replace.

non ti seguo, comunque si, l'ide sarebbe di fare le modifiche senza aprire il documento;
nel senso seleziono il nominativo dalla griglia ed il resto dovrebbe essere automatizzato.

non credo sia cosi' semplice, salvare con altro none;  ci sono le formattazioni di LibreOffice da rispettare

Se ricordo bene OpenOffice è scritto in Java, quindi un'altra strada è attivare la jvm direttamente da programma, attivare office e chiamare le varie funzioni java....
Non è proprio una bella esperienza ...
C'è diventare matti ...

esiste un Tool "UNO-Bridge" http://sourceforge.net/projects/uno-pas-bridge/ 
destinato a Delphi, da capire se adattabile a Lazarus.
e questo documento spiega come utilizzare UNO-Bridge

si chiama BG3400-BasicProgrammersGuide (se non va il link, google lo trova inserendo il nome del documento)
http://www.google.it/url?sa=t&rct=j&q=bg3400-basicprogrammersguide&source=web&cd=2&sqi=2&ved=0CC8QFjAB&url=http%3A%2F%2Fmedia.libreoffice.org%2Fcmis%2Fbrowser%3Fid%3Dworkspace%253A%252F%252FSpacesStore%252F7f79b9a9-9cf1-47eb-b831-320c30115621&ei=eba7T_6lIe3b4QSi-dXJCQ&usg=AFQjCNEceEJ2y0jjJj7oOFn8HbCoYlOcmg&cad=rja

[Legolas]

Se non sbaglio il formato utilizzato da *Office (OpenOffice e derivati) è uno zippone contenente dei files xml. Potrebbe bastare decomprimere, modificare uno dei files e ricomprimere 

[nomorelogic]

ho dato un'occhiata alle UNO...
credo che tocchi fare come dice Legolas

[nomorelogic]

qua spiegano come si può pilotare openoffice con script python
http://wiki.freepascal.org/Office_Automation#Step_1._Test_UNO_via_Python_macro_run_within_OO

[bonmario]

Se non sbaglio il formato utilizzato da *Office (OpenOffice e derivati) è uno zippone contenente dei files xml. Potrebbe bastare decomprimere, modificare uno dei files e ricomprimere 

Quotone !!!!
Io l'ho fatto proprio così.
Prendi il tuo documento "pippo.odt" e lo decomprimi in una directory di lavoro.
Apri il file "content.xml" e fai la tua sostituzione e lo risalvi.
Rizippi il tutto stando attento a fare in modo che vengano salvati solo i files e non la directory che li contiene.

Ciao, Mario

[Stilgar]

Il mio dubbio era che non avessi accesso al odt.
Per questo chiedevo se avevi accesso... al file
In ogni caso, controlla con WinZip o altro se riesci ad aprire il file.
In ogni caso dovrebbe essere uno standard aperto.
C'è una sentenza di un tribunale americano dietro al formato di OpenOffice ... che vede microsoft condannata ad aprire il suo formato e adattarsi a quello "aperto".
Se non ricordo male è per il predominio del mercato Office Automation che l'ha persa, quella causa

[Maverich]

Se non sbaglio il formato utilizzato da *Office (OpenOffice e derivati) è uno zippone contenente dei files xml. Potrebbe bastare decomprimere, modificare uno dei files e ricomprimere 

Quotone !!!!
Io l'ho fatto proprio così.
Prendi il tuo documento "pippo.odt" e lo decomprimi in una directory di lavoro.
Apri il file "content.xml" e fai la tua sostituzione e lo risalvi.
Rizippi il tutto stando attento a fare in modo che vengano salvati solo i files e non la directory che li contiene.

Ciao, Mario

ho provato la tua indicazione (su Linux con jZip); ho creato un documento di prova test.odt, salvato e provato a decomprimerlo (pulsante destro Extract to ...), ma risponde Unable to Open Document.
la prova l'hai fatta su Windows ?

[bonmario]

Ti direi che è un difetto di JZip (che però non conosco come progamma).
Per verificarlo, prova a rinominare il file cambiandogli estensione in ".zip", vedrai che lo decomprime !!!

Per il tuo progetto, non appoggiarti ad applicativi esterni: ci sono componenti di lazarus che permettono di comprimere e decomprimere.

Ciao, Mario

[Maverich]

Ti direi che è un difetto di JZip (che però non conosco come progamma).
Per verificarlo, prova a rinominare il file cambiandogli estensione in ".zip", vedrai che lo decomprime !!!

Per il tuo progetto, non appoggiarti ad applicativi esterni: ci sono componenti di lazarus che permettono di comprimere e decomprimere.

Ciao, Marioontent

ho provato solo ora;
ho rinominato da .odt a .zip e decompresso; cosi' ho modificato Content.xml e apportato le variazioni;
salvo le modifiche e comprimo tutti i files rinomino da .zip a .odt ,apro il documento e le modifiche risultano OK.

grazie delle dritte; una nota se comprimo nel formato .tar.gz dopo le operazioni da .tar.gz a .odt il documento risulta illeggi tuttbile.
tutte le prove fatte a mano, ora le provero' da codice.

ciao

[Maverich]

[...]
Per il tuo progetto, non appoggiarti ad applicativi esterni: ci sono componenti di lazarus che permettono di comprimere e decomprimere.

sto usando Lazarus 1.1, (da CodeTyphon 2.70 che installa molti componenti);
non mi pare di aver trovato componenti per Compressione/Decompressione (Zlib o simili).

[bonmario]

Io uso questo: http://wiki.freepascal.org/paszlib
Se non ricordo male, è nei sorgenti di FPC.

Ciao, Mario

[Maverich]

ho trovato un'esempio nei sorgenti (***), ma non ottengo risultati
dopo la compressione trovo
TestTyponIns.zip
-->C:
-->Lazarus
-->TestZip
-->CodeTyponIns
-->... vuoto

la cartella CodeTyponIns contiene al suo interno altri files/cartelle

procedure TForm1.Button1Click(Sender: TObject);
var
  Zipper: TZipper;
  zfe: TZipFileEntry;
  I: integer;
  sNome: string;
begin
  try
    sNome := 'C:\Lazarus\TestZip\TestTyphonIns.zip';

    Zipper := TZipper.Create;
    Zipper.FileName := sNome;

    //Default Compression Level
    //zfe:=Zipper.Entries.AddFileEntry(ParamStr(0));
    zfe:=Zipper.Entries.AddFileEntry('C:\Lazarus\TestZip\CodeTyphonIns');

    //zfe:=z.Entries.AddFileEntry(ParamStr(0));     
    zfe:=Zipper.Entries.AddFileEntry('C:\Lazarus\TestZip\CodeTyphonIns');
    zfe.CompressionLevel :=clnone;
    Zipper.ZipAllFiles;
                           
  finally
    Zipper.Free;
  end;       

anche sostituendo
    zfe:=Zipper.Entries.AddFileEntry('C:\Lazarus\TestZip\CodeTyphonIns');
    zfe:=Zipper.Entries.AddFileEntry('C:\Lazarus\TestZip\CodeTyphonIns');

con
AddFileEntry(cons ADiskFileName, AArchiveFileName: string)
 
zfe:=Zipper.Entries.AddFileEntry('C:\Lazarus\TestZip', 'C:\Lazarus\TestZip\CodeTyphonIns');

il risultato non cambia.

Per la decompressione tutto bene:

procedure TForm1.Button2Click(Sender: TObject);
var UnZipper: TUnZipper;
    ZipFilePath, UnzippedFolderName: string;
begin
  ZipFilePath := 'C:\Lazarus\TestZip\CodeTyphonIns.zip';
  UnzippedFolderName := 'C:\Lazarus\TestZip';

  UnZipper := TUnZipper.Create;
  try
    UnZipper.FileName := ZipFilePath;
    UnZipper.OutputPath := UnzippedFolderName;
    UnZipper.Examine;
    UnZipper.UnZipAllFiles;
  finally
    UnZipper.Free;
  end;
end;   

ma per la compressione ... ho bisogno di un'esempio .....

(***) questo l'originale
program EnhancedZipperExample;

{$mode objfpc}{$H+}

uses
  Classes, zstream, zipper;

var
   z: TZipper;
   zfe: TZipFileEntry;
begin
  z:=TZipper.Create;
  z.FileName:='fpcCompressionLevelTestFile.zip';
  try
    //Default Compression Level
    zfe:=z.Entries.AddFileEntry(ParamStr(0));
    //Compression Level = none ( Store )
    zfe:=z.Entries.AddFileEntry(ParamStr(0));
    zfe.CompressionLevel:=clnone;
    z.ZipAllFiles;
  finally
    z.Free;
  end;
  {
   The result can be checked with the command(On Linux):
   unzip -v fpcCompressionLevelTestFile.zip
   The column Method Shows different values to each file
  }
end.