Probleme mit TCP/IP-Verbindung

elmsrock · 16. Mai 2020, 12:50

ausgelagert aus TCP/IP Verbindung ~VaporiZed

Habe ein ähnliches Problem. Mein gewünschter TCP-Partner heißt Denon DN700C (denon-professional.de/dn-700c).
Das Gerät ist schlichtweg unbedienable. Wenn es einen Track abspielt, kann man nicht mal einen anderen vorwählen (Press Stop) oder einen zum Programm hinzufügen. Professional eben.
Das hat in mir den Wunsch ausgelöst, einmalig die ganzen vorhandenen Tracks einzulesen und von meiner VB-Anwendung aus zu steuern.
Play, Stop, On und Off sprich senden funktioniert auch einwandfrei, nur bekomme ich keine Antworten rein.
Der hier aus dem Forum zusammengesammelte Code wird scheinbar nur bis zur Zeile "client = Server.AcceptTcpClient" ausgeführt.
Kann mir jemand sagen, woran es hapert?

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Net.Sockets
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
'######################################################################## Denon MIDI Codes
Dim PowerOn As Byte() = {&H11, &H1, &H0, &H1, &H1, &H0, &H31, &H34}
Dim PowerOff As Byte() = {&H11, &H1, &H0, &H1, &H2, &H0, &H31, &H35}
Dim PlayTrack As Byte() = {&H11, &H1, &H0, &H0, &H2, &H0, &H31, &H34}
Dim StopTrack As Byte() = {&H11, &H1, &H0, &H0, &H1, &H0, &H31, &H33}
Dim getTransportStatus As Byte() = {&H11, &H1, &H0, &H9, &H1, &H0, &H31, &H43}
'######################################################################## Server
Dim stream As NetworkStream
Dim Server As TcpListener
Dim client As New TcpClient
Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 23)
Dim mainthread As Threading.Thread
'########################################################################
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
client.Connect("192.168.178.58", 23) ' Denon-IP, Telnet, Exception wenn schon verbunden oder Gerät nicht vorhanden!!!
If client.Connected Then
ToolStripStatusLabel1.Text = "Verbindung hergestellt!"
stream = client.GetStream
mainthread = New Threading.Thread(AddressOf mainserver)
Control.CheckForIllegalCrossThreadCalls = False
mainthread.Start()
Else
ToolStripStatusLabel1.Text = "Verbindung konnte nicht hergestellt werden!"
End If
End Sub
'########################################################################
Sub mainserver() ' thread
Try
Server = New TcpListener(ipendpoint)
Server.Start()
client = Server.AcceptTcpClient
stream.ReadTimeout = 10000
While True
ListBox1.Items.Add("Listening...")
Dim ReceiveBytesVb(client.ReceiveBufferSize) As Byte
stream.Read(ReceiveBytesVb, 0, CInt(client.ReceiveBufferSize))
Dim ReturnDataVb As String = Encoding.ASCII.GetString(ReceiveBytesVb)
ListBox1.Items.Add(ReturnDataVb)
End While
Catch ex As Exception
MsgBox("Catch: " & ex.Message)
End Try
End Sub
'########################################################################
Private Sub Form1__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
Server.Stop()
Try
mainthread.Abort()
Catch
End Try
End Sub
'########################################################################
Sub client_send(ByRef bytes As Array)
Dim pre As Byte() = {&HF0, &H0, &H40, &H3}
Dim post As Byte() = {&HF7}
Dim send As Byte() = pre.Concat(bytes).ToArray.Concat(post).ToArray
stream.Write(send, 0, send.Length)
End Sub
Private Sub ButtonAus_Click(sender As Object, e As EventArgs) Handles ButtonAus.Click
client_send(PowerOff)
End Sub
Private Sub ButtonEin_Click(sender As Object, e As EventArgs) Handles ButtonEin.Click
client_send(PowerOn)
End Sub
Private Sub ButtonPlay_Click(sender As Object, e As EventArgs) Handles ButtonPlay.Click
client_send(PlayTrack)
End Sub
Private Sub ButtonStop_Click(sender As Object, e As EventArgs) Handles ButtonStop.Click
client_send(StopTrack)
End Sub
Private Sub ButtonGetTransportStatus_Click(sender As Object, e As EventArgs) Handles ButtonGetTransportStatus.Click
client_send(getTransportStatus)
End Sub
'########################################################################
End Class

RodFromGermany · 16. Mai 2020, 17:17

@elmsrock Leider lässt sich das ohne die Gegenstelle schlecht nachvollziehen.
Ich würde das Verbinden aus der Form_Load rausnehmen, weil da Exceptions ggf. verschluckt werden.
Pack das mal in eine Button_Click und stell sicher, dass wirklich eine Verbindung zustande kommt.
Steppe den Code dann zeilenweise durch und überzeuge Dich, dass er das tut, was er soll.
Debuggen, Fehler finden und beseitigen

elmsrock · 16. Mai 2020, 21:59

Hi Rod!
Mit dem Button habe ich auch schon probiert. ist das Gleiche.
Die Verbindung wird ja auch hergestellt, denn ich kann ja senden und das Gerät reagiert einwandfrei.
Ich empfange nur keine Antworten, keine ACKs wie im Handbuch
(elmsrock.de/download/DN700CEM_ethernet_control_addendum.pdf
und
elmsrock.de/download/DN700C_DN501C_MIDICommandGuide_v1.0.pdf )
beschrieben, kein gar nix.
Ist denn der Code grundsätzlich richtig?
Merkwürdig finde ich auch, dass wenn ich den Code wie im Spoiler erweitere um den Debugmodus auch noch zu umgehen, dass nur die 1 und die 2 ausgegeben wird.

Spoiler anzeigen

RodFromGermany · 17. Mai 2020, 10:24

elmsrock schrieb:

Ist denn der Code grundsätzlich richtig?

Nö.
Das

elmsrock schrieb:

VB.NET-Quellcode

Control.CheckForIllegalCrossThreadCalls = False

solltest Du rausnehmen.
Statt Ausgaben in einer ListBox zu protokollieren, schreib sie besser nach Console.WriteLine(...).
Diese Ausgaben landen dann während des Debuggens im Ausgabe-Fenster des Studios.
Wenn Du an Dein Programm eine Console anhängst, gehen diese Ausgaben dort hinein und das geht wesentlich schneller.
Die einfachste Lösung geht so: Kommunikation zwischen Console und Form
allerdings darfst Du die Console nicht schließen, sonst wird das Programm auch geschlossen.
Ansonsten nimm dies hier:
Angehängte Console kann nicht direkt geschlossen werden.

Bluespide · 18. Mai 2020, 08:44

Warum machst du denn selber einen Liestener auf und wartest auf eine Verbindung? Der TCP-Client ist duplex, geht also direkt in beide Richtungen, sobald du verbunden bist. Nach dem client.Connect("192.168.178.58", 23) steht die Verbindung und du kannst in den client schreiben und auch aus diesem lesen.

elmsrock · 18. Mai 2020, 10:04

Und wie kann ich aus dem lesen?
Der Denon sollte zumindest nach jedem Befehlsempfang ein ACK senden, aber momentan bekomme ich auch nichts bei GET-Befehlen.

RodFromGermany · 18. Mai 2020, 12:50

@elmsrock Dann kann es sein, dass das Senden auch nicht funktioniert.
Sieh Dir mal die Einstellungen Deiner Firewall an.

elmsrock · 18. Mai 2020, 15:55

Den CheckForIllegalCrossThreadCalls will ich später rausnehmen, wenn es denn mal laufen sollte.

Also wenn ich mit Telnet 192.168.178.58 eine Verbindung herstelle und am Denon Play, Stop und dergleichen drücke, kommen in der Telnet-Box die gewünschten Daten an.
Die Verbindung ist also möglich, zumal ich die Firewall testweise auch schon abgeschaltet habe.
Von meinem Programm aus kann ich ja auch Play und Stop und dergleichen senden und es passiert das Gewünschte, ich bekomme nur keine Antworten.
Das Programm bleibt schlichtweg bei der Zeile " client = Server.AcceptTcpClient" hängen.
Das ist laut "https://docs.microsoft.com/de-de/dotnet/api/system.net.sockets.tcplistener.pending?view=netcore-3.1"
ja auch eine blockierende Methode ist, wobei mittels "Pending" vorher abgefragt werden kann, ob da was kommt.
Das habe ich jetzt probiert (siehe Spoiler), es kommt aber gar nicht bei "ListBox1.Items.Add(Now)" an.
Das Problem muss also irgendwo anders liegen. Nur wo?

Spoiler anzeigen

RodFromGermany · 18. Mai 2020, 16:05

@elmsrock Kann es sein, dass Du eine zweite TCP-Verbindung für den Rück-Teil der Kommunikation aufmachen musst?
Was sagt die Beschreibung?
Was sagt der Hersteller?

xChRoNiKx · 18. Mai 2020, 17:58

Hi,

ich verstehe deinen Aufbau nicht. Es ist völlig klar das es bei AcceptTcpClient nicht weiter geht denn er wartet solange bis sich jemand dann darauf verbindet.
Les dir dazu mal das hier durch dann verstehst du warum: docs.microsoft.com/de-de/dotne…cpclient?view=netcore-3.1

Du deklarierst hier einen Listener und einen Client warum? Du willst doch nur senden und deine Antwort empfangen. Also brauchst du einen TCPClient
dieser sendet deinen Befehl und liest direkt den Stream aus den du vorliegen hast für deine Antwort.

Dein Listener ist ein Server, woher soll dein DNC wissen das er dahin verbinden soll? Das geht nicht.
Bau dein Zeug mal so um das du EINEN Client hast der sich verbindet, deinen Befehl sendet und dann den Stream per ReadLine / Read / ReadBlock oder dergleichen ausliest.

elmsrock · 18. Mai 2020, 20:24

@xChRoNiKx & Bluespide:
Ah, jez jah!
Irgendwie habe ich wohl Ausführliches TCP und UDP Tutorial falsch verstanden, nämlich, dass ich, um Daten zu empfangen, auch einen Server anlegen muss.
Der TCP-Partner würde dann, wie er es jetzt ja auch tut, an die Adresse zurück senden, von wo die Anfrage kam, nur dass da ein Server laufen müsste.
Ich empfange zumindest Daten. Allerdings muss ich noch rauskriegen, wie ich mit der Denon-Antwort {&HF0,&H00,&H40,&H03,&H11,&H01,&H00,&H09,&H3C,&H02,&H30,&H31,&H42,&H41,&HF7} bei der Frage nach dem Namen des ersten Files im ersten Ordner auf diesen komme, aber das steht in einem anderen Buch.
@Rod:
Nein, keine zweite nötig. Beschreibung sagt "Telnet" und damit konnte ich ja auch bereits empfangen.

Danke nochmal an alle und hier das jetzt korrekt arbeitende Codegerüst:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Net.Sockets
Public Class Form1
'######################################################################## Denon MIDI Codes
Dim PowerOn As Byte() = {&H11, &H1, &H0, &H1, &H1, &H0, &H31, &H34}
Dim PowerOff As Byte() = {&H11, &H1, &H0, &H1, &H2, &H0, &H31, &H35}
Dim PlayTrack As Byte() = {&H11, &H1, &H0, &H0, &H2, &H0, &H31, &H34}
Dim StopTrack As Byte() = {&H11, &H1, &H0, &H0, &H1, &H0, &H31, &H33}
Dim getTransportStatus As Byte() = {&H11, &H1, &H0, &H9, &H1, &H0, &H31, &H43}
Dim getNameOfFirstFileInFolder1 As Byte() = {&H11, &H1, &H0, &HD, &HC, &H8, &H30, &H30, &H30, &H31, &H30, &H30, &H30, &H31, &H42, &H35}
'######################################################################## Server
Dim stream As NetworkStream
Dim client As New TcpClient
'########################################################################
Private Sub ButtonConnect_Click(sender As Object, e As EventArgs) Handles ButtonConnect.Click
client.Connect("192.168.178.58", 23) ' Denon-IP, Telnet, Exception wenn schon verbunden oder Gerät nicht vorhanden!!!
If client.Connected Then
ToolStripStatusLabel1.Text = "Verbindung hergestellt!"
Else
ToolStripStatusLabel1.Text = "Verbindung konnte nicht hergestellt werden!"
End If
End Sub
Sub client_comm(ByRef bytes As Array)
Dim pre As Byte() = {&HF0, &H0, &H40, &H3}
Dim post As Byte() = {&HF7}
Dim send As Byte() = pre.Concat(bytes).ToArray.Concat(post).ToArray
stream = client.GetStream
stream.Write(send, 0, send.Length)
'#########
Dim ReceiveBytesVb(client.ReceiveBufferSize) As Byte
Dim c As Int32 = stream.Read(ReceiveBytesVb, 0, CInt(client.ReceiveBufferSize))
'ReceiveBytesVB = Antwort, c=Stringlänge
End Sub
'########################################################################
Private Sub ButtonAus_Click(sender As Object, e As EventArgs) Handles ButtonAus.Click
client_comm(PowerOff)
End Sub
Private Sub ButtonEin_Click(sender As Object, e As EventArgs) Handles ButtonEin.Click
client_comm(PowerOn)
End Sub
Private Sub ButtonPlay_Click(sender As Object, e As EventArgs) Handles ButtonPlay.Click
client_comm(PlayTrack)
End Sub
Private Sub ButtonStop_Click(sender As Object, e As EventArgs) Handles ButtonStop.Click
client_comm(StopTrack)
End Sub
Private Sub ButtonGetTransportStatus_Click(sender As Object, e As EventArgs) Handles ButtonGetTransportStatus.Click
client_comm(getTransportStatus)
End Sub
Private Sub ButtonGetNameOfFirstFileInFolder1_Click(sender As Object, e As EventArgs) Handles ButtonGetNameOfFirstFileInFolder1.Click
client_comm(getNameOfFirstFileInFolder1)
End Sub
'########################################################################
End Class

Probleme mit TCP/IP-Verbindung

Probleme mit TCP/IP-Verbindung

VB.NET-Quellcode

VB.NET-Quellcode

elmsrock schrieb:

elmsrock schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben