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 :

[usb] ecrire sur port usb de l'imprimante "createfile(pchar('usb007'),.."


Sujet :

Langage Delphi

  1. #1
    Teo
    Teo est déconnecté
    Membre régulier
    Profil pro
    Inscrit en
    Août 2002
    Messages
    110
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2002
    Messages : 110
    Points : 111
    Points
    111
    Par défaut [usb] ecrire sur port usb de l'imprimante "createfile(pchar('usb007'),.."
    Bonjour

    Je crois savoir que l'on peut ecrire directement sur le port usb-->Parallele d'une imprimante(// vielle imprimante matricielle).
    Il se trouve que quand je fais
    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
     
    Procedure Ecrire_Chaine_Dans_Port_Imprimante(Ch:String)
    Var
      Device, Driver, Port,Tab_Car: array[0..255] of Char;
      Hdl,DevMode: THandle;
      I,J,NbrCarEcrit:Integer;
      C:String; 
    Begin
      Printer.GetPrinter(Device, Driver, Port, DevMode);
      Hdl := CreateFile(port,GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
      If Hdl <> INVALID_HANDLE_VALUE
      Then Begin
        StrpCopy(Tab_Car,Ch);
        If WriteFile(Hdl,Tab_Car,Length(Tab_Car),NbrCarEcrit,Nil)
        Then Begin
         ....
    J'ai toujours Hdl = INVALID_HANDLE_VALUE ==> -1

    Port contient 'USB007' ===> C'est bien le port de USB où est branché le cable qui mene à l'imprimante

    Le port usb007, donne sur un cable usb->parallele.
    JE souhaite envoyer des infos directement sur l'imprimante afin de ne pas avoir de saut de page, a la fin de l'impression.

    C'est une imprimante matricielle Espon LX 800. Papier a picot(liste), et je dois y imprimer qlq lignes a des moment aleatoire.
    Une ligne, puis peut etre 1heure plus tard 2 autres lignes, puis peut etre qlq minutes apres encore une ligne.
    Avec une impression normale , des que "Printer.EnDoc" est appelée
    cela lance l'impression(normale), mais il y a un saut de page tiut de suite apres. Je ne veux pas du saut de page.

    Mes recherches sont infructueuses, je suis donc preneurs de tout

    Vista - Delphi 7 - impression que de texte.

    MErci d'avance

  2. #2
    Nouveau membre du Club
    Inscrit en
    Janvier 2007
    Messages
    71
    Détails du profil
    Informations forums :
    Inscription : Janvier 2007
    Messages : 71
    Points : 34
    Points
    34
    Par défaut
    achete toi un micoC avec protocole hid integré
    c'est dure a faire mais avec un peut d'effort tu va y'arriver

Discussions similaires

  1. Imprimante sur réseau et sur port USB
    Par alex_m94 dans le forum Périphériques
    Réponses: 2
    Dernier message: 15/05/2009, 16h59
  2. Probleme imprimante freebox sur port usb
    Par codefalse dans le forum Hardware
    Réponses: 10
    Dernier message: 16/01/2009, 11h17
  3. Envoyer une trame sur port USB
    Par Bocci dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 15/03/2007, 21h07
  4. Compatibilité clé usb 2.0 sur port usb 1.0 de mon portable?
    Par coubi64 dans le forum Périphériques
    Réponses: 2
    Dernier message: 22/10/2003, 18h57
  5. [TP]Impression sur port USB
    Par haypo dans le forum Turbo Pascal
    Réponses: 3
    Dernier message: 18/07/2003, 11h09

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