Beiträge von cuboro

#include-once
#include <Array.au3>

#NoAutoIt3Execute

#include "RS232CommAPI.au3"
#include "CommInterface.au3"
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7

;Funktion für den Butten der COMPORT-Verbindung
Func _Connect(ByRef $comPort, ByRef $connectFlg, $RF_Flg, $inicmdTable, $iPort)
local $pflg = False
local $tflg = False
local $aCmdPar[4]

If GUICtrlRead($CMConnect) = "Connect" Then
;Local $iPort = GUICtrlRead($ComPort)
$iPort = StringTrimLeft ($iPort, 3)

Local $sMode =_CommAPI_CreateModeString(Int($iPort), 19200, "0", 8, 0, "0", "0", "0", "0", "0", "0")
MsgBox(0, "Smode", $sMode)

$comPort = _CommAPI_OpenPort($sMode)
If $comPort = 0 Then
_GUICtrlEdit_AppendText($StatusEdit, "don't open comport"&@CRLF)

Else
_CommAPI_ClearCommError($comPort)
If @error Then Return SetError(@error, @ScriptLineNumber)
_CommAPI_PurgeComm($comPort)
If @error Then Return SetError(@error, @ScriptLineNumber)

_Sender(3, 1, $comPort) ;den Befehl zu MatchingCube zu senden
_Receive($pflg, $tflg, $aCmdPar, $comPort)
;_ArrayDisplay($aCmdPar)
If $pflg Then
If $aCmdPar[0] = 3 Then
If $aCmdPar[1] = $SERIAL_PORT_AKNOWLEDGE Then
GUICtrlSetData($CMConnect, "Disconnect")
GUICtrlSetState($comPort, $GUI_DISABLE)
_Initial($cmdTabel, $comPort)
$connectFlg = True

EndIf
Else

_GUICtrlEdit_AppendText($StatusEdit, "no matched SR_Commandos"&@CRLF)
;_GUICtrlStatusBar_SetText($StatusBar, "The send- and receive message aren't matching!")
EndIf

ElseIf $tflg And Not $pflg Then

_GUICtrlEdit_AppendText($StatusEdit, "COM-Connect timeout!"&@CRLF)
;_GUICtrlStatusBar_SetText($StatusBar, "Timeout! No feedback from generator")
EndIf

EndIf
ElseIf GUICtrlRead($CMConnect) = "Disconnect" Then
If $RF_Flg Then

_GUICtrlEdit_AppendText($StatusEdit, "deactivate RF-OFF"&@CRLF)
;_GUICtrlStatusBar_SetText($StatusBar, "Please deactivate with RF-OFF")
Else

If _CommAPI_ClosePort($comPort) Then
GUICtrlSetData($CMConnect, "Connect")
;GUICtrlSetState($comPort, $GUI_ENABLE)
$comPort = 0
$connectFlg = False

Else
_GUICtrlEdit_AppendText($StatusEdit, "dosen't close the comport"&@CRLF)
EndIf
EndIf
EndIf

EndFunc

Ich habe $comPort = _CommAPI_OpenCOMPort (10, 19200, 0, 8, 0) geschrieben. Dann habe heute noch mit Oszilloskop den COM10 analysiert und entdeckt den Handshake-Kontrolle ist aktiviert, d.h. wenn ich CTS-Leitung eine hohen Spannung +8V, dann funktioniert die Kommunikation. Dannach habe ich _CommAPI_OpenPort($sMode) benutzt und wollte $tagDCB komplett initialisieren, um fOutputCts auszuschalten. Aber es klappt nicht.

Local $sMode =_CommAPI_CreateModeString(10, 19200, "0", 8, 0, "0", "0", "0", "0", "0", "0")
MsgBox(0, "Smode", $sMode)

$comPort = _CommAPI_OpenPort($sMode)

In der _CommAPI_OpenPort() gibt es _CommAPI_BuildCommDCB() Funktion, um den DCB zu initialiseieren. Ich habe in der Funktion eine Zeile hingefügt, damit ich anschauen kann, ob DCB wirklich eingestellt ist wie ich wünsche, aber ich habe ungültigen Daten(Baurate = 0, Bytesize = 7....). . Weiß Du, wie man DCB mit Autoit einstellen kann? (DLLCALL("Kern32.dll, ..."BuildCommDCB"...))

Func _CommAPI_OpenPort(Const $sMode)
Local $sFileName = "\\.\" & StringLeft($sMode, StringInStr($sMode, ":") - 1)
Local $hFile = _WinAPI_CreateFile($sFileName, 3, 6)
If @error Then Return SetError(@error, @ScriptLineNumber, 0)
If $hFile <= 0 Then Return SetError(-1, @ScriptLineNumber, 0)

Local $tDCB = DllStructCreate($tagDCB)
Local $tCommTimeouts = DllStructCreate($tagCOMMTIMEOUTS)

_CommAPI_BuildCommDCB($sMode, $tDCB)
MsgBox(0, "DCB", CommAPI_CommStateToString($tDCB)
If @error Then Return SetError(@error, @extended, 0)

_CommAPI_SetCommTimeoutsElement($tCommTimeouts, "ReadTotalTimeoutMultiplier", 1)
If @error Then Return SetError(@error, @extended, 0)

_CommAPI_SetCommTimeoutsElement($tCommTimeouts, "WriteTotalTimeoutMultiplier", 1)
If @error Then Return SetError(@error, @extended, 0)

If Not _CommAPI_SetCommState($hFile, $tDCB) Then Return SetError(@error, @extended, 0)
If Not _CommAPI_SetCommTimeouts($hFile, $tCommTimeouts) Then Return SetError(@error, @extended, 0)

Return $hFile
EndFunc ;==>_CommAPI_OpenPort

@Raupi, vielen Dank für Ihre Antworten und Ihre nette Erklärung. Ich habe die zwei Fehler korrigiert, trotzdem geht es nicht weiter.

Hallo zusammen,

ich habe die Funktion _CommAPI_OpenCOMPort() (aus https://www.autoitscript.com/wiki/CommAPI) benutzt, um den RS232-Anschluss zu öffnen und die Daten zu senden/empfangen. Mein Problem ist: Im PCs gibt es keinen physikalischen RS232-Anschluss(COM1), ich muss einen RS232-USB-Adapter benutzen. Dann bekommt der RS232-USB-Adapter einen COM10 oder COM12 (größer als COM9) zugewiesen. Dann kann ich mit _CommAPI_OpenCOMPort den COM10 nicht öffnen(die Handle = 0), aber mit _WINAPI_GetLastError() bekomme ich auch keine Error(auch = 0). Aber Ich kann mit HTerm.exe den COM10 schon öffnen und kommunizieren. Es war auch ab und zu passiert, dass ich den COM10 mit meinem Programm wieder geöffnet habe, nur nachdem ich mit HTerm.exe einmal den COM10 verbunden und dann schlossen habe.

Warum ist es so? Ich bin Anfänger für Autoit und bitte um Eure Hilfe!

#include "CommInterface.au3"
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
$comPort = _CommAPI_OpenCOMPort ("COM10", "19200", "0", "8", "1")
If $comPort = 0 Then
_GUICtrlEdit_AppendText($StatusEdit, "don't open comport"&@CRLF)
Else
_CommAPI_ClearCommError($comPort)
If @error Then Return SetError(@error, @ScriptLineNumber)
_CommAPI_PurgeComm($comPort)
If @error Then Return SetError(@error, @ScriptLineNumber)
Endif