Discussion :

[dmatz]

Bonjour,

j'ai besoin de remplacer un lien OLE qui interagie avec des fichiers WORD et XLS
Je voudrait utilisé la suite libreOffice pour
- ouverture de fichier Calc
- remplissage
- sauvegarder le fichier
- ...

mais sur le forum je ne trouve dans la FAQ (C++ et Delphi) que des accès a Open Office

Avez vous des tuto, faq, ou exemples de code C++ builder qui utilise ce lien OLE vers Libre Office ?

J'ai tester le code de la FAQ de OpenOffice pour ouvrir Calc et cela ne fonctionne pas
la connexion se fait bien via le CreateOleObject("com.sun.star.ServiceManager");
mais après j'ai une erreur sur la suite avec l'erreur "Type de Variable incorrect"


Merci d'avance pour votre aide

David

[DjmSoftware]

Salut
avant de commencer un petit coup d'œil ici https://api.libreoffice.org/
il semblerait que LibreOffice soit assez proche de OpenOffice

cet article devrait également t'intéressé https://blogs.embarcadero.com/profes...e-libreoffice/

et une librairie en version libre (GPL) https://sourceforge.net/projects/oo-automation/

le SDK https://api.libreoffice.org/docs/idl/ref/index.html

bonne lecture et bon courage
ou alors
un petit bout de code à titre d'exemple

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
 
 
//---------------------------------------------------------------------------
 
#ifndef Unit124H
#define Unit124H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
// le H
 
class TForm124 : public TForm
{
__published:	// Composants gérés par l'EDI
	TButton *Button1;
	TButton *Button2;
	void __fastcall Button1Click(TObject *Sender);
	void __fastcall Button2Click(TObject *Sender);
private:	// Déclarations utilisateur
 Variant vOOoOpenOffice, vOOoDocument, vOOoDesktop, vOOoLoadParams;
  WideString Param1;
public:		// Déclarations utilisateur
	__fastcall TForm124(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm124 *Form124;
//---------------------------------------------------------------------------
 
 
// le cpp
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit124.h"
#include"ComObj.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm124 *Form124;
//---------------------------------------------------------------------------
__fastcall TForm124::TForm124(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm124::Button1Click(TObject *Sender)   // Ouverture de Calc
{
   bool vOOoDocumentExist;
 
try
{
	vOOoOpenOffice = Unassigned();
	vOOoOpenOffice = CreateOleObject(L"com.sun.star.ServiceManager");
	vOOoDesktop = vOOoOpenOffice.OleFunction(L"createInstance",WideString(L"com.sun.star.frame.Desktop"));
}
catch (...)
{
	// si on passe ici c'est qu'il y a une erreur qu'il faudra traiter
}
int Bounds[2] = {0,-1};
vOOoLoadParams = VarArrayCreate(Bounds, 1, varVariant);
vOOoDocument = vOOoDesktop.OleFunction(L"LoadComponentFromURL", WideString(L"private:factory/scalc"), WideString(L"_blank"), 0, vOOoLoadParams);
vOOoDocumentExist = !(VarIsEmpty(vOOoOpenOffice) || VarIsNull(vOOoOpenOffice)); // false
}
//---------------------------------------------------------------------------
 
void __fastcall TForm124::Button2Click(TObject *Sender)  // Fermeture de Calc
{
 
	if(VarType(vOOoDocument) == varDispatch)
	{
	 vOOoDocument.OleFunction(L"dispose");
	 vOOoOpenOffice = Unassigned();
	}
 
}
//---------------------------------------------------------------------------

cdlt

[dmatz]

Merci ca fonctionne avec tes exemple de code
mon problème pour info par rapport a ton code vient que tu forces les type et moi je ne le faisait pas

vOOoDesktop = vOOoOpenOffice.OleFunction(L"createInstance",WideString(L"com.sun.star.frame.Desktop"));

je passe le point en résolu

encore merci