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
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
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
![]()
M E N S . A G I T A T . M O L E M
Debian 64bit, Lazarus + FPC -> n'oubliez pas de consulter les FAQ Delphi et Pascal ainsi que les cours et tutoriels Delphi et Pascal
"La théorie, c'est quand on sait tout, mais que rien ne marche. La pratique, c'est quand tout marche, mais qu'on ne sait pas pourquoi. En informatique, la théorie et la pratique sont réunies: rien ne marche et on ne sait pas pourquoi!".
Mais Emmanuel Kant disait aussi : "La théorie sans la pratique est inutile, la pratique sans la théorie est aveugle."
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:
Mes rien en se passe, c'est a dire que la fenetre de commande en ligne s'ouvre mais rien n'est envoye.
Code : Sélectionner tout - Visualiser dans une fenêtre à part ShellExecute(Application.Handle,'open',PChar(GetEnvironmentVariable('ComSpec')),'PRINT <Mon Fichier>:LPT1',NIL,SW_SHOW);
Peut etre y a t'il quelque chose d'inexacte dans cette ligne?
Aodrenn
as-tu testé ta commande manuellement, il y a peut-être un problème de droit.
e-ric
![]()
M E N S . A G I T A T . M O L E M
Debian 64bit, Lazarus + FPC -> n'oubliez pas de consulter les FAQ Delphi et Pascal ainsi que les cours et tutoriels Delphi et Pascal
"La théorie, c'est quand on sait tout, mais que rien ne marche. La pratique, c'est quand tout marche, mais qu'on ne sait pas pourquoi. En informatique, la théorie et la pratique sont réunies: rien ne marche et on ne sait pas pourquoi!".
Mais Emmanuel Kant disait aussi : "La théorie sans la pratique est inutile, la pratique sans la théorie est aveugle."
Oui j'ai teste la commande sous DOS
Dans mon precedent exemple, j'ai oublie: LE /d: avant LPT
Mais la fonctin ci dessus ne fonctionne pas
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)
Que veux tu dire par Droit ?
[Modération]
Merci d'utiliser les balises code, Laurent Dardenne
[/Modération]
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
![]()
M E N S . A G I T A T . M O L E M
Debian 64bit, Lazarus + FPC -> n'oubliez pas de consulter les FAQ Delphi et Pascal ainsi que les cours et tutoriels Delphi et Pascal
"La théorie, c'est quand on sait tout, mais que rien ne marche. La pratique, c'est quand tout marche, mais qu'on ne sait pas pourquoi. En informatique, la théorie et la pratique sont réunies: rien ne marche et on ne sait pas pourquoi!".
Mais Emmanuel Kant disait aussi : "La théorie sans la pratique est inutile, la pratique sans la théorie est aveugle."
Bonjour,
Essaie :
sFichiertxt contient le chemin (facultatif), le nom et l'extension du fichier.
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);
Sybille.
[Modération]
Merci d'utiliser les balises code, Laurent Dardenne
[/Modération]
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) ;
Partager