Bonjour,

je cherche à envoyer juste une chaine de caractère sur une imprimante connectée au port LPT1. J'utilise ce code :

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;
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