WriteSerialPortData ne fonctionne pas OS X 10.7 PB 4.61
Publié : mar. 28/août/2012 17:48
Bonjour à tous.
Ce code fonctionne parfaitement sous Window et sous Linux.
Un autre logiciel arrive çà envoyer des octets par le même port série.
Il y a donc un problème avec PB4.61.
Avez-vous une idée, ou est-ce un bug ?
De l'autre coté du câble, il y a un appareil qui ne fait que renvoyer ce qu'il vient de recevoir (pour test).
Cordialement
Ce code fonctionne parfaitement sous Window et sous Linux.
Un autre logiciel arrive çà envoyer des octets par le même port série.
Il y a donc un problème avec PB4.61.
Avez-vous une idée, ou est-ce un bug ?
De l'autre coté du câble, il y a un appareil qui ne fait que renvoyer ce qu'il vient de recevoir (pour test).
Cordialement
Code : Tout sélectionner
CompilerIf #PB_Compiler_OS = #PB_OS_Windows
Port$ = "COM6"
CompilerElse
Port$ = "/dev/ttyS0"
CompilerEndIf
If OpenSerialPort(0, Port$, 9600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
MessageRequester("Information", "SerialPort opened with success")
buffet = 1
WriteSerialPortData(0, @Buffet, 1)
While buffet < 255
If AvailableSerialPortInput(0)
ReadSerialPortData(0, @Buffer, 1)
buffet = Buffer + 1
WriteSerialPortData(0, @Buffet, 1)
EndIf
Wend
CloseSerialPort(0)
MessageRequester("Information","Transmission RX TX OK",#PB_MessageRequester_Ok)
End
Else
MessageRequester("Error", "Can't open the serial port: "+Port$)
EndIf