[D7] piloter PDFCreator

**greg778** · 16/06/2009, 11h21

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 :

Mais je rencontre le problème à la ligne suivante :

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

**philnext** · 16/06/2009, 13h22

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.

**ero-sennin** · 16/06/2009, 13h32

Salut,

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

**greg778** · 16/06/2009, 14h10

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 :

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
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...

**ero-sennin** · 16/06/2009, 14h23

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 ?

**greg778** · 16/06/2009, 14h39

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

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

Code :

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

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 :

qui me renvoie à la ligne :

est-ce plus clair ?
merci

**ero-sennin** · 16/06/2009, 14h45

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 ...

[D7] piloter PDFCreator

API, COM et SDKs Delphi

Vue hybride

Discussions similaires

Partager

Partager