vb.net、Termie、スレッド、「オブジェクト参照がオブジェクトのインスタンスに設定されていません」

Question

Termie（C＃版のシロアリ）をvb.netに移植しています。私はC＃でこのアプリを使って作業してくれました。しかし、今回は、vb.netアプリケーションに折りたたむ必要があり、アプリケーションがシリアルポートから受け取ったときに「オブジェクトリファレンスがオブジェクトのインスタンスに設定されていません」というエラーが発生しています。

ここ

Private Sub ReadPort() 

    While _keepReading 
     If _serialPort.IsOpen Then 
      Dim readBuffer As Byte() = New Byte(_serialPort.ReadBufferSize) {} 
      Try 
       ' If there are bytes available on the serial port, 
       ' Read returns up to "count" bytes, but will not block (wait) 
       ' for the remaining bytes. If there are no bytes available 
       ' on the serial port, Read will block until at least one byte 
       ' is available on the port, up until the ReadTimeout milliseconds 
       ' have elapsed, at which time a TimeoutException will be thrown. 
       Dim count As Integer = _serialPort.Read(readBuffer, 0, _serialPort.ReadBufferSize) 
       Dim SerialIn As [String] = System.Text.Encoding.ASCII.GetString(readBuffer, 0, count) 
       DataReceived(SerialIn) 

      Catch generatedExceptionName As TimeoutException 
      Catch ex As Exception 
       MsgBox(ex.Message) 
      End Try 
     Else 
      Dim waitTime As New TimeSpan(0, 0, 0, 0, 50) 
      Thread.Sleep(waitTime) 
     End If 
    End While 
End Sub` 

DataReceived（SerialIn）失敗したコードだと、エラーがスローされます。ここで

は、私がそうな何かを明らかに届かないが、スレッドの作成との相互作用の様々な味が私にはあいまいであり、私は私の過去を取得することができていないデリゲート

'begin Observer pattern 
Public Delegate Sub EventHandler(param As String) 
Public DataReceived As EventHandler 
Public StatusChanged As EventHandler 

として指定しています方法ですエラー。

これは、ユビキタスな「オブジェクト参照が設定されていません...」というエラーが発生する理由です。そして、はい、私はオブジェクトが設定されていないことを取得します。 ;）ここで

私が呼び出そうとしてるものです：終ら以来

Friend Delegate Sub StringDelegate(ByVal strData As String) 

Public Sub ReceiveFromServer(ByVal strDataIn As String) 

    If Me.InvokeRequired() Then 
     ' InvokeRequired: We're running on the background thread. Invoke the delegate. 
     Me.Invoke(New StringDelegate(AddressOf ReceiveFromServer), New Object() {strDataIn}) 
    Else 
     Dim i As Integer = 0 
    End If 

End Sub 

Answer 1

は最終的に、私は先に行って、デリゲートの実装を再構築し、一貫性を維持する切り札。シリアルポート上のルーチンリスニングは次のようになります。

Public Delegate Sub DataReceived(ByVal MsgString As String) 
Public Delegate Sub EventHandler(param As String) 

（EventHandlerが他の場所で使用されている）

そして：

Private Sub ReadPort() 

    Dim MessagePump As DataReceived 
    MessagePump = AddressOf Serial_Port_UI.ReceiveFromServer 

    While _keepReading 
     If _serialPort.IsOpen Then 
      Dim readBuffer As Byte() = New Byte(_serialPort.ReadBufferSize) {} 
      Try 
       ' If there are bytes available on the serial port, 
       ' Read returns up to "count" bytes, but will not block (wait) 
       ' for the remaining bytes. If there are no bytes available 
       ' on the serial port, Read will block until at least one byte 
       ' is available on the port, up until the ReadTimeout milliseconds 
       ' have elapsed, at which time a TimeoutException will be thrown. 
       Dim count As Integer = _serialPort.Read(readBuffer, 0, _serialPort.ReadBufferSize) 
       Dim SerialIn As [String] = System.Text.Encoding.ASCII.GetString(readBuffer, 0, count) 
       MessagePump.Invoke(SerialIn) 
       'DataReceived(SerialIn) 

      Catch generatedExceptionName As TimeoutException 
      Catch ex As Exception 
       MsgBox(ex.Message) 
      End Try 
     Else 
      Dim waitTime As New TimeSpan(0, 0, 0, 0, 50) 
      Thread.Sleep(waitTime) 
     End If 
    End While 
End Sub 

をすべてがターゲットフォーム/クラスに希望の文字列を生成し、このこのように：

Public Delegate Sub StringDelegate(ByVal strData As String) 

Public Sub ReceiveFromServer(ByVal strDataIn As String) 

    If Me.InvokeRequired() Then 
     ' InvokeRequired: We're running on the background thread. Invoke the delegate. 
     Me.Invoke(New StringDelegate(AddressOf ReceiveFromServer), New Object() {strDataIn}) 
    Else 
     Dim i As Integer = 0 
    End If 

End Sub 

ありがとうHans for the help。