Discussion :

[Papy214]

Bonjour,

J'ai un bout de code qui prend un ODT et qui, en utilisant OpenOffice, l'exporte en PDF:
Quand j'utilise ce code dans un exe, pas de problème, ça fonctionne.
Je dois utiliser la même fonction dans une dll associée à IIS comme service web.
Et là, ça plante directement sur le "CreateOleObject" pour un problème d'accès refusé.
C'est évidemment une histoire de droits mais je ne sais pas comment régler ça.

Une idée ???

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
 
procedure OpenOfficeExportToPDF(const ASourceFileURL: string; const ATargetFileURL: string);
var
  StarOffice: Variant;
  StarDesktop: Variant;
  StarDocument: Variant;
  FilterParams: Variant;
  ExportParams: Variant;
  ExportObject: Variant;
 
  function CreateProperty(const AName: AnsiString; AValue: Variant): Variant;
  begin
    Result := StarOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue');
    Result.Name := AName;
    Result.Value := AValue;
  end;
 
begin
  StarOffice := CreateOleObject('com.sun.star.ServiceManager');
  StarDesktop := StarOffice.CreateInstance('com.sun.star.frame.Desktop');
 
  FilterParams := VarArrayCreate([0, 0], varVariant);
  FilterParams[0] := CreateProperty('Hidden', True);
 
  StarDocument := StarDesktop.LoadComponentFromURL(ASourceFileURL, '_blank', 0, FilterParams);
 
  ExportParams := VarArrayCreate([0, 2], varVariant);
  ExportParams[0] := CreateProperty('Magnification', 2);
  ExportParams[1] := CreateProperty('EncryptFile', True);
  ExportParams[2] := CreateProperty('HideViewerWindowControls', True);
//  ExportParams[3] := CreateProperty('DocumentOpenPassword', AnsiString('StackOverflow'));
 
  ExportObject := StarOffice.Bridge_GetValueObject;
  ExportObject.Set('[]com.sun.star.beans.PropertyValue', ExportParams);
 
  FilterParams := VarArrayCreate([0, 1], varVariant);
  FilterParams[0] := CreateProperty('FilterName', AnsiString('writer_pdf_Export'));
  FilterParams[1] := CreateProperty('FilterData', ExportObject);
 
  StarDocument.StoreToURL(ATargetFileURL, FilterParams);
 
  StarDocument.Close(True);
  StarDesktop.Terminate;
 
  StarDocument := Unassigned;
  StarDesktop  := Unassigned;
  StarOffice   := Unassigned;
end;

[Ph. B.]

Bonjour,

J'ai un bout de code qui prend un ODT et qui, en utilisant OpenOffice, l'exporte en PDF:
Quand j'utilise ce code dans un exe, pas de problème, ça fonctionne.
Je dois utiliser la même fonction dans une dll associée à IIS comme service web.
Et là, ça plante directement sur le "CreateOleObject" pour un problème d'accès refusé.
C'est évidemment une histoire de droits mais je ne sais pas comment régler ça.

AMHA, l'utilisateur Windows dédié à IIS (IUSR_*) a des droits insuffisants...

[Papy214]

Sans doute, mais des droits sur quoi ?

J'ai donné toutes les autorisations à "Tout le monde" sur tout le répertoire d'OpenOffice et la même chose sur la clé de base de registre com.sun.star.ServiceManager et ça n'a rien changé.

[Simara1170]

je sais pas comment fonctionne IIS, mais ton fichier serait pas passé en lecture seule ou un truc du genre?

[Papy214]

Le fichier n'est pas en cause puisque l'erreur arrive dès la première ligne de la procédure.

Code :

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

StarOffice := CreateOleObject('com.sun.star.ServiceManager');

[Andnotor]

Peut-être une réponse ici si ta dll est 32 bits sur un serveur 64 bits.

[Papy214]

ça aurait pu être une bonne piste mais la dll fonctionne très bien mis à part cette fonction.
Elle reçoit des données du client, attaque une base de données pour sauver ces données, génère des rapports qui sont envoyés par email, récupère de nouvelles données à renvoyer au client. Il n'y a que cet appel COM qui est refusé.

[Papy214]

Bonjour,

Pour éviter à d'autres les mêmes recherches inutiles, voici la solution :

1. Désinstaller OpenOffice
2. Installer LibreOffice

Le même code fonctionnera alors sans problème.
Ne me demandez pas pourquoi, je ne connais pas la réponse.
Toujours est-il que mon problème est résolu comme ça.

Sujet clos