Discussion :

[SergioMaster]

Bonjour,

Voila la configuration de mon port Com

Baudrate : 19200
Data : 8
Parity : none
StopBit : 1
HandShake : DTR/DSR // soit hardware

si j'ai bien sur facilement pu mettre les propriétés du Tcomport

BaudRate = br19200
DataBits = btEight
Parity.Bits = prnone
StopBits = sbOneStopBit

je nage lamentablement pour la partie FlowControl
le pire c'est que si je passe par Comport1.ShowSetupDialog (ou il y a juste a indiquer Hardware) ça baigne (du moins en partie)

Questions subsidiaires
- Comment me dépatouiller avec l'unicode delphi et le 'j'accepte que le ANSI du port' ?
- Vaut-il mieux utiliser Comport.WriteStr ou Comport.WriteAsyncStr ?

Tout bout de code pour envoi vers une imprimante ticket/chéque (partie chèque plus exactement) sera bienvenu . J'ai déjà la solution via les drivers Windows de l'imprimante (EPSON TM H6000III pour les curieux),
mais (puriste ou 'nom d'oiseau') j'aimerais m’affranchir des drivers et envoyer directement les commandes ESC/POS

[ShaiLeTroll]

je nage lamentablement pour la partie FlowControl

Qu'appeles-tu FlowControl ?

J'ignore si tu en as la possibilité, j'ai vite fait développer un outil de débogage pour une collègue travaillant sur micro-proc 16bits, nous fabriquons des cartes électroniques, ma collègue s'occupe du soft intégré !
C'était un protocole type BSC (Binary Synchronous Communications) avec le coup classique des STX/ETX + LCR

Mon programme simule celui d'un partenaire du projet qui devrait utiliser nos cartes electroniques

Pour la réception, le TComDataPacket se prête parfaitement à cela, il s'occupe de la réception de trame entière délimité par STX \ ETX

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
      TComDataPacket *TmpComDataPacket = new TComDataPacket(FComPort);
      TmpComDataPacket->ComPort = FComPort;
      TmpComDataPacket->StartString = (char)02; // STX
      TmpComDataPacket->StopString = (char)0x0d; // ETX
      TmpComDataPacket->IncludeStrings = true;
      TmpComDataPacket->OnPacket = ComDataPacketEventHandler;

Chaque trame envoyée par mon programme et confirmer\infirmer par le destinataire par un ACK\NAK

En Unicode, l'event OnPacket est un TComStrEvent, donc une horreur justement sur l'utilisation Unicode !
En fait, à la lecture du code du TComPort, il faut uniquement prendre en compte l'octet de poids faible de l'unicode, du coup, si l'on gérait un binaire, il faut d'abord recopier 1 octet sur 2 de la chaine Unicode vers un RawByteString ou un PByte ... selon ses habitudes !

Si j'avais du utiliser TComport en XE2, je crois que j'aurais utiliser le OnRxBuf du type TRxBufEvent qui fourni un buffer non typé en gérant moi même les STX \ ETX !

- Vaut-il mieux utiliser Comport.WriteStr ou Comport.WriteAsyncStr ?

Pour l'émission, j'ai utiliser Write avec un buffer non typé !
Write utilise WriteAsync et gère l'attente
WriteStr utilise WriteStrAsync qui utilise WriteAsync, je te laisse apprécier l'horrible code de WriteStrAsync qui copie l'octet de poids faible de chaque caractère unicode vers une chaine Ansi !

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
17
18
function TCustomComPort.WriteStrAsync(var Str: string; var AsyncPtr: PAsync): Integer;
var sa : Ansistring; var i:integer;
begin
  if Length(Str) > 0 then
  begin
    setlength(sa,length(str));
    {$IFDEF Unicode}
    if length(sa)>0 then
    begin
      for i := 1 to length(str) do sa[i] := ansichar(byte(str[i]));
      move(sa[1],str[1],length(sa));
    end;
    {$ENDIF}
    Result := WriteAsync(Str[1], Length(Str), AsyncPtr)
  end
  else
    Result := 0;
end;

je pense qu'il faut banir WriteStrAsync et WriteStr au profit de Write\WriteAsync
Maintenant à toi devoir si préfère attendre que l'écriture soit faite avant d'envoyer la trame suivante !
Si tu prévois de mettre ton écriture dans un thread avec une système de FIFO gérant une liste de message à envoyer, utilise Write

- Comment me dépatouiller avec l'unicode delphi et le 'j'accepte que le ANSI du port' ?

Tu as ta réponse

[Nono40]

Voila la configuration de mon port Com

Est-ce que les signaux DST/DTR sont indispensables ?

Tout bout de code pour envoi vers une imprimante ticket/chéque (partie chèque plus exactement) sera bienvenu . J'ai déjà la solution via les drivers Windows de l'imprimante (EPSON TM H6000III pour les curieux),
mais (puriste ou 'nom d'oiseau') j'aimerais m’affranchir des drivers et envoyer directement les commandes ESC/POS

Amusant moi au contraire j'essaye de toujours utiliser le driver Windows quand il existe. Comme cela je prend un simple QR et je ne dépend plus de la com.

Enfin quand je communique avec un automate au contraire je me passe toujours des drivers pour attaquer les coms en direct. Comme quoi chacun à ses (mauvaises ?) habitudes.

[SergioMaster]

Est-ce que les signaux DST/DTR sont indispensables ?

Oui , c'est l'imprimante qui veux ça enfin telle qu'elle est configurée usine , (je vais quand même faire un tour du coté des switchs)

Amusant moi au contraire j'essaye de toujours utiliser le driver Windows quand il existe.

Le driver fourni par Epson fonctionne parfaitement si ce n'est que pour installer l'imprimante : il faut en installer 3

Qu'appeles-tu FlowControl ?

la propriété du TComport un peu complexe a mon avis voir image jointe (plus facile a faire , qu'une saisie de chaque élément

Depuis mon post 1 , j'ai fouillé dans le source pour comprendre ce qui changeait via le ShowsetupDialog . Une intervention 'Urgente' m'a empêché de continuer mes investigations (j'en était au code WriteAsyncStr justement) : ça sent le WE chargé

[SergioMaster]

Après bien des tâtonnements , j'ai plus ou moins réglé mon paramétrage
(avec le composant sur la form il me fallait toujours passer par le ShowsetupDialog , celui-ci même en cliquant sur le bouton Annuler semble faire quelque chose) en Créant mon TComport au runtime plus de soucis
Me reste encore a faire des calculs savants de position d'écriture de zone mais cela n'a rien a voir avec TComport .

Je mets donc avec juste un petit point noir : cette histoire de showsetupdialog pour un composant mis au design

Bonne fin de WE

PS . En fait j'ai utiliser WriteUnicodeString , plutôt que les autres Write,WriteStr WriteASync etc... (la plongée dans les sources a été fructueuse )