[OLE]Sauvegarder un fichier LibreOffice au format XLS

bonjour

j'ai cette fonction qui fait la sauvegarde d'un fichier Calc qui fonctionne bien

Code:

---

1 2 3 4 5 6 7 8 9

Variant vOOoparametres; int Bounds[2] = {0,-1}; vOOoparametres = VarArrayCreate(Bounds, 1, varVariant); // on recompose le chemin avant de sauvegarder le fichier AnsiString FileName = "file:///"; FileName += NomFichier; FileName = StringReplace(FileName,"\\","/",TReplaceFlags()<< rfReplaceAll << rfIgnoreCase); vOOoDocument.OleFunction (L"storeAsURL", WideString(FileName.c_str()), vOOoparametres);

---

j'aimerai que au lieu d'un fichier ODS il m'écrive un fichier XLS
il faudrait j'ai l'impression le stocker dans "vOOoparametres"
dans la propriété FilterName avec la valeurs MS Excel 97

j'ai essayer ce code mais ca plante sur la ligne 9

Code:

---

1 2 3 4 5 6 7 8 9 10

Variant vOOoPropertyValue; try { vOOoPropertyValue = vOOoOpenOffice.OleFunction(L"Bridge_GetStruct", L"com.sun.star.beans.PropertyValue"); } catch(...) { } vOOoPropertyValue.OlePropertySet(L"Name",WideString("FilterName")); vOOoPropertyValue.OlePropertySet(L"Value",L"MS Excel 97");

---

quelqu'un a déjà fait cette manip d'enregistrement ou aurai une idée pourquoi ca plante
merci d'avance

Bonjour,
même réponse que la dernière fois OLE nécessite des type WideString comme paramètre pour du texte et C++ Builder depuis le portage à UNicode à partie de XE1 s'obstine à fournir de l'UnicodeString ..> Plantage. Portage raté de la part d'Embarcadero
il faut donc utiliser de la manière suivante

Code:

---

1 2 3

vOOoPropertyValue = vOOoOpenOffice.OleFunction(L"Bridge_GetStruct", WideString(L"com.sun.star.beans.PropertyValue"));

---

cdlt

Merci:D
Tout fonctionne maintenant
il me reste juste un problème quand je veux déconnecter les process Libre Office ne sont pas fermé
autre truc étrange lors de la création de l'objet il me fait 2 process libre office je sais pas si c'est normal

voila comment je connect et je deconect

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

bool ObjLibreOffice :: Connection() { if (VarIsEmpty(vOOoOpenOffice)) { try { vOOoOpenOffice = CreateOleObject(WideString(L"com.sun.star.ServiceManager")); if (VarType(vOOoOpenOffice) == varDispatch) vOOoDesktop = vOOoOpenOffice.OleFunction(WideString(L"createInstance"),WideString(L"com.sun.star.frame.Desktop")); vOOoConnect = true; } catch (...) { // si on passe ici c'est qu'il y a une erreur vOOoConnect = false; } } return vOOoConnect; } //--------------------------------------------------------------------------- bool ObjLibreOffice :: DeConnection() {   try { if(VarType(vOOoDocument) == varDispatch) //ferme le doc si il y en a un d'ouvert { vOOoDocument.OleFunction(WideString(L"dispose")); vOOoDocument = Unassigned(); } //vOOoDesktop.OleFunction(WideString(L"dispose")); vOOoDesktop.OleFunction(WideString(L"terminate")); vOOoDesktop = Unassigned(); vOOoOpenOffice.OleFunction(WideString(L"dispose")); vOOoOpenOffice = Unassigned(); vOOoConnect = false; } catch (...) { // si on passe ici c'est qu'il y a une erreur }   return vOOoConnect; }

---

quelqu'un a une idée ?
merci d'avance

Salut
le problème est que le 'desktop ouvert' n'est pas fermé regarde sur les forums LibreOffice/OpenOffice il devait exister une fonction close quelque part
je ne l'ai pas encore trouvée.

dans ton code je mettrais vOOoConnect = false; dans le bloc if(VarType(vOOoDocument) == varDispatch)

cdlt

j'ai fait un test juste de connecter le service manager sans faire la création du desktop
vOOoOpenOffice = CreateOleObject(WideString(L"com.sun.star.ServiceManager"));

et de le deco avec
vOOoOpenOffice.OleFunction(WideString(L"dispose"));
vOOoOpenOffice = Unassigned();


et les taches ne sont pas killer

Salut,
Je vais essayer avec Delphi pour voir si le problème est identique.
Essaye également en modifiant le script mis à disposition https://api.libreoffice.org/examples...ET/WriterDemo/ pour qu'il corresponde à ton code .

En surveillant dans le TaskManager l’exécution de ce script l'instance de Libreoffice est libérée à la fermeture manuelle de LibreOffice,La seule différence est que le script est terminé avant la fermeture de LibreOffice.

je suppose que le portage OLE de Embarcadero comporte un certain nombre d'erreurs et des pertes de mémoire (LEAK)
il suffit de lire les nombreux articles a ce sujet dont celui-ci https://stackoverflow.com/questions/...nt-memory-leak

Une possibilité simple est de vérifier ces propos en attribuant la Valeur NULL au variant en lieu et place de Unassigned().


cordialement

Salut,
Après plusieurs tests que ce soit avec Delphi ou Vb j’obtiens toujours des résultats identiques à la fermeture de l’application il reste 2 process libre office dans le task manage
Le problème vient donc de l’interface de libre office.un moyen simple de résoudre ce problème est de killer par programmation ces process restants.
Cdlt

Ok merci de ton aide et d'avoir pris le temps de regarder

je vais killer les process alors :calim2:

Sage décision qui te permettra d’économiser du temps et de l’énergie.
J’ai fait tous mes essais avec la dernière version de libre office.
Cela étant l’interfacage de msoffice est nettement supérieure et mieux documenté
Cdlt