EndReceive 결코 결코 수신되지 완료 비주얼 베이직 닷넷 내가 사용하고

Question

example of Microsoft (Visual Basic의 경우 4.5 순) 보내 datas는 소켓을 던져하지만,이 블록은 항상 true입니다받을 :

Private Sub OnRecieve(ByVal ar As IAsyncResult) 
    Try 
     Dim state As StateObject = CType(ar.AsyncState, StateObject) 
     Dim client As Socket = state.workSocket 

     ' Read data from the remote device. 
     Dim bytesRead As Integer = client.EndReceive(ar) 

     If bytesRead > 0 Then 
      ' There might be more data, so store the data received so far. 
      state.sb.Append(Encoding.ASCII.GetString(state.buffer, 0, bytesRead)) 

      ' Se supone que vuelve por los datos que faltan, pero no lo hace (Creo) 
      client.BeginReceive(state.buffer, 0, state.BufferSize, 0, AddressOf OnRecieve, state) 

     Else 
      ' All the data has arrived; put it in response. 
      If state.sb.Length > 1 Then 
       VariablesGlobales.response = state.sb.ToString() 
      End If 
      ' Signal that all bytes have been received. 
      receiveDone.Set() 
     End If 


    Catch ex As Exception 
     'clientSocket.Close() 
     RaiseEvent FallaAlRecibirDatos(ex.Message, "Falla en endReive.") 
    End Try 

End Sub 

하지만 보내 보내 짧거나 큰 메시지를 보내면 절대로 다른 문장을 입력 할 수 없습니다. 여기, 내 초기 코드 :

Public Sub Conectar() 

    clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) 

    Dim ipEndPoint As IPEndPoint = New IPEndPoint(Me.ipAddress, VariablesGlobales.Puerto) 
    clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), clientSocket) 

    ' Wait for connect. 
    connectDone.WaitOne() 

    EnviarDatosPersonales() 

    ' Wait for send datas. 
    sendDone.WaitOne() 

    While True 
     AvtivarEscuchador() 
     receiveDone.WaitOne() 

     DescifrarMsg(VariablesGlobales.response) 
    End While 
End Sub 

내가, 내가 서버가 보내는 메시지를 받아 봐하지, 나는 단계에 비주얼 스튜디오 단계에서 그들을 볼 수 있지만, 그것은 결코 다른 사람에 들어 가지 이유는 모르겠어요 데이터 수신을 완료하지 못합니다.

나는 the answer of Marc Gravell을 읽었지만 이것을 해결하는 방법에 대한 코드 예제를 선호합니다. 어떻게해야할지 몰랐습니다.

또한 "else"를 제거하고 내 textBox를 많은 흰색 선으로 채 웁니다. 도와주세요. 감사.

죄송합니다 아, 여기 Escuchador 기능입니다 : 이미 마크 Gravell의 대답에 링크로

Private Sub AvtivarEscuchador() 

    ' Borramos los datos de respuesta anterior 
    VariablesGlobales.response = "" 

    ' Activamos el escuchador 
    Try 
     ' Create the state object. 
     Dim state As New StateObject() 
     state.workSocket = Me.clientSocket 

     ' Begin receiving the data from the remote device. 
     Me.clientSocket.BeginReceive(state.buffer, 0, state.BufferSize, 0, AddressOf OnRecieve, state) 
    Catch e As Exception 
     RaiseEvent FallaAlRecibirDatos("No se pudo activar el escuchador.", "Falla al intentar escuchar.") 
    End Try 

End Sub 

Answer 1

, 중요한 일에 자신의 첫 번째 문장 :

는

"EndReceive 잘 공을받을 수 있습니다 스트림이 닫힌 경우이고 모든 데이터가 소비되었습니다. "

스트림이 열려있는 한 EndReceive에서 절대로 0을 얻지 못할 것입니다. 프로토콜에 따라 보유한 데이터를 처리하여 메시지의 끝을 찾고 응답을 보내야합니다.

If bytesRead > 0 Then 
    ' There might be more data, so store the data received so far. 
    state.sb.Append(Encoding.ASCII.GetString(state.buffer, 0, bytesRead)) 

    ' Put here code to check for protocol end (for example \0) in your buffer state.sb 
    ' and handle protocol if found. The rest of the buffer should remain in the buffer 
    ' as it could be part of the next protocol. 

    ' if you only except one message, set receiveDone.Set() here if message received 
    ' completely 

    ' Se supone que vuelve por los datos que faltan, pero no lo hace (Creo) 
    client.BeginReceive(state.buffer, 0, state.BufferSize, 0, AddressOf OnRecieve, state) 

Else 
    'connection was closed 
    ' handle existing information if appropreate 
    receiveDone.Set() 
End If