Génération de documents PDF avec Delphi et OpenOffice [Résolu]

acarre 5 Messages postés mardi 10 août 2004Date d'inscription 10 avril 2007 Dernière intervention - 5 avril 2007 à 17:35 - Dernière réponse : acarre 5 Messages postés mardi 10 août 2004Date d'inscription 10 avril 2007 Dernière intervention
- 10 avril 2007 à 10:19
Bonjour,
Je développe actuellement une application permettant la conversion de documents au format .doc vers le format .pdf. Pour se faire, j'utilise l'API OpenOffice :
   - J'ouvre une instance d'openoffice en utilisant la fonction CreateOLEObject
   - Je crée une instance du document doc en cours à l'aide la méthode loadComponentFromUrl
   - J'enregistre le document au format pdf en utilisant la méthode storeToUrl
   - Je ferme le document.
   - Le fichier PDF est créé.
Mais mon problème est que lors du passage sur le storetoURL, OpenOffice semble allouer de l'espace mémoire (observé dans le gestionnaire des tâches de windows : un peu moins d'1 Mo par fichier) mais ne le libère jamais. Je dois traiter près de 5000 fichiers ce qui semble être beaucoup pour mon OS (Le bug est reproduit sur n'importe quel OS à savoir Windows 2000(512 Mo de RAM), 2003 (1Go de RAM) ou XP (1Go de RAM))

J'ai tenté d'ajouter "openoffice.dispose" pour fermer la session d'openoffice entre chaque fichier mais il n'arrive pas à le rouvrir. Dans ce cas j'ai un message d'erreur () sur le 
   openoffice := CreateOleObject('com.sun.star.ServiceManager');

Pour information, je travaille sous Delphi 2005 et OpenOffice 2.2.0.

Je vous remercie par avance pour la réponse.

Voici le bout de code :
<hr />
try
   try
      result := false;
     if dstFile <> '' then
     begin
       ConnectOpenOffice;
       //Conversion du chemin du fichier vers un format reconnu de openoffice
       monFich:= convertToURL(srcFile);
       PropFich:= dummyArray;
       //Ouverture de openoffice en mode caché
       //ATTENTION : en OOo 2.0.2 ça plante donc utiliser OOo 2.0.3
       PropFich := CreateProperties(['Hidden', True]); // ici les noms de propriétés sont sensibles à la casse
       try
          //Chargement du document
          monDocument:= StarDesktop.LoadComponentFromURL(monFich, '_blank', 0, PropFich);
       except
      exit;
    end;
    PropFich:= dummyArray;
    PropFich:= CreateProperties(['FilterName', 'writer_pdf_Export']); // ici les noms de propriétés sont sensibles à la casse
    adresseDOC := convertToURL(dstFile);
    monDocument.storeToURL(adresseDOC,PropFich);
    monDocument.Close(True);
  end;
 
  result := true;
   except
  on e:Exception do
    LogErreur(e,'ConvertToPDF.execute');
   end;
 finally
  if not isnullEmpty(OPenOffice) then
  begin  
   stardesktop.terminate;
   stardesktop.unassigned;
   //openoffice.dispose
   openoffice.unassigned;
  end;
 end;

<hr />
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
acarre 5 Messages postés mardi 10 août 2004Date d'inscription 10 avril 2007 Dernière intervention - 10 avril 2007 à 10:19
3
Merci
Bonjour,
Pour ceux que ça intéresse, pour contourner mon problème j'effectue un dispose d'OpenOffice entre chaque document et je désactive le démarrage automatique d'OpenOffice. De ce fait, les ressources assignée à OpenOffice sont automatiquement libérées. Le traitement en est rendu un peu plus long mais ainsi j'ai une meilleur maîtrise de la mémoire.
Après avoir posté sur le forum anglophone d'OpenOffice, j'ai découvert qu'OpenOffice n'est pas encore optimisé dans la gestion de la mémoire.

Bonne journée

Merci acarre 3

codes-sources a aidé 80 internautes ce mois-ci

Commenter la réponse de acarre

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.