Aaaalso 
Mit der UDF, welche ich gepostet habe, klappt nun das serielle senden und empfangen "ohne" Windows fremde Dll.
Auch das RTS setzen kann ich.
Aber ich möchte noch folgendes:
- DCD Status abfragen
- RTS Status setzen - unabhängig von der Portinitialisierung (Klar, der Port muss mal geöffnet und initialisiert sein. Aber ich möchte ohne den Port zu schliessen das RTS zurücksetzen können!)
Danke für Hilfe! Ich poste anschliessend die fertige UDF für alle!
Das war immer wieder ein Thema!
Hallo veronesi,
ich habe keine Ahnung von serieller Kommunikation, aber wenn ich das richtig verstehe, könnte das RTS vielleicht so oder so ähnlich funktionieren (ungetestet):
;====================================================================================
; Function Name: _SetCOMRts($commPort, $RTS)
; Description: Sets RTS flow control
; Parameters: $CommPort - value returned by _OpenComm
; $RTS : 0 = disable, 1 = enable, 2 = handshake, 3 = toggle
; Returns: on success, returns 1
; on failure returns -1 and sets @error to 1
; Note:
;====================================================================================
Func _SetCOMRTS($CommPort, $RTS)
; Die globale Variable $dcb_Struct wurde in _OpenCOMPort() aufgebaut und initialisiert
; http://msdn.microsoft.com/en-us/library/…28VS.85%29.aspx
Local Const $RTS_CONTROL_DISABLE = 0x0000
Local Const $RTS_CONTROL_ENABLE = 0x1000
Local Const $RTS_CONTROL_HANDSHAKE = 0x2000
Local Const $RTS_CONTROL_TOGGLE = 0x3000
Local $CommCtrl
If Number($CommPort) < 1 Then Return SetError(1, 1, -1)
$CommState = DllCall($CommDll, "BOOL", "GetCommState", "HWND", $CommPort, "Ptr", DllStructGetPtr($dcb_Struct))
If @error Or ($CommState[0] = 0) Then Return SetError(1, 1, -1)
$CommCtrl = DllStructGetData($dcb_Struct, "fBitfields")
$CommCtrl = BitAND($CommCtrl, 0xFFFCFFFF) ; RTS-Bits löschen
Switch $RTS
Case 0
Case 1
$CommCtrl = BitOR($CommCtrl, $RTS_CONTROL_ENABLE)
Case 2
$CommCtrl = BitOR($CommCtrl, $RTS_CONTROL_HANDSHAKE)
Case 3
$CommCtrl = BitOR($CommCtrl, $RTS_CONTROL_TOGGLE)
Case Else
Return SetError(1, 1, -1)
EndSwitch
DllStructSetData($dcb_Struct, "fBitfields", Number($CommCtrl))
$CommState = DllCall($CommDll, "BOOL", "SetCommState", "HWND", $CommPort, "Ptr", DllStructGetPtr($dcb_Struct))
If @error Or ($CommState[0] = 0) Then Return SetError(1, 1, -1)
Return True
EndFunc
Aber was zum Teufel ist ein DCD-Status?
DTR wären dann die Bits 5 und 6 (von 1 an gezählt) in "fBitfields". Ich schaue mir das später noch mal an.
Bis dann!
Im Dokument von Greenhorn habe ich noch etwas wichtiges gefunden.
Ich suche gar nicht das DTR oder DCR! Es war das DCD bzw. M$ scheint es DSR zu nennen (Bei Kollegen in einer Delphi Komponente hiess es aber DCD....)
Also das RTS ist schon mal gut. Leider kann man es nur einmal setzen und nicht mehr zurücksetzen... Aber immerhin.
Und das DCD sollte man über GetCommModemStatus erfragen können. Aber leider konnte ich noch nicht herausfinden, wie das geht!
Hallo, Danke für dein script, aber ich bekomme egal was ich mache die Fehlermeldung "Der Sende... konnte nicht geöffnet werden
Woran kann das liegen?
Und das DCD sollte man über GetCommModemStatus erfragen können. Aber leider konnte ich noch nicht herausfinden, wie das geht!
Hi, wie sieht denn dein Skript derzeit aus ?
Remarks
The GetCommModemStatus function is useful when you are using the WaitCommEvent function to monitor the CTS, RLSD, DSR, or ring indicator signals. To detect when these signals change state, use WaitCommEvent and then use GetCommModemStatus to determine the state after a change occurs.
The function fails if the hardware does not support the control-register values.
Remarks
The WaitCommEvent function monitors a set of events for a specified communications resource. To set and query the current event mask of a communications resource, use the SetCommMask and GetCommMask functions.
If the overlapped operation cannot be completed immediately, the function returns FALSE and the GetLastError function returns ERROR_IO_PENDING, indicating that the operation is executing in the background. When this happens, the system sets the hEvent member of the OVERLAPPED structure to the not-signaled state before WaitCommEvent returns, and then it sets it to the signaled state when one of the specified events or an error occurs. The calling process can use one of the wait functions to determine the event object's state and then use the GetOverlappedResult function to determine the results of the WaitCommEvent operation. GetOverlappedResult reports the success or failure of the operation, and the variable pointed to by the lpEvtMask parameter is set to indicate the event that occurred.
If a process attempts to change the device handle's event mask by using the SetCommMask function while an overlapped WaitCommEvent operation is in progress, WaitCommEvent returns immediately. The variable pointed to by the lpEvtMask parameter is set to zero.
Beispiel: Monitoring Communications Events
Gruß
Greenhorn
Moin veronesi,
zu spät, Du hast es ja jetzt selbst hingekriegt. Was ich eigentlich noch sagen wollte:
Müsste anstelle von BitAND($CommCtrl, 0xFFFCFFFF) nicht BitAND($CommCtrl, 0xFFF3FFFF) heissen?
Eher nicht, es sollte aber wohl BitAND($CommCtrl, 0xFFFFCFFF) sein.
Viel Erfolg weiterhin!
@ veronesi, ja das habe ich schon mitbekommen das da was mit dem stopbit ist, das läuft mitlerweile!
aber senden tut der was er will
ich habe nun mal in den quellcode für VB6 geschaut da machen Sie überall chr() und senden das dann, aber irgendwie sendet er mit den Chr(0) nicht als 00 sondern als 30
@ veronesi
Ja das hab ich auch schon geschaut, wenn ich Chr(48) mache sendet er mir ein 30, ich braüchte aber eine 00
ich werd hier bald zum hirschen.....:-)
keine ahnung wo er mir die 3 da her holt
Habe ich mi6lerweile anders gelöst, da ich die flgende Zeichenfolge irgendwie nicht hinbekommen habe:
03 01 00 02
Er schrieb mir mimmer
03 01 30 02
Nun habe ich nur noch ein Problem,
ich müsste an den Comport einen Taster anschließen, wenn der betätigt wird muss weiter gemacht werden im Programm
Die sachen mit den Befehlen senden an den Comport habe ich alles hinbekommen
