New Connected event in NamedPipeClient and minor changes

[filippobottega]

To solve issue #7 i have created the method StartSynchronously and the event Connected in NamedPipeClient.
Now it's possible to call PushMessage in Connected event handler without using WaitForConnection.
Use instead a blocking collection in Connected and Error event handlers.
Minor changes: WaitForConnection and WaitForDisconnection methods return WaitOne result.

Sample code:

      Dim responseGate = New Concurrent.BlockingCollection(Of YourMessageClass)
      Dim pushMessageGate = New Concurrent.BlockingCollection(Of Boolean)

      Dim client = New NamedPipeClient(Of YourMessageClass)(pipeName, serverName)

      Dim errorEventHandler = New PipeExceptionEventHandler(
        Sub(exception)
          pushMessageGate.Add(False)
        End Sub)

      Dim connectedEventHandler = New ConnectionEventHandler(Of YourMessageClass, YourMessageClass)(
        Sub(connection)
          connection.PushMessage(messageToPush)
          pushMessageGate.Add(True)
        End Sub)

      Dim serverMessageEventHandler = New ConnectionMessageEventHandler(Of YourMessageClass, YourMessageClass)(
        Sub(connection As NamedPipeConnection(Of YourMessageClass, YourMessageClass), message As YourMessageClass)
          responseGate.Add(message)
        End Sub)

      Dim shootDownClient =
        Sub()
          client.Stop()
          RemoveHandler client.Error, errorEventHandler
          RemoveHandler client.Connected, connectedEventHandler
          RemoveHandler client.ServerMessage, serverMessageEventHandler
        End Sub

      AddHandler client.Error, errorEventHandler
      AddHandler client.Connected, connectedEventHandler
      AddHandler client.ServerMessage, serverMessageEventHandler

      client.StartSynchronously()

      Dim pushMessageResult As Boolean = False
      If Not pushMessageGate.TryTake(pushMessageResult, 10000) Then
        ' Pipeline Timeout
        shootDownClient.Invoke
        Return
      End If

      If pushMessageResult = False Then
        shootDownClient.Invoke
        Return
      End If

      Dim responseMessage As YourMessageClass = Nothing
      If Not responseGate.TryTake(responseMessage, millisecondsTimeout) Then
        ' Client Timeout
        shootDownClient.Invoke
        Return
      End If