Serielle Schnittstelle unter Linux (PB4.2)
Verfasst: 19.09.2008 07:07
Hallo zusammen,
hat schon mal jemand die serielle Schnittstelle unter PB4.20 oder 4.30Beta zum laufen gebracht?
Ich ärgere mich jetzt den 2. Tag damit herum und komme keinen Schritt weiter.
Das lustige, benenne ich meine Schnittstelle bei OpenSerialPort als COM1 (unter Linux) dann bekomme ich als Rückgabewert, es sei alles OK. Bezeichne ich die Schnittstelle richtig, also z.B. /dev/ttyS0, dann wird nix initialisiert.
Außerdem scheit es unter Linux die Konstanten (z.B. #PB_SerialPort_NoParity) für die Seriellen Funktionen nicht zu geben.
Kenn jemand das Problem?
Wie bekomme ich das evtl. in den Griff
Dank und Gruß!
Mein Testcode:
If OpenSerialPort(0, "/dev/ttyS0", 57600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
WriteSerialPortString(0, "0")
; Warte auf Datensatz
While AvailableSerialPortInput(0) = 0
Delay(1000)
PrintN("Warte")
Wend
Delay(2000)
; Lese Datensatz und gib ihn aus
Text.s = Space(AvailableSerialPortInput(0))
ReadSerialPortData(0, @Text, AvailableSerialPortInput(0))
PrintN(Text )
CloseSerialPort(0)
Else
PrintN("ERROR - Couldn't open Port" )
EndIf
hat schon mal jemand die serielle Schnittstelle unter PB4.20 oder 4.30Beta zum laufen gebracht?
Ich ärgere mich jetzt den 2. Tag damit herum und komme keinen Schritt weiter.
Das lustige, benenne ich meine Schnittstelle bei OpenSerialPort als COM1 (unter Linux) dann bekomme ich als Rückgabewert, es sei alles OK. Bezeichne ich die Schnittstelle richtig, also z.B. /dev/ttyS0, dann wird nix initialisiert.
Außerdem scheit es unter Linux die Konstanten (z.B. #PB_SerialPort_NoParity) für die Seriellen Funktionen nicht zu geben.
Kenn jemand das Problem?
Wie bekomme ich das evtl. in den Griff
Dank und Gruß!
Mein Testcode:
If OpenSerialPort(0, "/dev/ttyS0", 57600, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
WriteSerialPortString(0, "0")
; Warte auf Datensatz
While AvailableSerialPortInput(0) = 0
Delay(1000)
PrintN("Warte")
Wend
Delay(2000)
; Lese Datensatz und gib ihn aus
Text.s = Space(AvailableSerialPortInput(0))
ReadSerialPortData(0, @Text, AvailableSerialPortInput(0))
PrintN(Text )
CloseSerialPort(0)
Else
PrintN("ERROR - Couldn't open Port" )
EndIf