Shell Ghostscript erreur de compilation

Version imprimable

Bonjour,
Je reconconter une erreur de compilation pour ce bout de code:
(Désolé, les balises ne fonctionnent plus :weird:
Code:

1 2 3 4 5 uses:gsapi, ghosttools, shellapi,... var: Filenamein, FilenameOut : string;... Filenamein:= ExtractFilePath(opendialog1.FileName)+sid+' - '+IntToStr(myYear)+' '+Month+' '+Day+' '+Hour+''+Min+''+Sec+' - '+Prof+'.pdf'; FilenameOut:= ExtractFilePath(opendialog1.FileName)+sid+' - '+IntToStr(myYear)+' '+Month+' '+Day+' '+Hour+''+Min+''+Sec+' - '+Prof+'.tif'; ShellExecute(Handle,'Open','gs -dBATCH -dNOPAUSE -sDEVICE=tiffg4 -r600x600 -sDither=fast -sOutputFile='+FilenameOut+' '+Filenamein,nil,Nil,SW_SHOWDEFAULT);
Erreur de compilation: (le pointeur s'arrète derrière 'Filenamein' de la ligne ShellExecute)
[DCC Avertissement] pdf_to_txt.pas(203): W1058 Transtypage de chaîne implicite avec perte de données potentielle de 'string' en 'AnsiString'
[DCC Erreur] pdf_to_txt.pas(256): E2010 Types incompatibles : 'PWideChar' et 'string'
[DCC Avertissement] pdf_to_txt.pas(431): W1058 Transtypage de chaîne implicite avec perte de données potentielle de 'string' en 'AnsiString'
[DCC Erreur fatale] Project1.dpr(5): F2063 Impossible de compiler l'unité utilisée 'pdf_to_txt.pas'

J'ai tenté plusieurs variantes mais sans résultat :(

Merci pour vos suggestions...
:help:

Joyeux Noël :chin:

Bonjour,

problème "classique"
je suggère cette approche par les Formats :

Code:

1
2
3
4
5
6
7
8
9
10
11
var: Filenamein, FilenameOut, Shellparams : string;...
const FParams : 'gs -dBATCH -dNOPAUSE -sDEVICE=tiffg4 -r600x600 -sDither=fast -sOutputFile=%s %s';
...
Filenamein:=Format('%s%s-%s-%s.pdf',
                           [ExtractFilePath(opendialog1.FileName),
                            sid,
                            FormatDateTime('yyyy mm dd hh nn ss',ladate),
                            Prof ]);
//même processus pour FileNameOut
ShellParams:=Format(FParams,[QuotedStr(FileNameIn),QuotedStr(FileNameOut)]); // quotedStr car il y a des espaces dans les noms de fichiers, pas bon ça pour des paramètres Shell
ShellExecute(Handle,'Open',ShellParams,nil,Nil,SW_SHOWDEFAULT);

24/12/2017, 10h16
PhilLU

Merci SergioMaster,
Jusque là j'utilise la dll: gsdll32.dll
et les uses: gsapi, ghosttools
L'appel à gs dans le shell via cette procédure fait il appel à gswin32c.exe?

Merci pour ton aide,:ccool:
Très joyeux Noël,
PhilLu

Hello SergioMaster,
Aussi, après avoir installé gs dans le dossier (gswin32c.exe renommé gs.exe), j'ai testé le code suivant (pour obtenir les bons formats des fichiers - je suis contraint à garder les espaces;
voici à quoi rescemble un fichier en entrée: "14864 - 2017 12 24 152425 - Daily QC.pdf"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if OutFormat='TIF' then
     begin
     Filenamein:=Format('%s%s%s%s-%s%s%s%s%s%s%s%s%s%s%S-%S%s.pdf',
                           [OutFolder,'\',
                            sid,' ',' ',
                      //      FormatDateTime('yyyy mm dd hh nn ss',ladate),
                            Year,' ', Month,' ', Day,' ', Hour, Min, Sec,' ',' ',
                            Prof ]);
 
     FilenameOut:=Format('%s%s%s%s-%s%s%s%s%s%s%s%s%s%s%S-%S%s.tif',
                           [OutFolder,'\',
                            sid,' ',' ',
                      //      FormatDateTime('yyyy mm dd hh nn ss',ladate),
                            Year,' ', Month,' ', Day,' ', Hour, Min, Sec,' ',' ',
                            Prof ]);
  ShellParams:=Format(FParams,[FileNameOut,FileNameIn]);
  ShellExecute(Handle,'Open',PChar(ShellParams),nil,Nil,SW_SHOWDEFAULT);
     end;

J'ai aussi vu qu'il avait une inversion dans [FileNameOut,FileNameIn] mais...
... malheureusement toujours nok :calim2:

Très joyeux réveillon
:lahola:

24/12/2017, 16h36
PhilLU

Pour info, voici le format de ShellParams:
gs -dBATCH -dNOPAUSE -sDEVICE=tiffg4 -r600x600 -sDither=fast -sOutputFile=D:\Documents\RAD Studio\Projets\dll rename pdf\Win32\Debug\out\14864 - 2017 12 24 163403 - AHC.tif D:\Documents\RAD Studio\Projets\dll rename pdf\Win32\Debug\out\14864 - 2017 12 24 163403 - AHC.pdf

J'ai testé en supprimant les espaces et en les remplaçant ar des '_':

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 if OutFormat='TIF' then
     begin
     Filenamein:=Format('%s%s%s%s%s%s%s%s%s%s%s%s%s.pdf',
                           [OutFolder,'\',
                            sid,'_',
                            Year, Month, Day,'_', Hour, Min, Sec,'_',
                            Prof ]);
 
     FilenameOut:=Format('%s%s%s%s%s%s%s%s%s%s%s%s%s.tif',
                           [OutFolder,'\',
                            sid,'_',
                            Year, Month, Day,'_', Hour, Min, Sec,'_',
                            Prof ]);
  ShellParams:=Format(FParams,[FileNameOut,FileNameIn]);
  logline(logFolder+'\log.txt',datetimetostr(now)+'   ShellParams:    '+ShellParams);
  ShellExecute(Handle,'Open',PChar(ShellParams),nil,Nil,SW_SHOWDEFAULT);
     end;

Pas mieux :weird:

Maintenant, je me rends compte que quand je tape gs /? dans cmd j'ai un message:
'gs' n’est pas reconnu en tant que commande interne

:calim2:

J'utilise déjà gsapi, ghosttools pour lire le contenu des pdf dans la même appli???

25/12/2017, 10h44
Cirec

bonjour,
comme toujours, une question posée sur 2 site différents ...
Note que je n'ai aucun problème avec ça, au contraire, on double ses chances d'avoir une réponse ...

mais si tu ne lis pas les réponses jusqu'au bout
ou ne tiens pas comptes de ces dernières ça va être difficile de t'aider :aie:

la solution t'a été donné ici par SergioMaster et par moi sur l'autre site

Bonnes fêtes à toutes et à tous

Cordialement,

@+
30/12/2017, 10h27
PhilLU

Salut Cirec,
Je pense avoir lu jusqu'au bout et testé, mais sans succès ceci comme proposé:

Code:

ShellExecute(Handle,'Open',PChar(ShellParams),nil,Nil,SW_SHOWDEFAULT);

Citation:

Envoyé par Cirec

bonjour,
comme toujours, une question posée sur 2 site différents ...
Note que je n'ai aucun problème avec ça, au contraire, on double ses chances d'avoir une réponse ...

mais si tu ne lis pas les réponses jusqu'au bout
ou ne tiens pas comptes de ces dernières ça va être difficile de t'aider :aie:

la solution t'a été donné ici par SergioMaster et par moi sur l'autre site

Bonnes fêtes à toutes et à tous

Cordialement,

@+

Par contre si tu lis les miens jusqu'au bout, tu verras que le problème est ailleurs:

Citation:

Maintenant, je me rends compte que quand je tape gs /? dans cmd j'ai un message:
'gs' n’est pas reconnu en tant que commande interne
J'utilise déjà gsapi, ghosttools pour lire le contenu des pdf dans la même appli???

Existe t'il des appels à gsapi ou ghosttools pour se passer du shellexecute?

Très bon réveillon de nouvel an ;)

:yaisse3:
01/01/2018, 21h19
PhilLU

Solution en deux étapes sans invoquer Ghostscript mais via gsapi :-D

Bonsoir,
Finalement j'utilise gsapi
Je transforme le pdf en png (avec la commande PDF2PNG)
puis je transforme le png en TIFF.

Si le pdf fait plusieurs pages, les tiff sont automatiquement nommés ...page01.TIFF.

:yaisse:

Merci à tous, :ccool:
PhilLu

:resolu: