none
Cliente VB .NET no se comunica correctamente con Servidor Java RRS feed

  • Pregunta


  • Imports System.Net ' for IPAddress
    Imports System.Net.Sockets

    Public Class Cliente

        Private command As String
        Private port As Integer 'this is the port number
        Private server As String ' this is the IP address
        Private cliente As TcpClient
        Private serverStream As NetworkStream
        Private outStream As Byte()

        Public Function iniciarCliente() As Boolean

            port = 5000
            server = "127.0.0.1"

            Try

                cliente = New TcpClient
                cliente.Connect(server, port)

                Return True

            Catch ex As Exception

                Return False

            End Try

        End Function


        Public Function comando(ByVal command As String)

            Try


                If cliente.Connected = True Then

                    serverStream = cliente.GetStream()

                    outStream = System.Text.Encoding.UTF8.GetBytes(command)

                    serverStream.Write(outStream, 0, outStream.Length)

                    System.Console.WriteLine(command)
                    System.Console.Read()

                Else

                    System.Console.WriteLine("No conectado")
                    System.Console.Read()

                End If

                Return True

            Catch ex As Exception

                Return False

            End Try


        End Function


    End Class
    miércoles, 5 de noviembre de 2014 20:35

Todas las respuestas

  • Es un asunto de programación, por lo cual no debería estar aquí sino en uno de los foros MSDN. Además, los bloques catch están ocultando la causa del error. Por lo pronto, si no hay ningún proceso esté escuchando en el puerto TCP 5000 local (127.0.0.1), la conexión fallará.

    miércoles, 5 de noviembre de 2014 23:55