IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

ENVOYER UN FICHER SUR LPTx sans les drivers


Sujet :

Langage Delphi

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2005
    Messages
    74
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 74
    Par défaut ENVOYER UN FICHER SUR LPTx sans les drivers
    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

  2. #2
    Membre Expert
    Avatar de e-ric
    Homme Profil pro
    Apprenti chat, bienfaiteur de tritons et autres bestioles
    Inscrit en
    Mars 2002
    Messages
    1 568
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Apprenti chat, bienfaiteur de tritons et autres bestioles

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 568
    Par défaut
    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."

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2005
    Messages
    74
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 74
    Par défaut
    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

  4. #4
    Membre Expert
    Avatar de e-ric
    Homme Profil pro
    Apprenti chat, bienfaiteur de tritons et autres bestioles
    Inscrit en
    Mars 2002
    Messages
    1 568
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Apprenti chat, bienfaiteur de tritons et autres bestioles

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 568
    Par défaut
    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."

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2005
    Messages
    74
    Détails du profil
    Informations personnelles :
    Âge : 60
    Localisation : France

    Informations forums :
    Inscription : Août 2005
    Messages : 74
    Par défaut
    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]

  6. #6
    Membre Expert
    Avatar de e-ric
    Homme Profil pro
    Apprenti chat, bienfaiteur de tritons et autres bestioles
    Inscrit en
    Mars 2002
    Messages
    1 568
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Apprenti chat, bienfaiteur de tritons et autres bestioles

    Informations forums :
    Inscription : Mars 2002
    Messages : 1 568
    Par défaut
    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."

  7. #7
    Membre averti
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    22
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2002
    Messages : 22
    Par défaut
    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]

  8. #8
    Membre chevronné
    Avatar de lil_jam63
    Profil pro
    Inscrit en
    Janvier 2004
    Messages
    447
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2004
    Messages : 447
    Par défaut
    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) ;

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 20/06/2014, 18h20
  2. [XL-2007] Somme sur colonne sans les "#N/A"
    Par Kimy_Ire dans le forum Excel
    Réponses: 2
    Dernier message: 08/10/2012, 13h31
  3. impression sur zebra (avec les drivers)
    Par waspy59 dans le forum VB.NET
    Réponses: 1
    Dernier message: 04/01/2008, 15h19
  4. EAccessViolation sur compilation sans les paquets
    Par hypomaniak dans le forum C++Builder
    Réponses: 2
    Dernier message: 07/06/2007, 11h05
  5. Chown par sudo sur fichiers sans les droits
    Par tilleul dans le forum Shell et commandes GNU
    Réponses: 1
    Dernier message: 13/06/2006, 14h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo