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 :
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;