Modbus TCP - Wie die abgefragten Integer-Register-Werte "zusammenbauen" in String, Long, Double, etc...

BitBrösel · 25. Oktober 2022, 00:42

So, @dive26 ich habe erste Informationen sammeln können, aber habe noch keinen 100% Überblick. Tu mich grad auch schwer weil schon spät.

Was ich jetzt schon dazu sagen kann:
Die EasyModbusTCP ist für diesen Zweck unbrauchbar, weil die nur die Funktionscodes 1, 2, 3, 4, 5, 6, 15, 16 und 23 unterstützt sind, um einen Upload zu starten wird der Funktionscode 0x41, was in Dezimal 65 ist verwendet. Eigene Funktionscodes ist nichts implementiert.

Die WSMBT könnte möglichweise auch unbrauchbar sein, da bin ich aber noch nicht ganz sicher, aber glaube mit 97.5% Wahrscheinlichkeit unbrauchbar. Die WSMBT hat zwar Funktionen für UserDefined-Zeugs, wo man auch einen eigenen Funktionscode angeben kann, aber nur um in UserDefined Coils und Register zu schreiben. Daher mein starker Zweifel.

Was ich vermute:
Mann muss selbst das Protokoll studieren, selbst die Anfrage machen und die weitere Kommunikation, so wie das auf dem Bild der Huawei Doku Seite 91 Figure 6-6 File uploading process dargestellt ist.

Morgen Nachmittag schaue ich weiter, gucke mir dann mal das hier genauer an:
modbus.org/docs/Modbus_Application_Protocol_V1_1b.pdf

Sollte das Protokoll wie manche im Netz sagen einfach gestrickt sein, stehen die Chancen gut das gebacken zu bekommen, selbst wenn die Bibliotheken unbrauchbar sind für diesen Zweck.

Eine Frage habe ich noch. Dieser Inverter ist sicherlich ein Slave oder?

dive26 · 25. Oktober 2022, 09:01

@BitBrösel

Eine Frage habe ich noch. Dieser Inverter ist sicherlich ein Slave oder?

Die Konfiguration sieht so aus:
Auf dem Hautpwechselrichter (Modbus ID 2) steckt ein WLAN Dongle (Modbus ID 0) und der zweite Wechselrichter hat (Modbus ID 3).
Mein Rechner ist Master und die Zielgeräte sind Slave.
Die 34 Optimierer sind auf Wechselrichter zwei (Modbus ID 3) installiert.

Morgen Nachmittag schaue ich weiter, gucke mir dann mal das hier genauer an:modbus.org/docs/Modbus_Application_Protocol_V1_1b.pdfSollte das Protokoll wie manche im Netz sagen einfach gestrickt sein, stehen die Chancen gut das gebacken zu bekommen, selbst wenn die Bibliotheken unbrauchbar sind für diesen Zweck.

Das wäre ja toll wenn das wirklich irgendwie hinzubekommen wäre.

Habe gestern (heute) noch lange gegoogelt. Auch Huawei hält sich bei diesem Thema bedeckt und verweist nur auf die Beschreibung. Auch im Huawei Forum haben andere keine Antwort auf die Frage nach einem Beispielquellcode (in irgend einer Sprache) erhalten.

dive26 · 25. Oktober 2022, 11:29

@BitBrösel

Habe da etwas gefunden für Funktionscode 65. Das würde sich mit Kapitel 6.3.7.1.1 der Schnittstellenbeschreibung decken.

docs.osisoft.com/bundle/pi-int…age/function-code-65.html

Some PLC's are able to understand function code 65,
which is a non-standard Modbus function code. One type of PLC that
understands function code 65 is called an HTMUX box. If such a PLC
receives function code 65, it knows that a 4-byte floating point should
be returned.

Each register that can be read with function code 65
contains 4 bytes of information. Standard registers can hold only two
bytes of information. Function code 65 is similar to data type 4 above,
except that there is no need to map a single register to two different
registers. Each register can already hold 4 bytes.

Wenn ich das richtig verstanden habe, sendet man an eine bestimmte Registeradresse diese Daten (mit WriteRegister ...).
Dann wartet man eine bestimmte Zeit ab (2000 ms) und liest den selben Register wieder aus und erhält dann die Daten?

Hier habe ich auch noch etwas gefunden was vielleicht helfen könnte: github.com/Emilv2/huawei_solar
Leider kenne ich mich mit Phyton nicht so aus.

dive26 · 27. Oktober 2022, 09:25

@BitBrösel

Ich habe etwas interessantes gefunden um das Rad nicht zweimal erfinden zu müssen.
Damit kann ich schon normale "HoldingRegister" auslesen.

Es läuft mit Sockets und nur mit .NET Boardmitteln.
Vielleicht kann man das als Basis für die Funktion 65 (0x41) verwenden.
Ich bin leider zu wenig schlau um das hinzubekommen ;-).

BitBrösel · 27. Oktober 2022, 11:32

Ich habe auch noch was, wo man mal gucken kann. das fehlte mir bei dem Src auf Github.
gitlab.com/Emilv2/huawei-solar/-/tree/master

Ich kann erst am Wochenende weiter schauen. Aber etwas was mich irritiert. Warum muss man was Uploaden? Kann es nicht sein , das die Daten doch schon irgendwo in einem Register sind? Ich hatte irgendwo auch etwas mit Register über 30000 gesehen, finde es gerade nicht wieder. Ich habe den Verdacht, das man damit nur ein Update auslöst, ab diesem wird dann alle 5 Minuten ein Update gemacht, kommt mir wenn das nicht so ist, wie ein Fehldesign vor. Gibt ja immerhin UShort.MaxValue Register, genug für Hunderte Optimizer.

Schau mal ob du in dem Code bei Gitlab Register-Indizes dazu findest.

dive26 · 27. Oktober 2022, 16:12

@BitBrösel

Vielen Dank für Deinen Einsatz.

Ich habe das so verstanden (kann mich aber auch irren).

1. Es wird ein Befehl 65 (0x41) mit 4 Bytes gesendet.
2. Eine definierte Zeitspanne warten (2 Sekunden laut Huawei)
3. Response auslesen

Und das irgendwie ein paar mal hin und her.
Eine Echte "Datei" wird zwar nicht gesendet, aber ein paar Daten über den Socket (das nennen die Dann fileupload).

Ich habe auch schon kontakt mit dem Huawei-Support aufgenommen.
Auch der Deutschland-Huawei-Vertreter ist schon mit mir in Kontakt.
Vielleicht bekommen wir einen Sourcecode in irgend einer Sprache präsentiert, den wir dann in VB.NET nachbauen können.

Die Oberfläche und die interne Verarbeitungslogik ist so gut wie fertig (noch Optimierer-Dummy-Daten drin, bis Echtdaten vorliegen) ;-).

BitBrösel · 27. Oktober 2022, 16:43

Ah ja, also das ist dann schon mal etwas klarer. Denn ich war am Rätseln, was und weshalb man da etwas hochzuladen hat, wenn da eh was anderes kommt. Ich werde am Wochenende mal selbst eine Implementation von Modbus anlegen, das ist durchaus etwas was ich auch für RaspBerry PIs, Arduinos oder STM32 nutzen könnte. Testen kann ich das ja ganz einfach mit den EasyModbus-Emulator.

Danach kann ich zumindest weitere Empfehlungen geben, bzw. eine Sub vorbereiten und du kannst das dann bei dir testen. Wenn es wirklich nur das ist, dann sollte es einfach sein, wenn man Modbus gut kennt.

Edit @dive26
Ich hab da gerade so eine ganz bekloppte Idee.

Du sagtes man schreibt 4 Bytes, ich sehe gerade in 6.3.7.1.2, Table 6-18 auch 4 Bytes. Nimm mal einen TcpClient oder nutze Sockets, verbinde dich und schreibe einfach diese Bytes

1->0x41 //Funktionscode
2->0x6 //Sub-Funktioncode
3->0x3 // DataLength, in der Descrition steht 3, also probieren
4->0x44 //filetype, also V101

Wenn eine Antwort kommt, alles was kommt lesen und in eine Datei schreiben, so wie es kommt. Wenn eine Antwort kam, häng die Datei mal hier an. Wenn es die Daten sind, die du willst, mach ich eine Klasse und du kannst auswerten.

Sollte keine Antwort kommen, schreibe noch 4 Bytes, so wie 6.3.7.1.3 "Completing the Data Upload", wenn die bei Huawei sagen 4 Bytes schreiben, sollte das eigentlich reichen.

dive26 · 27. Oktober 2022, 18:46

@BitBrösel

Habe folgenden Code dazu erstellt. Aber es kommt keine Rückmeldung vom Inverter:

VB.NET-Quellcode

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class FC03Form
Dim Modbus_Socket As Socket = Nothing
Private Function Display(data As Byte()) As String
Dim result As String = String.Empty
For Each item As Byte In data
result += String.Format("{0:X2} ", item)
Next
Return result
End Function
Private Sub Button_SendeHuawei_Click(sender As Object, e As EventArgs) Handles Button_SendeHuawei.Click
txtResult.Text = ""
Modbus_Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Modbus_Socket.ReceiveBufferSize = 256
Modbus_Socket.SendBufferSize = 256
Dim M_server As IPEndPoint = New IPEndPoint(IPAddress.Parse("192.168.0.188"), 502)
'Mit dem Server verbinden
Debug.Print("Verbinde mit Server")
Modbus_Socket.Connect(M_server)
Modbus_Socket.SendTimeout = 3000
Modbus_Socket.ReceiveTimeout = 3000
Debug.Print("OK")
Dim frame As Byte() = New Byte(3) {65, 5, 3, 68} ' 0x41, 0x06, 0x03, 0x44
frame(0) = 65 'unnötig da oben bereits in geschweiften Klammern?
frame(1) = 5 'unnötig da oben bereits in geschweiften Klammern?
frame(2) = 3 'unnötig da oben bereits in geschweiften Klammern?
frame(3) = 68 'unnötig da oben bereits in geschweiften Klammern?
txtSendMsg.Text = Me.Display(frame) ' Formatierte Ausgabe in einem Textfeld
'Daten senden
Debug.Print("Sende Daten")
Modbus_Socket.Send(frame, frame.Length, SocketFlags.None) 'Sende zu Socket
Debug.Print("OK")
Thread.Sleep(3000) ' 3 Sekunden Zeit geben
'Daten empfangen
Dim buffRecei As Byte() = New Byte(255) {}
Dim ns As NetworkStream = New NetworkStream(Modbus_Socket)
ns.ReadTimeout = 10000 'Mehr als 10 Sekunden darf es nicht dauern
If ns.CanRead Then
Debug.Print("Empfange Daten")
'####### Gegenstelle reagiert nicht - hier kommt die Fehlermeldung:
Dim rs As Integer = Modbus_Socket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
Debug.Print("OK")
End If
If IsDBNull(buffRecei) Then
Debug.Print("Keine Rückgabedaten")
Else
txtResult.Text = Display(buffRecei) ' Formatierte Ausgabe in einem Textfeld
End If
Modbus_Socket.Close()
End Sub
End Class

Alternativ habe ich auch noch das versucht:

VB.NET-Quellcode

Fehlermeldung bei Zeile 60:

Verbinde mit Server
OK
Sende Daten
OK
Empfange Daten
Ausnahme ausgelöst: "System.Net.Sockets.SocketException" in System.dllEin Ausnahmefehler des Typs "System.Net.Sockets.SocketException" ist in System.dll aufgetreten.
Ein Verbindungsversuch ist fehlgeschlagen, da die Gegenstelle nach einer bestimmten Zeitspanne nicht richtig reagiert hat, oder die hergestellte Verbindung war fehlerhaft, da der verbundene Host nicht reagiert hat

Ob ich als Sub-Funktionscode 5 oder 6 schicke macht auch keinen Unterschied.

BitBrösel · 27. Oktober 2022, 19:59

Mir kommt die 3 komisch vor, probier auch mal mit datalength 0 und 1

Und ja, die 4 Zeile wo du die Bytes erneut zuweist sind unnötig.

Sieh mal in der FC03Form, das Projekt das du hochgeladen hast, in dem Projekt schreib mal die Bytes

Also allein verbinden und die 4 BYtes können nicht reichen, beim Lesen, wird mehr geschrieben,

VB.NET-Quellcode

Dim frame As Byte() = New Byte(10) {} ' Total 11 Bytes
frame(0) = CByte(id \ 256) ' Transaction Identifier High
frame(1) = CByte(id Mod 256) ' Transaction Identifier Low
frame(2) = 0 ' Protocol Identifier High
frame(3) = 0 ' Protocol Identifier Low
frame(4) = 0 ' Message Length High.
frame(5) = 5 ' Message Length Low(5 bytes to follow)
frame(6) = slaveAddress ' The Unit Identifier(slave Address/Slave Id).
frame(7) = &h41
frame(8) = &h6
frame(9) = &h3 ' oder 0 oder 1
frame(10) = &h44

Oder auch mal Je Feld je HIGH und LOW. Wenn ich das so sehe, denke ich mir, meine Güte mehr ist das nicht? Hatte am Wochenende was zu knobeln erwartet, wenn ich so in die Register schreiben kann und lesen, dann ist das nach dem ich das Protokoll studiert hab, in kürzester Zeit fertig, aber halt nur die Standart Dinger. Ich hätte eher in die Mapp schauen sollen.

dive26 · 28. Oktober 2022, 00:19

Das hatte ich auch noch versucht (ging irgendwie in meinem Post oben unter):

VB.NET-Quellcode

Dim frame As Byte() = New Byte(7) {}
frame(0) = Convert.ToByte("0x41", 16) 'Functionscode
frame(1) = Convert.ToByte("0x05", 16) 'Sub-Funktionscode
frame(2) = Convert.ToByte("0x05", 16) 'Data Lenght (1 + N)
frame(3) = Convert.ToByte("0x44", 16) 'File type (Unique ID of a file)
frame(4) = Convert.ToByte("0x00", 16) 'Leere Bytes (N)
frame(5) = Convert.ToByte("0x00", 16) 'Leere Bytes (N)
frame(6) = Convert.ToByte("0x00", 16) 'Leere Bytes (N)
frame(7) = Convert.ToByte("0x00", 16) 'Leere Bytes (N)

Aber ja, Du könnstes Recht haben. Da gibts immer high und low.
Werde ich morgen gleich mal ausprobieren.

dive26 · 28. Oktober 2022, 02:30

@BitBrösel

Habe mich bis halb drei in der Früh damit gespielt.
Ich erhalte nun Rückmeldungen, mit denen kann ich aber nichts anfangen.
Womöglich passt das Datenpaket noch nicht.

Ich hänge mal den kompletten Code ran.
Habe alles etwas gekürzt um es übersichtlicher zu machen.
Die original "Read Holding Register" Funktion ist auch noch dabei (die funktioniert ja), damit man dies 1:1 vergleichen kann.

Im Anhang habe ich Screenshots gemacht mit welchen Eingabewerte ich welche Ausgabewerte erhalten habe.
Vielleicht siehst Du meinen Fehler auf den ersten Blick.

Die Bytes 0-6 sind 100% die richtigen, da abweichende Werte keine Antwort vom Server bringen.
Byte 7 bis 11 sollten normalerweise das "Upload-File-Paket" sein. Byte 7 müsste passen, aber wenn ich die Bytes auf die 4 notwendigen Bytes aufteile, bleibt mir immer eins übrig ;-).

VB.NET-Quellcode

Option Strict On
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class FC03Form
'Declare variables & constants.
Private mSocket As Socket = Nothing
Private Const IP As String = "192.168.0.188"
Private Const Port As UShort = 502
Private Sub FC03Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.Connect() ' Connect to device.
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub FC03Form_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
Try
Me.Disconnect() ' Disconnect with device.
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
''' <summary>
''' Function: Connect to device.
''' </summary>
Private Sub Connect()
Me.mSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Me.mSocket.ReceiveBufferSize = 256
Me.mSocket.SendBufferSize = 256
Dim server As IPEndPoint = New IPEndPoint(IPAddress.Parse(FC03Form.IP), FC03Form.Port)
Me.mSocket.Connect(server)
End Sub
''' <summary>
''' Function: disconnect with device.
''' </summary>
Private Sub Disconnect()
If Not IsDBNull(Me.mSocket) Then
Me.mSocket.Close()
End If
End Sub
''' <summary>
''' Function: Display frame.
''' </summary>
''' <param name="data">frame: byte()</param>
''' <returns>frame: String</returns>
Private Function Display(data As Byte()) As String
Dim result As String = String.Empty
For Each item As Byte In data
result += String.Format("{0:X2} ", item)
Next
Return result
End Function
''' <summary>
''' Original Funktion die Holding Register (Funktionscode 3) ausliest
''' Diese Funktion funktioniert einwandfrei
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub btnReadHoldingRegisters_Click(sender As Object, e As EventArgs) Handles btnReadHoldingRegisters.Click
Try
Dim slaveAddress As Byte = 3 ' The Unit Identifier
Dim functionCode As Byte = 3 ' Function.
Dim id As UShort = functionCode ' Transaction Identifier .
Dim startAddress As UShort = 30070 ' Starting Address .
Dim numberOfPoints As UShort = 4 ' Quantity of Registers . Read 2 real(float) number. Note: Unit Word(1 Word = 2byte= 16bit, 1 Real/Float = 4byte= 2 Word = 32 bits).
Dim frame As Byte() = New Byte(11) {} ' Total 12 Bytes
frame(0) = CByte(id \ 256) ' Transaction Identifier High
frame(1) = CByte(id Mod 256) ' Transaction Identifier Low
frame(2) = 0 ' Protocol Identifier High
frame(3) = 0 ' Protocol Identifier Low
frame(4) = 0 ' Message Length High.
frame(5) = 6 ' Message Length Low(6 bytes to follow)
frame(6) = slaveAddress ' The Unit Identifier(slave Address/Slave Id).
frame(7) = functionCode ' Function.
frame(8) = CByte(startAddress \ 256) ' Starting Address High.
frame(9) = CByte(startAddress Mod 256) ' Starting Address Low.
frame(10) = CByte(numberOfPoints \ 256) ' Quantity of Registers High
frame(11) = CByte(numberOfPoints Mod 256) 'Quantity of Registers Low
txtSendMsg.Text = Me.Display(frame) ' Zeige zu sendende Bytes im Textfeld
' Send Data
Me.mSocket.Send(frame, frame.Length, SocketFlags.None)
Thread.Sleep(100) ' Delay 100ms.
' Received data.
Dim buffRecei As Byte() = New Byte(255) {}
Dim ns As NetworkStream = New NetworkStream(Me.mSocket)
If ns.CanRead Then
Dim rs As Integer = Me.mSocket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
End If
If IsDBNull(buffRecei) Then
Return
End If
Dim sizeBytes = buffRecei(8) ' The data byte received.
If (functionCode = buffRecei(7)) Then
Dim byteMsg As Byte() = New Byte(8 + sizeBytes) {}
Array.Copy(buffRecei, 0, byteMsg, 0, byteMsg.Length)
txtReceiMsg.Text = Me.Display(byteMsg) ' Display frame: received.
Dim data As Byte() = New Byte(sizeBytes - 1) {} ' Okay: Ready!!!
Array.Copy(buffRecei, 9, data, 0, data.Length)
' Process data.
Dim result As UShort() = DataType.Word.ToArray(data) ' Convert byte array to ushort array.
txtResult.Text = String.Empty
For Each item As UShort In result
txtResult.Text += String.Format("{0}/ ", item)
Next
End If
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
''' <summary>
''' Huawei-defined Funktion die (Funktionscode 65) ausliest
''' Diese Funktion funktioniert liefert eine Antwort mit einem Fehlercode zurück
''' da wohl einige mitgeschickte Daten falsch sind.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub Button_0x41_Click(sender As Object, e As EventArgs) Handles Button_0x41.Click
Try
Dim FunctionCode As Byte = 65 ' SubFunction.
Dim SubfunctionCode As Byte = 5 ' SubFunction.
'Es müssen mindestens 11 Bytes sein.
'Bei weniger kommt keine Rückmeldung vom Server
'Mehr macht nichts
'Bytes 0-6 sind 100% korrekt - hier habe ich alles durchgetestet
'Bytes 7-1x bekomme ich nicht gebacken.
Dim frame As Byte() = New Byte(11) {}
frame(0) = CByte(FunctionCode \ 256) ' Funktionscode 65 (0x41)
frame(1) = CByte(FunctionCode Mod 256) ' Funktionscode65 (0x41)
frame(2) = 0 ' Alles andere als 0 ergibt keine Antwort vom Server
frame(3) = 0 ' Alles andere als 0 ergibt keine Antwort vom Server
frame(4) = CByte(6 \ 256) ' Message Length High - 6 ist korrekt, alle anderen Daten ergeben keine Antwort vom Server
frame(5) = CByte(6 Mod 256) ' Message Length Low - 6 ist korrekt, alle anderen Daten ergeben keine Antwort vom Server
frame(6) = 3 ' Das ist die Modbus Geräte ID (in meinem Fall die 3) ###FIX KORREKT
'Frame 7 kann nur SubFunctionsCode sein
'0 ergibt eine Response mit 80
'5 ergibt eine Response mit 85
'65 ergibt eine Response mit C1 (Fehler) und den Fehlercode 3 "Illegal data value"
'Also kann hier nur der Subfunctionscode (5 / 0x05) reinkommen
frame(7) = SubfunctionCode 'Wird hier 0 übergeben kommt die Rückmeldung 80, bei 5 kommt 85 als Rückmeldung in Byte 8 des response
frame(8) = 3 '?
frame(9) = 68 '?
frame(10) = 0 '?
frame(11) = 0 '?
' Zeige zu sendende Bytes im Textfeld
txtSendMsg.Text = Me.Display(frame)
'Ergebnis der Ausgabe: 00 41 00 00 00 06 03 41 05 02 44 00
' Send Data
Me.mSocket.Send(frame, frame.Length, SocketFlags.None)
Thread.Sleep(100) ' Delay 100ms.
' Received data.
Dim buffRecei As Byte() = New Byte(256) {}
Dim ns As NetworkStream = New NetworkStream(Me.mSocket)
If ns.CanRead Then
Dim rs As Integer = Me.mSocket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
End If
' Zeige zu sendende Bytes im Textfeld
txtResult.Text = Me.Display(buffRecei)
'Ergebnis der Ausgabe: 00 41 00 00 00 03 03 C1 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
'C1 = Error Code
'03 = Fehler "Illegal data value"
'The value contained in the query data field is not an allowable value for the server (Or slave). The
'value indicates a fault in the structure of the
' remainder of a complex request, such as an
'incorrectly implied length. It specifically does Not
'mean that a data item submitted for storage in a
'register has a value outside the expectation of
'the Application program since the Modbus
'protocol Is unaware of the significance of any
'particular value of any particular register.
Catch ex As Exception
MessageBox.Show(Me, ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End Class

BitBrösel · 28. Oktober 2022, 09:56

dive26 schrieb:

'65 ergibt eine Response mit C1 (Fehler) und den Fehlercode 3 "Illegal data value"

Das muss nicht bedeuten, das der Sub-FunktionsCode reicht oder das der Funktionscode falsch ist. Eine Antwort ist gut, besser als keine. Denn das heißt da funktioniert schon was. Kommt keine ist Grundsätzlich was falsch.

0x03 Illegal Data Value

The value contained in the query data field is notan allowable value for the server (or slave). Thevalue indicates a fault in the structure of theremainder of a complex request, such as anincorrectly implied length. It specifically does notmean that a data item submitted for storage in aregister has a value outside the expectation ofthe application program since the Modbusprotocol is unaware of the significance of anyparticular value of any particular register.

Also den Funktionscode ganz vorne rein ist komplett falsch. Dort kommt eine eindeutige ID(Transaction Identifier) für Requests hin, nach jedem Request sollte die also ums 1 steigen. so das jeder Request identifiziert werden kann(Das sollte dann auch in der Antwort zu finden sein). Die ersten 7 Bytes sind immer ein MBAP-Header

2 Bytes Transaction Identifier
2 Bytes Protocol Identifier müssen beide 0 sein
2 Bytes Lenght, Anzahl der Bytes die nach diesen beiden Bytes geschrieben werden. also Anzahl folgende Bytes inkl. das 1 Byte für Unit ID
1 Byte Unit Identifier, also die ID vom Slave oder Master

Aber ich Depp, sehe mehr und mehr einen Zusammenhang, ich hatte nicht ganz korrekt gelesen. Man sollte nicht zu viel parallel machen.
Führe Schritt 1 aus und zeige uns das Ergebnis(Antwort der Gegenstelle)

Ich habe ein wenig Code vorbereitet, den ich aber nicht testen kann. Kommt eine Antwort?

VB.NET-Quellcode

Private Sub DoRequest()
Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44)
Dim mbap() As Byte = GetMBAP(&H3, frameStartUpload.Length)
'mbap schreiben
'und sofort FrameStartUpload
'Antwort auswerten
End Sub
Private Function GetFrameStartUpload(fileType As Byte) As Byte()
Dim functionsCode As Byte = &H41
Dim subFunctionsCode As Byte = &H5
Dim dataLenght As Byte = 1 ' 1+N, N = Customdata lenght, we dont send customdata
Return New Byte(3) {functionsCode, subFunctionsCode, dataLenght, fileType}
End Function
Private Function GetFrameStartUpload(fileType As Byte, customData() As Byte) As Byte()
Dim functionsCode As Byte = &H41
Dim subFunctionsCode As Byte = &H5
Dim dataLenght As Byte = CByte(1 + customData.Length) ' 1+N, N = Customdata lenght
Dim frame() As Byte = New Byte(3 + customData.Length) {}
frame(0) = functionsCode
frame(1) = subFunctionsCode
frame(2) = dataLenght
frame(3) = fileType
Array.Copy(customData, 0, frame, 4, customData.Length)
Return frame
End Function
Private Function GetMBAP(unitId As Byte, dataLenght As Integer) As Byte()
Static id As Integer = 0
Dim mbap() As Byte = New Byte(6) {}
mbap(0) = CByte(id \ 256)
mbap(1) = CByte(id Mod 256)
mbap(2) = 0
mbap(3) = 0
mbap(4) = CByte((dataLenght + 1) \ 256)
mbap(5) = CByte((dataLenght + 1) Mod 256)
mbap(6) = unitId
id += 1
Return mbap
End Function

Gibt dann 3 Möglichkeiten
1->Keine Antwort
2->FehlerResponse
3->Daten wie in Table 6-16 beschrieben.

dive26 · 28. Oktober 2022, 10:26

@BitBrösel

Hier die Antwort (siehe Screenshot).
Bei jeder weiteren Anfrage erhöht sich der Protocol identifier beim senden und empfangen (Frame 2).

Das mitschicken von Customdata (egal welchen Wert diese haben) brachte das selbe Ergebnis.

BitBrösel · 28. Oktober 2022, 10:37

Nächste Anfrage irritiert mich. Hast du daraus 2 Anfragen gemacht? Eine war gedacht. Also beide Arrays schreiben und dann eine Antwort auswerten. IGut ich weiß nicht wie die gegenstelle liest, evtl. ist das so besser. Der unterschied bei den beiden Anworten könnte die Request ID sein, falls du 2 Request gemacht hast. Du könntest mal mit id = 6 starten, wenn dann 6 und danach 7 drin ist, ist das die TransactionId.

VB.NET-Quellcode

Private Sub DoRequest()
Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44)
Dim mbap() As Byte = GetMBAP(&H3, frameStartUpload.Length)
Dim buffer() As Byte = ConcatBytes(mbap, frameStartUpload)
'buffer schreiben
'Antwort auswerten
End Sub
Private Function ConcatBytes(first() As Byte, second() As Byte) As Byte()
Dim buffer() As Byte = New Byte(first.Length + second.Length - 1) {}
System.Buffer.BlockCopy(first, 0, buffer, 0, first.Length)
System.Buffer.BlockCopy(second, 0, buffer, first.Length, second.Length)
Return buffer
End Function

dive26 · 28. Oktober 2022, 10:44

@BitBrösel

ich war zu voreilig und du zu schnell mit der Antwort.
Vergiss meine erste Antwort. Ich habe diese überarbeitet.

Ich habe nur new New Byte(6) {}

VB.NET-Quellcode

Private Function GetMBAP(unitId As Byte, dataLenght As Integer) As Byte()
Static id As Integer = 0
Dim mbap() As Byte = New Byte(6) {}
mbap(0) = CByte(id \ 256)
mbap(1) = CByte(id Mod 256)
mbap(2) = 0
mbap(3) = 0
mbap(4) = CByte((dataLenght + 1) \ 256)
mbap(5) = CByte((dataLenght + 1) Mod 256)
mbap(6) = unitId
id += 1
Return mbap
End Functionn

durch New Byte(6 + dataLenght) {} ersetzt, da obiger Code keine Rückmeldung brachte.
Die Datenlänge ist ja alles nachkommende.

VB.NET-Quellcode

Private Function GetMBAP(unitId As Byte, dataLenght As Integer) As Byte()
Static id As Integer = 0
Dim mbap() As Byte = New Byte(6 + dataLenght) {}
mbap(0) = CByte(id \ 256)
mbap(1) = CByte(id Mod 256)
mbap(2) = 0
mbap(3) = 0
mbap(4) = CByte((dataLenght + 1) \ 256)
mbap(5) = CByte((dataLenght + 1) Mod 256)
mbap(6) = unitId
id += 1
Return mbap
End Function

BitBrösel · 28. Oktober 2022, 10:52

Ah ja, da war ein Missverständnis, daher siehe meinen letzten Post. Gedacht war schreibe den mbap, nächste Zeile schreibe den frame, dann die Antwort lesen.

Edit @dive26
Weil wir im MBAP die Länge angeben, wird die Gegenseite versuchen so viele Bytes zu lesen, da du den frame nicht geschrieben hast, konnte auch nichts kommen. Kombiniere meine beiden Codes. Und probier es dann noch einmal.

dive26 · 28. Oktober 2022, 11:19

@BitBrösel

Ah ja, da war ein Missverständnis, daher siehe meinen letzten Post. Gedacht war schreibe den mbap, nächste Zeile schreibe den frame, dann die Antwort lesen.

Edit @dive26
Weil wir im MBAP die Länge angeben, wird die Gegenseite versuchen so viele Bytes zu lesen, da du den frame nicht geschrieben hast, konnte auch nichts kommen. Kombiniere meine beiden Codes. Und probier es dann noch einmal.

Ich steh irgendwie auf dem Schlauch und weis nicht was Du damit meinst. Was solle ich wann senden?

Ich mache es gerade so:

VB.NET-Quellcode

Private Sub DoRequest()
'Dim CustomData() As Byte = {1, 2, 3, 4}
'Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44, CustomData)
Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44) ' 41 05 01 44
txtSendMsg.Text = Me.Display(frameStartUpload) 'Zeige zu sendende Bytes
Dim mbap() As Byte = GetMBAP(&H3, frameStartUpload.Length) ' 00 00 00 00 00 05 03 00 00 00 00
txtSendMsg1.Text = Me.Display(mbap) 'Zeige zu sendende Bytes
' Senden und empfangen
Me.mSocket.Send(mbap, mbap.Length, SocketFlags.None)
Thread.Sleep(100)
Dim buffRecei As Byte() = New Byte(256) {}
Dim ns1 As NetworkStream = New NetworkStream(Me.mSocket)
If ns1.CanRead Then
Dim rs As Integer = Me.mSocket.Receive(buffRecei, buffRecei.Length, SocketFlags.None)
' Ergebnis: 00 00 00 00 00 03 03 80 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
txtResult.Text = Me.Display(buffRecei) 'Zeige empfangene Bytes
End If
End Sub

Nur Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44) ' 41 05 01 44 alleine zu senden bringt keine Rückmeldung.

BitBrösel · 28. Oktober 2022, 11:28

Noch kurz zu den Antworten, die bei deinem Versuch kamen, die gegenstelle hat dir das zurückgeschrieben was du geschrieben hast.
00-00-00-00-00-05-03
2 Bytes TranactionId
2 Bytes Protokoll ID
2 Bytes Datalenght
1 Byte Device ID

Den Frame hattest du ja nicht geschrieben

Also wie ich sagte, entweder

1->MBap schreiben
2->Frame schreiben
3->Antwort lesen

oder

1->Mbap und Frame verketten
2->buffer schreiben
3->Antowrt lesen

mit folgenden Code sehen die Requests dann so aus, wie ich mir das vorstelle:

Quellcode

00-00-00-00-00-05-03-41-05-01-44
selber request mit id +1
00-01-00-00-00-05-03-41-05-01-44
selber request wieder mit id +1
00-02-00-00-00-05-03-41-05-01-44

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DoRequest()
'DoRequest()
'DoRequest()
End Sub
Private Sub DoRequest()
Dim frameStartUpload() As Byte = GetFrameStartUpload(&H44)
Dim mbap() As Byte = GetMBAP(&H3, frameStartUpload.Length)
Dim buffer() As Byte = ConcatBytes(mbap, frameStartUpload)
For i As Integer = 0 To buffer.Length - 1
Debug.Write(buffer(i).ToString("x2"))
If i <> buffer.Length - 1 Then
Debug.Write("-")
End If
Next
Debug.WriteLine("")
'buffer schreiben
'Antwort auswerten
End Sub
Private Function ConcatBytes(first() As Byte, second() As Byte) As Byte()
Dim buffer() As Byte = New Byte(first.Length + second.Length - 1) {}
System.Buffer.BlockCopy(first, 0, buffer, 0, first.Length)
System.Buffer.BlockCopy(second, 0, buffer, first.Length, second.Length)
Return buffer
End Function
Private Function GetFrameStartUpload(fileType As Byte) As Byte()
Dim functionsCode As Byte = &H41
Dim subFunctionsCode As Byte = &H5
Dim dataLenght As Byte = 1 ' 1+N, N = Customdata lenght, we dont send customdata
Return New Byte(3) {functionsCode, subFunctionsCode, dataLenght, fileType}
End Function
Private Function GetFrameStartUpload(fileType As Byte, customData() As Byte) As Byte()
Dim functionsCode As Byte = &H41
Dim subFunctionsCode As Byte = &H5
Dim dataLenght As Byte = CByte(1 + customData.Length) ' 1+N, N = Customdata lenght
Dim frame() As Byte = New Byte(3 + customData.Length) {}
frame(0) = functionsCode
frame(1) = subFunctionsCode
frame(2) = dataLenght
frame(3) = fileType
Array.Copy(customData, 0, frame, 4, customData.Length)
Return frame
End Function
Private Function GetMBAP(unitId As Byte, dataLenght As Integer) As Byte()
Static id As Integer = 0
Dim mbap() As Byte = New Byte(6) {}
mbap(0) = CByte(id \ 256)
mbap(1) = CByte(id Mod 256)
mbap(2) = 0
mbap(3) = 0
mbap(4) = CByte((dataLenght + 1) \ 256)
mbap(5) = CByte((dataLenght + 1) Mod 256)
mbap(6) = unitId
id += 1
Return mbap
End Function

dive26 · 28. Oktober 2022, 11:44

@BitBrösel

Danke für Deinen ergänzten Code.
Auch hier ergibt sich das selbe Ergebnis (siehe Screenshot).

In der Funktion GetMBAP habe ich Deinen Code rauskommentiert und den funktionierenden reingeschrieben.
Mit Deiner Zeile gibt es keine Socket-Rückmeldung.

VB.NET-Quellcode

Private Function GetMBAP(unitId As Byte, dataLenght As Integer) As Byte()
Static id As Integer = 0
'Dim mbap() As Byte = New Byte(6) {} 'hiermit gibt es keine Rückmeldung vom Socket
Dim mbap() As Byte = New Byte(6 + dataLenght) {}
mbap(0) = CByte(id \ 256)
mbap(1) = CByte(id Mod 256)
mbap(2) = 0
mbap(3) = 0
mbap(4) = CByte((dataLenght + 1) \ 256)
mbap(5) = CByte((dataLenght + 1) Mod 256)
mbap(6) = unitId
id += 1
Return mbap
End Function

Ich finde es super, dass Du so viel Energie in die Sache steckts. Aber ich möchte das auch nicht überstrapazieren.
Ich würde mal sagen wir lassen ein paar Tage vergehen. Vielleicht bekomme ich inzwischen von Huawei einen Beispielcode.
Falls sich da nichts ergibt, können wir hier ja immer noch try and error machen ;-).

BitBrösel · 28. Oktober 2022, 12:05

@dive26

Für heute habe ich aber noch was, weis nicht ob das jetzt Zufall ist. Ich sehe
03 80
Das ist eine Zahl die ich zuordnen kann.

Du hast 34 Optimierer V101
4 Bytes FileVersion
8 Bytes Reserved
N Bytes Data, 12 + NumberOfOptimizers * 26

Rechnen wir mal...
12 + 34 * 26 = 896

896 sind in Hex-Darstellung
0x380
oder auch mit führender 0
0x0380

Möglicherweise fehlt dann noch der Request zum "Complete Upload Data", die Antwort darauf würde mich mal interessieren.

Modbus TCP - Wie die abgefragten Integer-Register-Werte "zusammenbauen" in String, Long, Double, etc...

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

8 Benutzer haben hier geschrieben