vb.net ISCP получение после отправки - PullRequest
Новая
       27

vb.net ISCP получение после отправки

1 голос
/ 15 ноября 2011

Привет всем, у меня есть следующий код, который я посылаю по сети на ресивер Onkyo.Я хотел бы получить обратную связь от этого, но я не могу найти способ сделать это.Я знаю команду для отправки, чтобы она отправляла что-то обратно, но что касается приведенного ниже кода, она только отправляет команду и не ожидает возврата.Вот что мне нужно для помощи: 

Private Sub SendCommand(ByVal command As String)
    Dim Stream As NetworkStream
    Dim Client As New TcpClient()
    Dim streamw As StreamWriter
    Dim i As Int32

    Client.Connect("192.168.9.100", 60128)
    Stream = Client.GetStream()

    If Client.Connected And Stream.CanWrite Then
        streamw = New StreamWriter(Stream)
        Dim sendBytes(command.Length + 18) As Char

        sendBytes(0) = "I"
        sendBytes(1) = "S"
        sendBytes(2) = "C"
        sendBytes(3) = "P"
        sendBytes(4) = Chr(0)
        sendBytes(5) = Chr(0)
        sendBytes(6) = Chr(0)
        sendBytes(7) = Chr(16)
        sendBytes(8) = Chr(0)
        sendBytes(9) = Chr(0)
        sendBytes(10) = Chr(0)
        sendBytes(11) = Chr(command.Length + 3)
        sendBytes(12) = Chr(1)
        sendBytes(13) = Chr(0)
        sendBytes(14) = Chr(0)
        sendBytes(15) = Chr(0)
        sendBytes(16) = "!"
        sendBytes(17) = "1"

        For i = 0 To (command.Length - 1)
            sendBytes(18 + i) = command.Chars(i)
        Next

        sendBytes(command.Length + 18) = Chr(13) '&HD
        streamw.Write(sendBytes)

        'Dim bytes(Client.ReceiveBufferSize) As Byte
        'Stream.Read(bytes, 0, CInt(Client.ReceiveBufferSize))
        'Dim returndata As String = Encoding.ASCII.GetString(bytes)
        'Debug.Print(("Host returned: " + returndata))

        streamw.Flush()
    Else
        MsgBox("error: Stream writing failed")
    End If
    Client.Close()
End Sub

Любая помощь будет отличной!Спасибо

Дэвид

...