Impression sur port parallèle
Bonjour,
je cherche à envoyer juste une chaine de caractère sur une imprimante connectée au port LPT1. J'utilise ce code :
Code:
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; |
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.
A votre avis, que me manque-t-il ?
Merci de votre attention.
@++
Dany
