Discussion :

[PhilLU]

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

Code :

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

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


Joyeux Noël

[SergioMaster]

Bonjour,

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

Code :

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

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);

[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,
Très joyeux Noël,
PhilLu

[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 :

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

Très joyeux réveillon

[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

[PhilLU]

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

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

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