Code: Alles auswählen
; M-4650CR
; ------------
; 1200 Baud
; 7 Datenbit
; 2 Stopbit
; keine Parity
; DTR on
; RTS off
; Sendecodes:
; M - DMM sendet gespeicherte Daten
; C - DMM löscht alle Daten
; D - Displaydaten senden
; 1 2 3 4 5 6 7 8 9 10 11 12 13 14
; D C - 0 . 5 6 7 8 V CR
; 1-2 Messbereich
; 3 Vorzeichen
; 4-9 Zahlenwert
; 10-13 Maßeinheit
; 14 CR (ASCII 13)
XIncludeFile "RemoteSerialPort.pbi"
; Initialisieren
InitRemoteSerialPort()
; Zum Remote-Server verbinden
;Server = ConnectRemoteSerialPort("localhost")
Server = ConnectRemoteSerialPort("192.168.2.80")
Debug Server
; Port öffnen
Port = OpenRemoteSerialPort(Server, "COM1",1200,#PB_SerialPort_NoParity,7,2,#PB_SerialPort_NoHandshake,1024,1024)
Debug Port
; Sämtliche Befehle können nun ganz normal wie die SerialPort - Befehle mit dem Port handle genutzt werden
If Port
SetRemoteSerialPortStatus(Port,#PB_SerialPort_DTR,1)
SetRemoteSerialPortStatus(Port,#PB_SerialPort_RTS,0)
Delay(10)
D$="D"
If WriteRemoteSerialPortData(Port,@D$,1)
Debug "ComWrite"
EndIf
Delay(500)
NbDataToRead.l = AvailableRemoteSerialPortInput(Port)
Debug "NbDataToRead: " + Str(NbDataToRead)
If NbDataToRead > 0
MyBuffer.s = Space(NbDataToRead+100)
If ReadRemoteSerialPortData(Port,@MyBuffer,NbDataToRead)
If NbDataToRead = 14
Debug MyBuffer
EndIf
EndIf
EndIf
EndIf
; Port wieder schließen
CloseRemoteSerialPort(Port)
; DeInitialisieren
FreeRemoteSerialPort()
End
Hört man gerne- chris - hat geschrieben:Beim testen, bis jetzt keine Fehler gefunden.
läuft auf Vista 32bit und Vista 64bit.
