Communication avec le port COM (Afficheur Client)

Salut,

En fait avant d'écrire il faut configurer ton port Com (ce que tu fait en dos dans ton .BAT)
Essaie le code Pcsoft ci-dessous pour voir si tu arrive à ouvrir le port Com2 (il faut peut-être changer les paramètres selon ton afficheur)
Voir la doc :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

NumPort = sOuvre("COM2", 2000, 2000) // Ouverture de COM1
SI NumPort <> 0 ALORS
// Paramétrage Com2 : Taux 2400, Parité paire,
// 8 bits de données, 1 bit de stop
SI sFixeParamètre(NumPort, 2400, 1, 8, 0) ALORS // Paramétrage de COM2
// Suite traitement...
// Tu colle tes Secrit ....
SINON
Erreur("Erreur de configuration de COM2", ErreurInfo(errComplet))
FIN
sFerme(NumPort) // Fermeture de COM2
SINON
Erreur("Erreur d'ouverture de COM2", ErreurInfo(errComplet))
FIN

 

Si tu n'as pas de message d'erreur tu doit faire comme ci-dessous
Exemple :

// Le port COM2 est ouvert
NumPort = sOuvre("COM2", 2000, 2000) // Ouverture de COM2
SI NumPort <> 0 ALORS
sMessage est une chaîne = Caract(27)+Caract(115)+Caract(50)
// Envoi d'un message au buffer de sortie de COM2
sEcrit(NumPort, sMessage)
sMessage = Caract(12)
// Envoi d'un message au buffer de sortie de COM2
sEcrit(NumPort, sMessage)
sMessage = Caract(12)
// Envoi d'un message au buffer de sortie de COM2
sEcrit(NumPort, sMessage)
sMessage = Caract(27)+Caract(115)+Caract(50)+Caract(27)+Caract(81)+Caract(65)+(MNT*1000)+Caract(1)
// Envoi d'un message au buffer de sortie de COM2
sEcrit(NumPort, sMessage)
// Attendre la fin de l'écriture
BOUCLE
SI sDansFileSortie(2) = 0 ALORS SORTIR
FIN
Info("Fin de l'écriture")

FIN