[HammerRei]

Hallo Community

ich möchte mit einer Kamera kommunizieren, scheitere jedoch seit Tagen an der Umsetzung und nehme nun in meiner Not den "Publikumsjoker"
Bitte helft mir ...

Meine Aufgabe:
Schicke an IP Adresse 192.168.100.100 Port:2006 einen Trigger "irgendein String",
dann erhälst du über den Port: 2005 einen String zurück
Edit: Mein Programm wird nicht mit Console sondern über TextBoxen laufen und die Daten speichere ich anschließend auf einem Server.
(Achtung: Unter den Codes 2. Aufgabe)

Imports System.Net.Sockets
Imports System.IO
Public Class Form1

'Variablen:
Dim stream As NetworkStream
Dim streamw As StreamWriter
Dim streamr As StreamReader
Dim Client As New TcpClient
Dim Client2 As New TcpClient
Dim IP As String = "192.168.100.100"
Dim Port1 As Integer = 2006
Dim Port2 As Integer = 2005

Private Sub Connect(ByVal sender As System.Object, ByVal e As System.EventArgs)
    'Client verbindet sich mit IP: 192.168.100.100 und Port 2006
	Client.Connect(IP, Port1)  
    If Client.Connected Then
		' Stream verweist auf Client
        stream = Client.GetStream 
		' Stream zum Senden
        streamw = New StreamWriter(stream)
		Client2.Connect(IP, Port2)
		If Client2.Connected Then
		stream = Client.GetStream
		' Stream zum Empfangen 
        streamr = New StreamReader(stream)
		Else
		Call MsgBox("Verbidnung konnte mit " & IP & ":" & Port2 & " nicht aufgebaut werden!")
    Else
        Call MsgBox("Verbidnung konnte mit " & IP & ":" & Port2 & " nicht aufgebaut werden!")
    End If
End Sub

Sub client_send(ByVal text As String)
    streamw.WriteLine(text)
    streamw.Flush()
End Sub

Function client_receive() As String
    client_receive = streamr.ReadLine
End Function
End Class

Oder funktioniert das über

client_send("Stringtext")
client_receive() = ""
variable zum weiterverarbeiten = client_receive()

(Add: Es gibt ein mitgegebenes Tool. Hier kann ich mich mit dem Gerät verbinden und gebe bei "on request port..." die 2006 ein... Erhalte unter "Response (HEX):" eine "084,082,071,080," Ist das der allgemeine Code der von dem Gerät zu meinem Rechner zurück kommt oder die Umwandlung eines X-Beliebigen Triggers in Hexcode?)

Anschließend erhalte ich mithilfe eines weiteren Triggers über den selben Port ein Array, das mir pro Bit-Position im Array (genannt ByteArray) einen Grauton gibt und sich daraus ein Bild zusammensetzt, das ich aber in ein JPEG Format mit dem oben zurückgegebenen String als Titel abspeichern möchte.
Hierzu gibt mir Google keinen Beispielcode der sich in meinem Anfangsstadium verwenden lässt.

Private Function BytesToImage(ByVal ImageBytes() As Byte) As Image
    Dim imgNew As Image
    Dim memImage As New System.IO.MemoryStream(ImageBytes)
    imgNew = Image.FromStream(memImage)
    Return imgNew
End Function

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]