Discussion :

[Invité]

Bonjour à tous !

Je viens vous embêter aujourd'hui pour un petit souci de LPR.

J'utilise la commande suivante :

Code :

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

ShellExecute(0, 'open', 'lpr', PChar('-S '+_Platine+' -P '+ _Port+' '+_fichier), nil,  SW_HIDE);

ce qui donne :

Code :

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

ShellExecute(0, 'open', 'lpr', PChar('-S 'XXX+' -P '+pr1 \\XXX\app\carteclient\cartdos), nil, SW_HIDE)

Cela fonctionne parfaitement bien sous Windows 32bits, mais pas avec Windows 64bits. Est-ce normal ? Ou bien mon environnement a un problème ?
J'ai fait un peu le tour d'internet mais je n'ai rien trouvé de probant... :-/

Merci d'avance pour vos lumières !

[Gilbert Geyer]

Bonjour,

J'ai eu le même problème, mais en remplaçant PChar dans ShellExecute(0, 'open', 'lpr', PChar('-S '+_Platine+' -P '+ _Port+' '+_fichier), nil, SW_HIDE);
par PAnsiChar le problème s'est trouvé résolu chez moi.

A+.

[Invité]

Vous avez-eu plus de chance que moi.
Ça ne fonctionne malheureusement pas... :-(

[Gilbert Geyer]

Re,

Essaye ceci qui marche chez moi ShellExecute(0,'OPEN', PAnsiChar('Nom_Complet_Fichier_A_Executer'), Nil, Nil, SW_SHOW);
en y remplaçant uniquement Nom_Complet_Fichier_A_Executer par un exécutable quelconque (un exécutable dont tu as la certitude qu'il fonctionne) ça permettra de voir s'il y a une autre erreur dans ton code.

A+.

[SergioMaster]

Bonjour,

AMHA il faudrait vérifier le résultat de la concaténation '-S '+_Platine+' -P '+ _Port+' '+_fichierpeut être en passant d'abord par une variable

Code :

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

1
2
Params := Format('-S %s -P %s %s',[_Platine,_Port,_Fichier]);
// showmessage(Params);

Mais le problème principal est que la commande LPR n'est pas fournie (par défaut voirle [Edit]) en 64 bits (voir https://www.lifewire.com/command-ava...rosoft-2618081), uniquement en 32 donc il me semble qu'il faut indiquer le chemin complet de la commande LPR.
NB. je ne trouve pas LPR sur mon poste W10 64bits par exemple, il faudrait donc que je récupère LPR sur une ancienne version et le mette avec ses fichiers associés lpr.exe, lprhelp.dll, et lprmonui.dll certainement dans sysWOW64 pour être tranquille !

[Edit]
un peu plus de recherche et il semblerai qu'il faille pour windows 10 ajouter la fonctionnalité à windows (paramètres/activer ou désactiver des fonctionnalités de windows), dans la liste il y a le moyen de rajouter l'utilisation de LPR, en ajoutant cette fonctionnalité il charge les fichiers nécessaires j'en suis là car le chargement semble long !
une fois cette fonctionnalité installée, LPR et ses fichiers sont copiés dans SYSTEM32 (donc doivent être 64 bits ...)

[ShaiLeTroll]

Pour le débat PChar et PAnsiChar, sur un Delphi récent, normalement ce n'est pas utile
Par défaut c'est la version PWideChar et ShellExecuteW

Si PAnsiChar est compatible avec PChar, c'est que vous êtes en Delphi 7 qui utilise ShellExecuteA
Il y a une directive de compilation mais il me semble qu'elle est conçu pour C++Builder d'utiliser une API Ansi pour faciliter le recodage de .c_str()

Sinon, la piste de SergioMaster semble bien plus pointue et pertinente qu'il faut creuser !