Bonjour,
Je dois piloter un terminal Ingenico pour les réglements par carte bleue.
la doc qui m'a été fournie , conerne une programmation
de bas niveau série .
N'étant pas un spécialiste du protocole série ni des terminaux CB,est ce que quelqu'un pourrait me donner quelques renseignements ou un morceau de code qui pourrait me mettre sur la voie.

Merci d'avance.

JYM

Bonjour,

FLAM nous a fournit une classe disponible sur ce site pour la gestion de port série sous WinDev.

Téléchargement > ICI <

Bon dév.,

Totof

Merci Totof,
Mais je pensais utiliser les fonctions de gestion de ports
de Windev .
Concernant le terminal Ingenico,
est-ce que cela demande beaucoup de développement ?

Merci,

JYM

Désolé je ne connais pas ce type de terminal.

Bon dév.,

Totof

Essayer de vous procurer le protocole CONCER d'Ingenico et/ou de Sagem pour connaitre les trames de communication entre un PC et le terminal.
Ces protocoles sont à demander aux fabricants, les protocoles de confidentialité étant de vigueur dans ce "milieu".

voila une procedure qui permet d'envoyer la somme au terminal bancaire sagem ( fct tres bien)
le protocol etant standard cela doit marché pour l'ingenico
attention, il faut entrer dans le menu de l'appareil pour regle vitesse ....





PROCEDURE ProcDialogueCarte(ParamMontant)

ii,jj,LRC est un entier
Donnees est une chaîne
ACK,ENQ,STX,ETX sont des chaînes
Reponse sont des chaînes
MontantCentime est un réel=Arrondi( ParamMontant*100)

STX=Caract(2);ETX=Caract(3);ENQ=Caract(5);ACK=Caract(6)

// Si pas d'imprimante alors on retour
NumSerie est un entier=1 // doit etre modifiable
// Ferme le port serie
sFerme(NumSerie)

SI sOuvre(NumSerie, 2000, 2000) ALORS
// Paramétrage de COM1
sFixeParamètre(NumSerie, 9600, 0, 8, 1)
SINON
Erreur("Erreur d'ouverture du port série "+NumSerie+" pour l'e terminal bancaire")
RETOUR
FIN

// Vide le port Serie
SI sDansFileEntrée(NumSerie) > 0 ALORS
Reponse=sLit(NumSerie,sDansFileEntrée(NumSerie))
FIN

// Format le message
Donnees="01"+NumériqueVersChaîne(MontantCentime,"08d")+ETX

// Calcul LRC
LRC=0
POUR ii = 1 A Taille(Donnees)
LRC=OUExclusifBinaire (LRC,Asc(Donnees[[ii]]))
FIN
Donnees=STX+Donnees+Caract(LRC)

SI PAS sEcrit(NumSerie,ENQ) ALORS
Erreur("Impossible d'envoyer l'ENQ")
sFerme(NumSerie)
Ferme
FIN

SI PAS sEcrit(NumSerie,Donnees) ALORS
Erreur("Impossible d'envoyer les données au terminal")
sFerme(NumSerie)
Ferme
FIN

// Attend réponse
Multitâche(10)
SI sDansFileEntrée(NumSerie) > 0 ALORS
Reponse=sLit(NumSerie,sDansFileEntrée(NumSerie))
SI Position(Reponse,ACK)>0 ALORS
Resultat=Vrai
FIN
SINON
Resultat=Faux
FIN

sFerme(NumSerie)

j'ai oublier de m'identifier
cela est fait
fait bon usage de mon code !!

Merci beaucoup,
Cordialement,
JYM