Últimos mensajes - Powered by IBM

Palabras claves

Duda con Sockets

31/03/2005 - 17:57 por César | Informe spam

tengo una duda de cómo hacer la comunicación por sockets, me dieron en la
uni como tarea hacer un programilla que, usando sockets, se conecte a una ip
determinada, enviar un string ("conectando") y esperar la respuesta(que es
un string "conectado" o "error al conectar", pero no he podido hacer que
funcione bien...
funciona en mi máquina a través de una lan, pero cuando hago la prueba con
la ip remota, falla al conectar...
¿alguna idea?

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 César

31/03/2005 - 18:31 | Informe spam

este es el código... de olvidadizo no lo puse antes..
siempre me devuelve el mismo mensaje "System.Net.Sockets.SocketException: No
se ha podido establecer conexión ya que el equipo de destino ha denegado
activamente dicha conexión
at System.Net.Sockets.TcpClient.Connect(String hostname, Int32 port)
at Prueba.Form1.Form1_Load(Object sender, EventArgs e) in
C:\Trabajos\Probando\Prueba\Form1.vb:line 48"

Imports System.Net.Sockets

Imports System.Text

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim tcpClient As New System.Net.Sockets.TcpClient

Try

tcpClient.Connect("192.168.1.154", 1400)

Catch ex As Exception

MsgBox(ex.ToString)

tcpClient.Close()

Exit Sub

End Try

Dim networkStream As NetworkStream = tcpClient.GetStream()

If networkStream.CanWrite And networkStream.CanRead Then

If Not networkStream.CanRead Then

MsgBox("No se pueden escribir datos en este Stream")

tcpClient.Close()

Else

If Not networkStream.CanWrite Then

MsgBox("No se pueden leer datos de este Stream")

tcpClient.Close()

End If

End If

End If

End Sub

Responder a este mensaje

#2 DJMIAO

01/04/2005 - 12:42 | Informe spam

Porque no usas los webservices?

Miao...
Comprate un libro.

este es el código... de olvidadizo no lo puse antes..
siempre me devuelve el mismo

mensaje "System.Net.Sockets.SocketException: No

se ha podido establecer conexión ya que el equipo de

destino ha denegado

activamente dicha conexión
at System.Net.Sockets.TcpClient.Connect(String

hostname, Int32 port)

at Prueba.Form1.Form1_Load(Object sender, EventArgs

e) in

C:\Trabajos\Probando\Prueba\Form1.vb:line 48"

Imports System.Net.Sockets

Imports System.Text

Private Sub Form1_Load(ByVal sender As System.Object,

ByVal e As

System.EventArgs) Handles MyBase.Load

Dim tcpClient As New System.Net.Sockets.TcpClient

Try

tcpClient.Connect("192.168.1.154", 1400)

Catch ex As Exception

MsgBox(ex.ToString)

tcpClient.Close()

Exit Sub

End Try

Dim networkStream As NetworkStream = tcpClient.GetStream

()

If networkStream.CanWrite And networkStream.CanRead Then

If Not networkStream.CanRead Then

MsgBox("No se pueden escribir datos en este Stream")

tcpClient.Close()

Else

If Not networkStream.CanWrite Then

MsgBox("No se pueden leer datos de este Stream")

tcpClient.Close()

End If

End If

End If

End Sub

.

Responder a este mensaje

#3 César

01/04/2005 - 15:53 | Informe spam

porque no se como hacerlo :(

"DJMIAO" escribió en el mensaje
news:0f2301c536a7$8129dd50$
Porque no usas los webservices?

Miao...
Comprate un libro.

este es el código... de olvidadizo no lo puse antes..
siempre me devuelve el mismo

mensaje "System.Net.Sockets.SocketException: No

se ha podido establecer conexión ya que el equipo de

destino ha denegado

activamente dicha conexión
at System.Net.Sockets.TcpClient.Connect(String

hostname, Int32 port)

at Prueba.Form1.Form1_Load(Object sender, EventArgs

e) in

C:\Trabajos\Probando\Prueba\Form1.vb:line 48"

Imports System.Net.Sockets

Imports System.Text

Private Sub Form1_Load(ByVal sender As System.Object,

ByVal e As

System.EventArgs) Handles MyBase.Load

Dim tcpClient As New System.Net.Sockets.TcpClient

Try

tcpClient.Connect("192.168.1.154", 1400)

Catch ex As Exception

MsgBox(ex.ToString)

tcpClient.Close()

Exit Sub

End Try

Dim networkStream As NetworkStream = tcpClient.GetStream

()

If networkStream.CanWrite And networkStream.CanRead Then

If Not networkStream.CanRead Then

MsgBox("No se pueden escribir datos en este Stream")

tcpClient.Close()

Else

If Not networkStream.CanWrite Then

MsgBox("No se pueden leer datos de este Stream")

tcpClient.Close()

End If

End If

End If

End Sub

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida