NullReferenceException（System.Text.Encoding.ASCII.GetBytes）[重复]

Question

关于这部分代码，我已经完全搞定了。 NullReferenceException 仅在运行时发生。

Public Sub SendData(ByVal b As String)
    Dim data(2048) As Byte
    data = System.Text.Encoding.ASCII.GetBytes(b)
    stream.Write(data, 0, data.Length)
End Sub

目的是获取一个字符串，并将该字符串的字节流式传输到另一台计算机。代码的 stream.Write 部分是抛出 NullReferenceException 部分的原因。但是，我通过调试检查了数据部分确实从代码的编码部分获取字节。所以我不确定它为什么会抛出 NullReferenceException。

Answer 1

您需要声明一个新的NetworkStream。另外，像这样调暗你的字节数组：

 Dim myBuffer() As Byte = Encoding.ASCII.GetBytes(b)
 myNetworkStream.Write(myBuffer, 0, myBuffer.Length) 

Answer 2

我的猜测是 you haven't initialized 你的 stream 对象带有 new 关键字。看here

还有几件事：

1) Do not initialize your byte array yourself. Let this task done by the `GetBytes` to return an initialized array and just store it in a variable.

2) Before writing to stream always check if you get something in your stream or not. 

类似：（未经测试）

Public Sub SendData(ByVal b As String)
    If (b IsNot Nothing AndAlso Not String.IsNullOrEmpty(b)) Then
       Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes(b) ' or use List<Byte> instead.
       If( data IsNot Nothing AndAlso data.Length > 0) Then stream.Write(data, 0, data.Length)
    Else
       ' Incoming data is empty
    End If

    ' Don't forget to close stream
End Sub

希望对你有帮助！