[D7] piloter PDFCreator

Version imprimable

16/06/2009, 12h21
greg778

[D7] piloter PDFCreator

Bonjour,

Depuis Delphi, je crée un document word.
Je donne à l'utilisateur le choix d'imprimer directement son document word, puis de fermer Word...
Avec l'imprimante par défaut, pas de problème le doc est imprimé directement et word ce ferme pour passer aux tâches suivantes...

Mais lorsque l'utilisateur choisit comme imprimante PDFCreator, le document Word est créé, puis la fenêtre de confirmation du nom du pdf s'ouvre et attend que l'utilisateur intervienne...
J'ai donc cherché de côté pour pouvoir passer à PDFCreator les paramètres nécessaires (nomdedossier+nomdefichier) pour que l'opération se fasse sans l'intervention de l'utilisateur... et ça la que ça coince...

J'ai testé le code trouvé ici : "conversion-excel-vers-pdf".
En ayant importé la librairie suivante :
http://img195.imageshack.us/img195/6...eenshot086.jpg

Mais je rencontre le problème à la ligne suivante :
http://img196.imageshack.us/img196/4...enshot085x.jpg

Est-ce que la manière de procéder tient la route, ou suis-je à côté de la plaque ?
Merci pour votre aide et vos conseils...
Greg
16/06/2009, 14h22
philnext

Dans PDFCreator directement tu peux modifier les paramêtres pour éviter que la fenêtre ne s'ouvre et pour que le nom du fichier soit généré automatiquement.
16/06/2009, 14h32
ero-sennin

Salut,

Fait voir ton code, car avec le screenshoot, ça nous dit pas grand chose :mrgreen:

Citation:

Envoyé par philnext

Dans PDFCreator directement tu peux modifier les paramêtres pour éviter que la fenêtre ne s'ouvre et pour que le nom du fichier soit généré automatiquement.

oui, j'avais vu ça, mais c'est pour ne pas devoir le faire sur les différents postes utilisateurs, et ne pas "bloquer" PDFCreator en enregistrement automatique pour l'utilisateur...

Concernant le code, je ne l'avais pas repris car j'avais mis le lien, mais le voici :

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
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
unit UnitToPDF;
 
interface
 
uses
  SysUtils, Classes, PDFCreator_TLB, ExtCtrls, Forms, Windows, dialogs;
 
type
  TFtopdf = class(TDataModule)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);    
  private
    { Instance de PDF Creator }
    PDFCreator: TclsPDFCreator;
    {Instance du gestionnaire d'erreurs de PDF Creator.
    Sera affecté en cas d'erreur uniquement.}
    PDFError: clsPDFCreatorError;
    {Flag indiquant la disponibilité du document produit}
    ReadyState: boolean;
    {Méthode chargée du lancement de l'impression.
    Le paramètre FileType indique le type de document à produire.}
    //procedure PrintIt(FileType: integer);
    {Gestionnaire des erreurs pour PDF Creator}
    procedure PDFCreatorError(Sender: TObject);
    {Gestionnaire permettant un traitement lorsque PDF Creator a fini
    la production d'un document PDF.}
    procedure PDFCreatorReady(Sender: TObject);
  public
    { Déclarations publiques }
    {Convertire le fichier vers pdf}
    procedure ConvertToPdf(FileType: integer; CheminFichier:String);
  end;
 
var
  Ftopdf: TFtopdf;
 
implementation
 
 
{$R *.dfm}
const
  {Time-out}
  MaxTime = 20;
 
procedure TFtopdf.ConvertToPdf(FileType: integer;CheminFichier : String);
Var
  FName, Error, Parameters : String;
  DefaultPrinter: Widestring;
  Opt: clsPDFCreatorOptions;
begin
 
   Error := '';
  //instanciation de PDF Creator
  Timer1.Enabled := False;
  PDFCreator := TclsPDFCreator.Create(Self);
  //Connexion des gestionnaires d'évènements
  PDFCreator.OneError := PDFCreatorError;
  PDFCreator.OneReady := PDFCreatorReady;
  //pas de traitement au démarrage
  Parameters := '/NoProcessingAtStartup';
 
  //teste si on peut démarrer le serveur
  if not PDFCreator.cStart(Parameters, False) then
    begin
      Error:= 'Status : Erreur[' + IntToStr(PDFError.Number)
        + '] : ' + PDFError.Description;
      MessageBox(0,'Erreur de connexion au PDFCreator','ERREUR',MB_ICONERROR or MB_OK);
    end;
  if Error = '' then
    begin
      FName := ExtractFileName(CheminFichier);
      FName := ChangeFileExt(FName,'');
      //Options de conversion du document
      Opt := PDFCreator.cOptions;
      Opt.UseAutosave := 1;
      Opt.UseAutosaveDirectory := 1;
      Opt.AutosaveDirectory := ExtractFilePath(CheminFichier);
      Opt.AutosaveFormat := FileType;
 //     if FileType = 5 then
 //       Opt.BitmapResolution := 72;
      Opt.AutosaveFilename := FName;
      PDFCreator.cOptions := Opt;
      PDFCreator.cClearCache;
      //non documenté !
 //     if FileType = 5 then
//        Opt.BitmapResolution := 72;
      Opt.AutosaveFilename := FName;
      PDFCreator.cOptions := Opt;
      PDFCreator.cClearCache;
      //sauvegarde du nom de l'imprimante actuelle
      DefaultPrinter := PDFCreator.cDefaultPrinter;
      PDFCreator.cDefaultPrinter := 'PDFCreator';
      PDFCreator.cPrintFile(CheminFichier);
      PDFCreator.cPrinterStop := False;
      ReadyState := False;
      //Boucle d'attente de fin de traitement
      Timer1.Interval := MaxTime * 1000;
      Timer1.Enabled := True;
 
      while not ReadyState and Timer1.Enabled do
        Application.ProcessMessages;
          // si timeout...
      if not ReadyState then
        MessageBox(0, 'Une erreur s''est produite : dépassement du temps alloué', 'Création de la page de test', MB_ICONEXCLAMATION or MB_OK);
 
      PDFCreator.cPrinterStop := True;
      //restauration du nom de l'imprimante
      PDFCreator.cDefaultPrinter := DefaultPrinter;
      //Fermeture du seveur
      PDFCreator.cClose;
      PDFCreator.Free;
    end;
end;
 
procedure TFtopdf.PDFCreatorError(Sender: TObject);
begin
  //Affectation de l'interface
  PDFError := PDFCreator.cError;
end;
 
procedure TFtopdf.PDFCreatorReady(Sender: TObject);
var
  Error : String;
begin
  //La conversion en PDF s'est correctement déroulée
  Error := 'Status : "' + PDFCreator.cOutputFilename + '" créé !';
  PDFCreator.cPrinterStop := True;
  ReadyState := True;
end;
 
procedure TFtopdf.Timer1Timer(Sender: TObject);
begin
//arrêt du timer
  Timer1.Enabled := False;
end;
 
end.

je fais donc juste un appel à la procédure ConvertToPdf en passant mon fichier en paramètre...

16/06/2009, 15h23
ero-sennin

Ah d'accord, c'est vraiment un copier collé !

Et en pas à pas, c'est sur quelle ligne de ton code que ça cafouille ?
Le create ?
16/06/2009, 15h39
greg778

ah ça oui, c'est un bon vrai copier/coller !!

l'erreur se produit lorsque j'appelle la procédure comme suit :

Code:

ftopdf.ConvertToPdf(1,FichSrcMultAE);

avec FichSrcMultAE qui est le chemin complet de mon fichier source à convertir en pdf.

j'obtiens le message d'erreur suivant :
http://img29.imageshack.us/img29/146...enshot087v.jpg

qui me renvoie à la ligne :
http://img196.imageshack.us/img196/4...enshot085x.jpg

est-ce plus clair ?
merci
16/06/2009, 15h45
ero-sennin

J'avoue que là, comme ça, sans Delphi sous la main, je n'arriverai pas à te donner de solution.

Néanmoins, d'après ce que je peux voir, on dirait que tu veux envoyer un paramètre (%1) ...

Je ne peux t'aider plus, du moins, pas tout de suite ...
16/06/2009, 16h05
greg778

merci déjà de m'avoir lu...

si ça peut aider, la librairie PDFCreator_TLB.pas est importée depuis le fichier PDFCreator.exe (version 0.9.8)...

Bon, ba j'ai jeté un oeil, et c'est tout bon pour moi ;)

Voici mon code au complet :

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
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PDFCreator_TLB, StdCtrls, ExtCtrls;
 
const
  {Time-out}
  MaxTime = 20;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    { Instance de PDF Creator }
    PDFCreator: TclsPDFCreator;
    {Instance du gestionnaire d'erreurs de PDF Creator.
    Sera affecté en cas d'erreur uniquement.}
    PDFError: clsPDFCreatorError;
    {Flag indiquant la disponibilité du document produit}
    ReadyState: boolean;
    {Méthode chargée du lancement de l'impression.
    Le paramètre FileType indique le type de document à produire.}
    //procedure PrintIt(FileType: integer);
    {Gestionnaire des erreurs pour PDF Creator}
    procedure PDFCreatorError(Sender: TObject);
    {Gestionnaire permettant un traitement lorsque PDF Creator a fini
    la production d'un document PDF.}
    procedure PDFCreatorReady(Sender: TObject);
  public
    { Déclarations publiques }
    {Convertire le fichier vers pdf}
    procedure ConvertToPdf(FileType: integer; CheminFichier:String);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if(OpenDialog1.Execute())then
    ConvertToPdf(0,OpenDialog1.FileName);
end;
 
procedure TForm1.ConvertToPdf(FileType: integer;CheminFichier : String);
Var
  FName, Error, Parameters : String;
  DefaultPrinter: Widestring;
  Opt: clsPDFCreatorOptions;
begin
 
   Error := '';
  //instanciation de PDF Creator
  Timer1.Enabled := False;
  PDFCreator := TclsPDFCreator.Create(Self);
  //Connexion des gestionnaires d'évènements
  PDFCreator.OneError := PDFCreatorError;
  PDFCreator.OneReady := PDFCreatorReady;
  //pas de traitement au démarrage
  Parameters := '/NoProcessingAtStartup';
 
  //teste si on peut démarrer le serveur
  if not PDFCreator.cStart(Parameters, False) then
    begin
      Error:= 'Status : Erreur[' + IntToStr(PDFError.Number)
        + '] : ' + PDFError.Description;
      MessageBox(0,'Erreur de connexion au PDFCreator','ERREUR',MB_ICONERROR or MB_OK);
    end;
  if Error = '' then
    begin
      FName := ExtractFileName(CheminFichier);
      FName := ChangeFileExt(FName,'');
      //Options de conversion du document
      Opt := PDFCreator.cOptions;
      Opt.UseAutosave := 1;
      Opt.UseAutosaveDirectory := 1;
      Opt.AutosaveDirectory := ExtractFilePath(CheminFichier);
      Opt.AutosaveFormat := FileType;
      //non documenté !
 //     if FileType = 5 then
//        Opt.BitmapResolution := 72;
      Opt.AutosaveFilename := FName;
      PDFCreator.cOptions := Opt;
      PDFCreator.cClearCache;
      //sauvegarde du nom de l'imprimante actuelle
      DefaultPrinter := PDFCreator.cDefaultPrinter;
      PDFCreator.cDefaultPrinter := 'PDFCreator';
      PDFCreator.cPrintFile(CheminFichier);
      PDFCreator.cPrinterStop := False;
      ReadyState := False;
      //Boucle d'attente de fin de traitement
      Timer1.Interval := MaxTime * 1000;
      Timer1.Enabled := True;
 
      while not ReadyState and Timer1.Enabled do
        Application.ProcessMessages;
          // si timeout...
      if not ReadyState then
        MessageBox(0, 'Une erreur s''est produite : dépassement du temps alloué', 'Création de la page de test', MB_ICONEXCLAMATION or MB_OK);
 
      PDFCreator.cPrinterStop := True;
      //restauration du nom de l'imprimante
      PDFCreator.cDefaultPrinter := DefaultPrinter;
      //Fermeture du seveur
      PDFCreator.cClose;
      PDFCreator.Free;
    end;
end;
 
procedure TForm1.PDFCreatorError(Sender: TObject);
begin
  //Affectation de l'interface
  PDFError := PDFCreator.cError;
end;
 
procedure TForm1.PDFCreatorReady(Sender: TObject);
var
  Error : String;
begin
  //La conversion en PDF s'est correctement déroulée
  Error := 'Status : "' + PDFCreator.cOutputFilename + '" créé !';
  PDFCreator.cPrinterStop := True;
  ReadyState := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//arrêt du timer
  Timer1.Enabled := False;
end;
 
end.

J'ai modifié la structure pour ne pas avoir à déclarer un type spécifique ... Après, à toi de voir :)
Sinon, lors de l'appel à ConvertToPdf c'est 0 qu'il faut lui passé (0 = PDF, 1=PNG, etc ...).
De ce fait, je me demande si c'est utile de le passer à la méthode ce paramètre, car le nom de la méthode c'est ConvertToPdf et non ConvertToPng ... enfin bref, là, c'est toi qui voit :mrgreen:

Voilà voilà!
A+ ;)

17/06/2009, 12h03
greg778

Hello,

Merci pour ta réponse, j'ai testé et... j'ai la même erreur que celle que je décris ci-dessus (à 14h39)!!

Est-ce que le problème viendrait de l'importation de la librairie PDFCreator_TLB.pas ou de la verison de PDFCreator ??

Bizarre que ça fonctionne chez toi, tu as aussi importé cette librairie ?
17/06/2009, 13h05
ero-sennin

J'ai choisi d'importer l'activeX, j'ai sélectionné le pdfcreator.exe, et il m'a généré mon truc tout seul...

Après, j'ai juste faire les modifs dans le code posté précédemment :)
17/06/2009, 13h12
greg778

question à la con : dans la liste "Import ActiveX" je ne retrouve pas PDFCreator... je vois qu'on peut en ajouter, mais quel fichier as-tu choisis ?
merci,

ça change quoi d'importer l'ActiveX PDFCreator et d'importer la librairie PDFCreator ?
17/06/2009, 13h59
ero-sennin

Oula, je me rappelle plus trop, l'activeX j'ai mis comme filtre de sélection de fichier "Tout" pour dire de pouvoir le sélectionner.

Ensuite je suis sous D2009, donc je me rapelle plus trop comment on fait sous D7 :roll:
17/06/2009, 15h01
greg778
en important la librairie PDFCreator 6.1, je retrouve bien, dans ma platte ActiveX, les différents composants TclsPDFCreator, TclsPDFCreatorOptions, TclsPDFCreatorError, TclsPDFCreatorInfoSpoolFile :
http://img13.imageshack.us/img13/508...enshot089n.jpg

j'ai tenté ça
Code:

1 2 3 4 procedure TFPDF.FormCreate(Sender: TObject); begin clsPDFCreator.cStart('/NoProcessingAtStartup', False); end;
mais je retombe directement sur le même message d'erreur :
http://img29.imageshack.us/img29/146...enshot087v.jpg

donc le problème subsiste, mais je ne sais pas d'où ça peut provenir !!
c'est pour ça que je suis là ;)
17/06/2009, 16h14
toutou2000

bonjour
tu peux voir dans la répertoire \PDFCreator\COM il y a des exemples en plusieurs langages par contre je croix pas qu'il y on a en Delphi. Donc il faut inspiré.
22/06/2009, 11h12
greg778

Hello,

Et chez toi ça marche, toutou2000 ??

Car là je suis un peu perdu et ne sais pas trop par ou commencer ??
si qlq à une idée... elle est la bienvenue car je cale...

merci
Greg
23/06/2009, 14h39
greg778

autre info, dans l'observateur d'événements de windows je trouve l'erreur suivante... si ça peut être une piste...

Le démarrage d'un serveur DCOM : {FBAAB693-CD00-42DE-ADB1-C5E5CA03700D} n'est pas possible. L'erreur :
"C:\Program Files\PDFCreator\PDFCreator.exe -Embedding n'est pas une application Win32 valide. "
s'est produite lors du démarrage de la commande :
C:\Program Files\PDFCreator\PDFCreator.exe -Embedding
23/06/2009, 15h34
ero-sennin

Salut,

T'as essayé de désinstaller puis de réinstaller PDFCreator pour voir ?
Une fois PDFCreator désinstallé, fais un RegClean (CCleaner) dessus :)
23/06/2009, 18h27
greg778

Oui oui, déjà désinstallé PDFCreator, nettoyé le registre puis réinstallé et réimporté la librairie... toujours pareil!! :?
18/08/2010, 09h49
jddev

Problème selon les versions de PDFCreator

Salut,
J'ai un petit programme (sous Delphi6) qui me permet de convertir un .doc en PDF à l'aide de PDFCreator : je me suis inspiré des posts précédents pour aboutir à un résultat qui fonctionne, merci à tous :ccool:

Cependant j'ai un problème de taille !:aie:

1) dév + compilation avec PDFCreator 0.9.8 installé :OK
2) installation de la version 0.9.9 : plus rien ne fonctionne.
3) je réinitialise le fichier "PDFCreator_TLB.pas" avec la nouvelle version de PDFCreator + recompilation : OK
4) installation de PDFCreator 1.0.0 : plus rien ne fonctionne......:cry:

Faut-il réinitialiser le fichier "PDFCreator_TLB.pas" + recompilation du prog à chaque nouvelle version de PDFCreator ? ça serait génant !!:(

Ou y a t-il une alternative, une solution...what else (comme dirais l'autre)

Merci pour tout éclaircisement !
21/12/2012, 13h53
Gentiane

Version de PDFCreator

Même problème à chaque nouvelle version de PDFCreator.

Quelqu'un a-t-il trouvé quelque chose ?

A bientôt.