COMPOSANT DE COMMUNICATION LECTEUR CB OU CHÉQUE

Commentaire de f0xi le 02/10/2007 16:16:12 administrateur CS

const
  _HexChr : array[$0..$F] of char = '0123456789ABCDEF';

function DecToHex(const Value: integer): string;
var pR : PChar;
    N  : integer;
    B  : byte;
begin
  SetLength(result, 8);
  pR := PChar(Result);
  for N := 3 downto 0 do
  begin
    B := byte(Value shr (N shl 3));
    pR[0] := _HexChr[B shr 4];
    pR[1] := _HexChr[B and $f];
    inc(Pr, 2);
  end;
end;


ça serat deja plus rapide, j'ai pas eu le courage de tout regarder ...
mais ça semble manquer d'optimisation, de correction etc...

Commentaire de f0xi le 04/10/2007 14:00:44 administrateur CS

la version universelle de cette fonction n'est pas trés differente et a peine moins performante qu'une version dédié, puisque sur la version dediée on ajoute des instruction pour la selection de l'octet a lire :
B := byte(Value shr (N shl 3));
alors que sur la version universelle on a juste quelques instruction pour incrementer et decrementer le pointeur sur le buffer en entrée. :)

voici la version universelle :
const
  _HexChr : array[$0..$F] of char = '0123456789ABCDEF';

function AllToHex(const Buffer; const BufferLen: integer): string;
var pR : PChar;
    pB : ^byte;
    N  : integer;
begin
  SetLength(result, BufferLen shl 1);
  pR := PChar(Result);
  pB := @Buffer;
  inc(pB, BufferLen-1); // et oui faut lire a l'envers sinon c'est inversé :)
  for N := 0 to BufferLen-1 do
  begin
    pR[0] := _HexChr[pB^ shr 4];
    pR[1] := _HexChr[pB^ and $f];
    inc(Pr, 2);
    dec(pB); // d'ou la decrementation au lieu de l'incrementation sont mechant les ^byte
  end;
end;

Commentaire de pinzolo le 12/10/2007 10:24:41

Bonjour à tous
J'ai un probléme car je cherche à faire communiquer mon TPE avec un protocole de carte bancaire notamment (la norme CB2A) est ce que kelkun pourra m'aider.
Bien evidement en lisant la source sur le protocole Concert j'ai trouvé celle ci superbe
Mais néanmoins moi j'ai pas une caisse enregistreuse.
Cordialement

Commentaire de pinzolo le 12/10/2007 12:27:07

Je n'ai vrament pas une doc qui explique son mode de fonctionnement , ce ke je sais kil est propriétaire. "Le protocole CB2A est un protocole conforme aux spécifications EMV et permet d'acheminer vers l'émetteur les données requises pour le traitement des transactions effectuées par des cartes à puce".
Je vais t'envoyer une doc sur les serveurs de TPE
Sincèrement j'ai pas une doc sur ce protocole (sauf sur la norme ISO 8583 pr les transactions de la monétique)

Commentaire de Oniria le 13/10/2007 09:40:10

Je viens de faire quelque recherche et si j'ai bien compris, le protocole CB2A est le protocole entre le TPE et le serveur de TPE qui se trouve ........dans la banque. Ce que tu essayes de faire ne dois pas être autorisé il me semble. Et je pense que tu auras du mal à trouver la norme. La norme que j'ai utilisée pour communiquer avec le TPE se trouve entre la caisse enregistreuse et le TPE, le client de CB n'est en aucun cas piraté car c'est le TPE qui fait la transaction.

Essayes de demander au fabricant de TPE s'il veulent te donner la norme.
Mais pour ma part, je ne suis pas interressé par le piratage des transaction entre le TPE et la banque. La seule chose que je recherche maintenant est le fonctionnement des TPE par liaison USB et ceux par liaison Ethernet, ils ne sont pas nombreux mais je pense que ça va changer.

Commentaire de Oniria le 15/10/2007 12:04:55

Bonjour,

Mais alors, que viens faire delphi la dedans. Delphi n'est pas Watcom C++. Mais bon, je programme également en C++. J'utilise Visual C++ pour ma part. Je peux t'aider mais à la condition que tu trouves la documentation du protocole.
C'est pour ca que tu devrais voir avec le constructeur de ton TPE s'ils veulent bien te donner le document ou l'endroit pour l'obtenir. Ainsi, tu aurras toutes les cartes en mains.

Commentaire de Oniria le 15/10/2007 12:53:17

En fait, la documentation du protocole est écrite en texte clair. Elle indique les commandes et les réponses attendu. Dans le cas du protocole Concert, la doc explique les temps de time out, le role de chaque octets des trames émise et recu, les demandes de communication, tout dans le détail. C'est ma deuxiéme adaptation de protocole que j'ai fait. La première concerne le KWP2000 (le protocole de diagnostique des calculateurs de voiture).

Ce type de documentation fait complétement abstraction du langage utilisé. D'ailleurs, il n'y a aucune partie de code. Il faut tout faire soit même. Je te souhaite bon courage et si besoin, je t'aiderais bien volontier.

Commentaire de Oniria le 13/04/2008 16:27:30

Bonjour,

La, je ne sais pas répondre car il a été développé sous delphi 7. Je ne sais pas s'il fonctionne sur d'autre version de delphi.

ERICVERNET : Pas la peine de m'envoyer un mail et 3 minutes après de me mettre un message privé. Je ne suis pas à vos ordres, je ne suis pas en permanence devant mon PC. Le simple commentaire aurait suffit.

Bon courage

Commentaire de fkerbourch le 14/11/2008 10:07:14

Bonjour,
J'avais un pb avec le composant TComPort version 2.64 lors de l'installation du paquet protocole.dpk, les arguments de la méthode TcomPort.write(...) ne correspondait pas.
J'ai récupérer sur SourceForge la version 4 de TComPort -> c'est pas bon non plus.
Apparemment il faut installer la version 3.1.
(téléchargeable à :
http://www.torry.net/pages.php?id=198  

fk

Commentaire de facdaar le 03/12/2008 14:06:36

Impossible de trouver la doc du protocole concert sur le net. Peux-tu m'envoyer les documents sur lesquels tu t'es appuyé ? Je souhaite faire un composant VB6...

Commentaire de walawa le 05/12/2008 23:02:58

Bonjour,

Je sais que c'est probablement hors sujet, mais quelqu'un peut il m'aider à obtenir le driver USB telium  (pour mon  tpe sagem) dont callistan a parlé et que je cherche désespérément depuis des mois ?

Merci et encore pardon pour la parenthèse !!!

Commentaire de walawa le 06/12/2008 10:08:37

Bonjour tout d'abord,

Holà du calme l'ami. C'est déjà fait depuis longtemps  mais callistan ne visite le site que très rarement.

Je veux juste un peu d'aide, mais si ce n'est pas possible voire mal venu de ma part, je passe mon chemin pas de problème !!!!

Commentaire de walawa le 08/12/2008 18:15:33

BONJOUR,

Primo quand on a le minimum d'éducation requise et de politesse on répond au salut d'autrui.
Secundo, je ne t'envoie pas de mails qui ne te concernent pas.
Tertio même ceux qui utilisent ton "composant" ne sont pas aidés, vraiment pas. (J'ai des noms)
Quarto, mais pour qui tu te prends mon petit gars ?!!!

P.S. Rappel orthographique: Au mot aura il n'y a qu'un "r".

Commentaire de walawa le 09/12/2008 11:48:05

Bonjour,

De rien, de rien, mon cher c'était vraiment de bon coeur (lol)!!!!

Tiens, gratuitement je te donne un autre cours. Il ne faut pas écrire:

"Pour finir, si tu n'ai pas content, tant pis car cela met totalement égal."

Mais:

"Pour finir, si tu n'ES pas content, tant pis car cela m'EST totalement égal."

Si tu veux, je te propose même de t'aider à rédiger tes messages pour qu'il soient compréhensibles pour tous.

P.S. En cas de bug sur tes codes, vérifie quand même l'orthographe, on ne sait jamais!!!

Commentaire de Oniria le 09/12/2008 13:19:10

Bonjour,

Pour les personnes qui viendrait sur ce topick, je tiens juste à préciser que je ne transmet pas les documentations concernant le protocole CONCERT car je ne sais pas si elles sont librement diffusable sur le net. Je les ai obtenues en contactant différents constructeurs de TPE qui me les ont fournies gratuitement.

Bon code à tous

Commentaire de adamis le 10/12/2008 08:22:06

Bonjour,
J'aimerai savoir à quoi sert le mode maitre et esclave dans tes sources ? Moi je n'ai besoin que du mode caisse et je ne sais pas s'il faut que j'implémente le mode esclave (est-ce que les 2 sont liés ?).

Merci et bravo pour tes sources.

Ben

Commentaire de adamis le 10/12/2008 16:50:43

Merci beaucoup pour ces infos !

J'avais une petite incertitude entre le mode caisse et le mode TPE, par rapport au mode maitre et esclave.

D'après ce que tu me dis, c'est à peu près identique.

@ bientôt

Commentaire de Oniria le 21/12/2008 19:50:02

Bonjour,
Lorsque j'ai demandé au contructeur SAGEM, il m'a certifié que tous les TPE étaient compatible avec cette norme. Sinon, as-tu la norme ? As tu bien configuré le port série ? D'après la norme :

"Le mode de transmission est du type asynchrone utilisé en "half duplex" à la vitesse de 1200 bauds sur deux fils sans signaux de contrôle. Les caractères, codés en ASCII, sont transmis sous forme de 10 bits :
. 1 bit de start,
. 7 bits de données,
. 1 bit de parité (parité paire),
. 1 bit de stop.
"
Sinon, avec le TPE que j'avais, je n'ai jamais eu besoin de le mettre dans un état particulier pour qu'il fonctionne.

Attention, tu parles de 1e octet, j'espére que tu n'as pas envoyé une trame compléte (plusieurs octets) car le protocole est :
1e étape : le maitre envoi ENQ
2e etape : l'esclave renvoi ACQ
3e étape : le maitre envoi le message
4e étape : l'esclave renvoi ACQ (s'il a compris)
5e étape : le maitre envoi EOT (pour dire qu'il a fini)

Jespére t'avoir aidé

Commentaire de Oniria le 22/12/2008 17:47:38

As tu essayer de lui envoyer après le ENQ, le message ? Moi, j'ai essayé sur un Moneyline S3000 (c'est pas récent) et je n'ai eu aucun problème de communication.

Commentaire de Oniria le 22/12/2008 20:15:15

Bonjour,

J'ai mis un ZIP avec le programme qui permet à ma suite de gestion de donner un ordre de paiement au TPE. Il est compilé avec Lazarus (il est gratuit). A l'intérieur, il y a l'executable que l'on peut lancer pour tester le TPE directement.
Le programme est disponible à l'adresse suivante : http://dl.free.fr/qhApX2bKC

Le programme est on ne peut plus simple : il faut régler les paramétres (on coche réponse si lorsque le paiement a été effectué, le TPE doit renvoyer un compte rendu; car la réponse n'est pas obligatoire). Puis cliquer sur le bouton paiement. Le programme se charge d'envoyer l'ordre au TPE, puis de mettre le résultat dans un fichier texte.

Si ca peut t'aider

Commentaire de callistan le 23/12/2008 09:24:28

bonjour adamis,
pour ce qui concerne ton terminal qui ne réagit pas. As tu essayé en USB? Je n'avais aucune réaction sur le port série. après avoir installé les drivers USB, tout a fonctionné correctement.

Commentaire de adamis le 24/12/2008 13:57:30

Merci pou votre aide, j'ai pu avancer pas mal. On m'a envoyé d'autres docs pour Sagem et en fait, il faut avoir la bonne version du Manager (ce que je ferai dans un 2ème temps).
Cependant, j'ai eu un Ingénico 5100 et là, le protocole concert réagit directement (série ou émulation usb d'ailleurs). Mais seulement en 1200Bauds.
Maintenant mon souci concerne la trame d'émission, elle est sur 29 octets dans tes sources. Cependant, comme j'ai besoin d'une demande d'autorisation à tous les appels, il faut que je passe une trame complète de 37 octets (je dois ajouter les octets optionnels DELAI et AUTO de 4 octets chacun).

Est-ce que tu as déjà testé ce fonctionnement ? J'ai l'impression que ça dépend des versions du protocole installées sur le TPE (moi j'utilise le protocole 6 d'après ce qui est indiqué sur l'Ingenico). Mais en tout cas, ça ne marche plus, si je ne passe pas la trame sur 29 octets, pas de réponse du TPE....

Commentaire de adamis le 26/12/2008 13:48:41

Merci Callistan, mais je n'ai aucun souci sur l'USB, ça fonctionne bien. Par contre, mon problème est pour faire une demande d'autoriation à la banque à chaque transaction.
Si tu as une idée Oniria, je suis preneur...

A bientôt et bonnes fêtes de fin d'année à tous !!

Commentaire de chtitfred le 11/05/2009 11:24:39

Bonjour,

J'aimerai savoir ou trouver de la documentation sur les specs du protocole concert que vous utiliser.

J'aimerai développer un code source similaire sous Java, utilisant RXTX.

Merci

Frédéric

Commentaire de fastflood le 14/07/2009 17:14:38

Bonjour,
Je développe une classe VB pour communiquer avec un TPE. Tout fonctionne bien, sauf que je n'arrive pas à abandonner une transaction (ex : on démarre une transaction CB par erreur et on veut annuler et remettre le TPE en mode d'attente). Je n'ai pas trouvé d'info sur cela ni dans la doc SAGEM ni dans la doc Ingenico.
Or dans ton code, j'ai vu une fonction TLecteurCB.Cancel qui semble implémenter cet abandon en envoyant EOT. Si je fais la même chose, le TPE répond ACK mais la transaction continue... Est-ce mon TPE (Ingenico 5100) qui ne gère pas l'abandon ou est-ce que j'ai mal compris l'utilité de ta fonction ?

Je précise que je n'ai pas Delphi donc ça m'est difficile de comprendre ton code dans les détails...
Merci pout ta réponse,
Olivier

Commentaire de fastflood le 14/07/2009 19:09:15

Merci pour ta réponse rapide et ta suggestion : j'ai essayé avec EOT, ENQ et tous les codes ASCII, et ce bon vieux Ingenico fait la sourde oreille !!
Mais je pense que cette phrase page 7 s'applique aux caractères inappropriés pendant la phase de transmission de données ("après ETX") : dans le cas d'abandon de transaction, ce serait plutôt "après EOT" car la communication est terminée et le TPE n'est ni maître ni esclave à cet instant.

Au moins si ça marchait sur ton TPE, ça veut dire que je trouverai sans doute une méthode !

Commentaire de fastflood le 15/07/2009 15:37:55

Merci chtitfred pour cette idée mais ça ne fonctionne pas non plus :
  - dans l'ordre ENQ, puis EOT : ACK et la transaction continue
  - dans l'ordre EOT, puis ENQ : pas d'ACK
Néanmoins je trouve ce comportement conforme au protocole : EOT signifiant que le maitre a fini de transmettre, le TPE n'a plus à réagir. EOT ne signifiant pas que la transaction est terminée (d'après le protocole), je pense qu'il doit y avoir une commande spécifique (mais secrète ;-).

Commentaire de fastflood le 15/07/2009 19:57:28

Merci Oniria pour ta suggestion : j'ai trouvé ton idée d'envoyer le caractère annulation très bonne, mais le TPE lui ne veut rien savoir :-(
J'ai essayé : ENQ puis CAN puis EOT, CAN tout seul, CAN puis ENQ, ...

Concernant la transmission, ça m'a paru aussi atypique mais le TPE et l'ordinateur s'échangent bien des messages de manière asynchrone : l'ordinateur pour demander au TPE une transaction (et espérons demander aussi de l'annuler !), le TPE pour signaler la fin de la transaction. Il n'y a pas de maintien de la communication pendant la transaction, ce qui explique que l'un comme l'autre puissent être maître ou esclave.

En tous cas, merci d'avoir publié ton composant : c'est l'occasion d'avoir un forum sur le sujet car les infos là dessus sont très rares : Ingenico m'a donné sa doc mais Sagem n'a même pas voulu ("trop compliqué, faites appel à un prestataire").

Commentaire de fastflood le 16/07/2009 14:31:13

Bonjour,
Oui j'ai compris ce que tu voulais dire : au sens habituel du client/serveur, c'est vrai que le TPE réagit comme un esclave. Au niveau du protocole, les termes ont un sens différents ce qui prête à confusion...
Au fil des tests, j'ai compris l'intérêt de cette façon d'échanger :
  - d'une part, tu peux couper la communication (débrancher le câble ou arrêter ton programme par exemple) le TPE continue son job. Et si ton programme revient d'ici là, il peut obtenir la réponse du TPE
  - d'autre part, si la communication devait être maintenue, cela voudrait dire que le programme devrait attendre la fin du traitement sur le TPE ce qui peut être génant en programmation monothread

Commentaire de fastflood le 17/07/2009 13:26:20

Oui j'ai envoyé un mail à la personne qui m'avait donné le protocole caisse chez Ingénico : pas de réponse pour l'instant.
J'ai aussi demandé à l'association Concert comment obtenir le protocole caisse officiel (peut être la version officielle est-elle plus complète ?) : coût 158 ¤HT le pdf ! Comme j'ai peur qu'il n'y ait pas la réponse à ma question, et qu'en plus le prix serait excessif juste pour avoir une commande, je n'ai pas donné suite...

Commentaire de chtitfred le 01/08/2009 20:28:41

Salut,


Ecoute, pour ma part j'ai pas très bien compris ce que tu souhaite faire. Tu veux réaliser un logiciel ? si OUI en quel langage ?

Ici, ce que nous faisons, c'est que nous n'utilisons aucun driver ou aucun logiciel, nous parlons directement au TPE à travers le port COM auqeul on se connecte en utilisant le protocole concert.

Peux-tu approfondir tes besoins ?

Amicalement,

Frédéric

Commentaire de tptpe le 02/08/2009 03:04:26

salut chtitfred,

  J'ai seulement le pdf de 9 pages concernant le protocole . Mais j'ai pas le protocole concert. C'est necessaire d'obtenir le protocole concert ou pas ?


  Merci,

Commentaire de tptpe le 04/08/2009 23:46:21

Bonjour,

J'ai reçu 2 ack du coté tpe, mais le monant(1,11euro) envoyé par le pc n'affiche pas dans le tpe, Pourriez vous m'aider un peu, merice d'avance.

Voici le morceau de code écrit en Visual Basic

Dim a(0) As Byte
a(0) = "&H05"
MSComm1.Output = a   ===>(1)envoie enq à tpe. (recu ACK, ok)

Dim s(0 To 28) As Byte
                s(0) = "&H02"
                s(1) = "&H30"
                s(2) = "&H31"
                s(3) = "&H37"
                s(4) = "&H30"
                s(5) = "&H30"
                s(6) = "&H30"
                s(7) = "&H30"
                s(8) = "&H30"
                s(9) = "&H31"
                s(10) = "&H31"
                s(11) = "&H31"
                s(12) = "&H31"
                s(13) = "&H39"
                s(14) = "&H37"
                s(15) = "&H38"
                s(16) = "&H20"
                s(17) = "&H20"
                s(18) = "&H20"
                s(19) = "&H20"
                s(20) = "&H20"
                s(21) = "&H20"
                s(23) = "&H20"
                s(24) = "&H20"
                s(25) = "&H20"
                s(26) = "&H20"
                s(27) = "&H03"
                s(28) = "&H32"

==>(2)envoie STX ---données --etx --lrc (recu ACK, ok)

==>(3)envoie EOT

Commentaire de doumworld le 02/11/2009 19:09:28

Bonjour,

Il est disponible ici : http://www.distrimed.biz/pi/drivers/sagem_xp3.zip

Commentaire de asoulard le 25/03/2010 19:11:02

j'ai oublié de communiquer mon @ email : asoulardprogi@gmail.com

merci d'avance à tous

Commentaire de ssc974 le 13/07/2010 14:01:11

Voici le code que j'ai ecrit, ce n'est pas du DELPHI mais je pourrais essayé d'adapter ce que d'autres on fait :

xMontantCB est un numérique(10,4) = 159.67

cSTX,cETX,cECR#,cMNT,cMODE,cTYPE,cDEV,cPRIV,cIND,cMSGTPE sont des chaînes=""
sCLecture est une chaîne=""

eLRC, eInd,eTailleCh sont des entiers=0

cSTX = Caract(2) //Start Of Text
cECR# = "01" //Code Caisse
cMNT = Complète(NumériqueVersChaîne(xMontantCB*100,"08d"),8)//Montant en centimes
cIND = "0" //Si le TPE renvoie le numéro de carte
cMODE = "1" //Mode de transaction
cTYPE = "0" //Type de transaction (Débit, Crédit, Annulation)
cDEV = "978" //Devise 978 pour EUR
cPRIV = Complète(cPRIV,10,"0") //Complément à vide
cETX = Caract(3) //End Of Text

cMSGTPE = cECR#+cMNT+cIND+cMODE+cTYPE+cDEV+cPRIV+cETX

eTailleCh= Taille(cMSGTPE)
POUR eInd=1 A eTailleCh
eLRC = OUExclusifBinaire(eLRC,Asc(cMSGTPE[[eInd]]))
FIN

SI sOuvre(pSerieTPE,2000,2000) ALORS
sFixeParamètre(pSerieTPE,1200,1,7,0)

sEcrit(pSerieTPE,Caract(5))
Multitâche(50)

SI sDansFileEntrée(pSerieTPE)>0 ALORS Trace("Lecture : "+sLit(pSerieTPE,sDansFileEntrée(pSerieTPE)))
Multitâche(20)

cMSGTPE = Caract(2)+cMSGTPE+Caract(eLRC)
sEcrit(pSerieTPE,cMSGTPE)
Multitâche(50)

SI sDansFileEntrée(pSerieTPE)>0 ALORS Trace("Lecture : "+sLit(pSerieTPE,sDansFileEntrée(pSerieTPE)))
Multitâche(20)

sEcrit(pSerieTPE,Caract(4))
Multitâche(50)


sFerme(pSerieTPE)
FIN

Commentaire de Oniria le 20/07/2010 19:01:37

Bonjour,

il faut pour cela 2 PC relié par port série car le programme paiement permet de communiquer avec un vrai TPE et simul_TPE permet de tester sont programmme de gestion si on n'a pas de TPE sous la main.

Cordialement

Commentaire de Oniria le 22/07/2010 13:58:12

Bonjour,

Je ne sais pas car il faut voir s'il existe un driver permettant de simuler le port RS232 par un cable usb et deux PC.
Sinon, il faut acheter deux cables interfaces USB-RS232 et les relier ensemble.

Cordialement

Commentaire de bibigne le 22/07/2010 17:18:12

Merci. J'ai un portable sans port série et un fixe avec. Avec un cable convertisseurr USB->RS232 + un cable null modem RS232, je devrais m'en tirer.