Discussion :

[AODRENN]

Comment faire pour envoyer un fichier sur un LPTx sans utiliser les driver d'impression.
Equivalent de la commande DOS PRINT <fichier> /d:LPTx

Merci

[e-ric]

salut

je n'ai pas de réponse précise à te soumettre mais des pistes à travers les liens suivant

http://alphomega.developpez.com/imprimer/
http://delphipage.free.fr/impression.html
http://delphipage.free.fr/astimpression.html

J'espère que tu y trouveras des infos pertinentes

Cordialement

e-ric

[AODRENN]

Je te remercie pour ces informations mais elles ne repondent pas a ma question (Neanmoins je prend note de ces pistes pour d'autres besoins).

Le besoin est plus simple. C'est le simple envoie d'un fichier vers le port lpt1.

J'ai utilise la commande suivante:

Code :

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

ShellExecute(Application.Handle,'open',PChar(GetEnvironmentVariable('ComSpec')),'PRINT <Mon Fichier>:LPT1',NIL,SW_SHOW);

Mes rien en se passe, c'est a dire que la fenetre de commande en ligne s'ouvre mais rien n'est envoye.
Peut etre y a t'il quelque chose d'inexacte dans cette ligne?

Aodrenn

[e-ric]

as-tu testé ta commande manuellement, il y a peut-être un problème de droit.

e-ric

[AODRENN]

Oui j'ai teste la commande sous DOS

Dans mon precedent exemple, j'ai oublie: LE /d: avant LPT

Code :

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

ShellExecute(Application.Handle,'open',PChar(GetEnvironmentVariable('ComSpec')),'PRINT <Mon Fichier> /D:LPT1',NIL,SW_SHOW)

Mais la fonctin ci dessus ne fonctionne pas

Que veux tu dire par Droit ?

[Modération]
Merci d'utiliser les balises code, Laurent Dardenne
[/Modération]

[e-ric]

rien, désolé

je n'avais pas utilisé /D: et XP m'a retourné un message d'erreur.

Dans mon contexte réseau, cette commande n'aboutit pas depuis CMD.EXE.

Plutôt que ShellExecute, essaie CreateProcess (cf SDK Windows), j'ai pas trop le temps de te fournir un exemple, désolé.

cordialement

e-ric

[Noel Sybille]

Bonjour,

Essaie :

Code :

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

1
2
ShellExecute(Application.Handle,'open',PChar('Command.com'),
                    PChar('/C copy '+sFichiertxt+' lpt1'),nil,SW_HIDE);

sFichiertxt contient le chemin (facultatif), le nom et l'extension du fichier.

Sybille.

[Modération]
Merci d'utiliser les balises code, Laurent Dardenne
[/Modération]

[lil_jam63]

Salut, essaye ceci (aucune garantie):

Code :

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

1
2
 
ShellExecute(0,'printto',PChar(tonDocument),'\\LPT1',nil,SW_HIDE) ;