Voici un exemple qui marche correctement avec Delphi :
procedure TOOoWriter.SaveToPDF(FileName: string);
var
wProperties: variant;
begin
if not (fConnected and fDocumentOpened) then
abort;
wProperties := VarArrayCreate([0, 0], varVariant);
wProperties[0] := MakePropertyValue('FilterName', 'writer_pdf_Export');
fDocument.StoreToURL('file:///'+ StripString(FileName, ['\'], '/'),
wProperties);
end;
function TOOoWriter.MakePropertyValue(PropName: string;
PropValue: variant): variant;
var
Struct: variant;
begin
Struct :=
fOpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
Struct.Name := PropName;
Struct.Value := PropValue;
Result := Struct;
End Function
_____________________________________________
De : Cezame Concept [mailto:ceza...@wanadoo.fr]
Envoyé : vendredi 24 février 2006 14:13
À : pr...@fr.openoffice.org
Objet : RE: [prog] OLE OpenOffice et VB.NET
Le plus gros problème rencontré réside dans le passage de paramètres avec la
commande « PropertyValue » ...
Ci-dessous un exemple :
En VB :
Function setOOoProp(cName, uValue) As Object
Dim oPropertyValue As Object Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oPropertyValue =
oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue
Set setOOoProp = oPropertyValue
End Function
En Windev quand on fait :
oPropertyValue est objet Automation dynamique
oPropertyValue>>Name="FilterName"
oPropertyValue>>Value="writer_pdf_Export"
jusqu'ici tout est ok mais si on passe oPropertyValue à la fonction
storeToURL( .... , oPropertyValue )
alors erreur ... Le membre demandé n'existe pas.
D'avance merci
_____________________________________________
De : FAouzi Abderrahman [mailto:fa...@prosig.fr]
Envoyé : vendredi 24 février 2006 13:44
À : pr...@fr.openoffice.org
Objet : [Norton AntiSpam] RE: [prog] OLE OpenOffice et VB.NET
Sous delphi, même concept presque
Décrit ton problème
_____________________________________________
De : Cezame Concept [mailto:ceza...@wanadoo.fr]
Envoyé : vendredi 24 février 2006 13:39
À : pr...@fr.openoffice.org
Objet : [prog] OLE OpenOffice et VB.NET
Rencontrant des problèmes pour utiliser l'OLE open office sous Windev je me
suis penché sur VB Express 2005 et l'assemblage.NET
Est-ce que quelqu'un a déjà utilisé l'OLE ou autre sous VB.NET ?
D'avance merci pour toute information
Cyril VIGNOLO
Ceza...@wanadoo.fr
<< Fichier: ATT00248.txt >> << Fichier: ATT00096.txt >> << Fichier:
ATT00279.txt >>
21 messages in org.openoffice.fr.progRE: [prog] OLE OpenOffice et VB.NET
.dat
