Bonjour,
je cherche à envoyer juste une chaine de caractère sur une imprimante connectée au port LPT1. J'utilise ce code :
Mais malheureusement il est sans effet, il ne m'affiche même pas le message d'erreur. L'imprimante est une epson stylus color 1160, elle est bien connectée et j'arrive à imprimer une page de test sans problème.
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 procedure TfrmMain.btnOkClick(Sender: TObject); var ParrallelePort : TextFile; begin AssignFile( ParrallelePort, 'LPT1'); Rewrite( ParrallelePort); if IOResult=0 then Write( ParrallelePort, 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX') else ShowMessage( 'Impossible d''imprimer'); CloseFile( ParrallelePort); end;
A votre avis, que me manque-t-il ?
Merci de votre attention.
@++
Dany
Partager