Discussion :

[dmatz]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DjmSoftware]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3

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

cdlt

[dmatz]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DjmSoftware]

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

[dmatz]

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

[DjmSoftware]

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

[DjmSoftware]

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

[dmatz]

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

je vais killer les process alors

[DjmSoftware]

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