Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
No Consigo Conectar Con Sockets
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje No Consigo Conectar Con Sockets 
 
Hola. Es mi primer post

Leyendo este foro he aprendido mucho pero lo que no consigo es entender como conectar dos ordenadores mediante sockets. Tengo dos ordenadores y uno lo he puesto como cliente y el otro como servidor y debieran conectarse por el puerto 5000 pero no lo hacen. el servidor se queda listening y el cliente no conecta. Tras tantas pruebas al final puse los codes que vienen en gambasdoc.org
http://gambasdoc.org/help/doc/network

pero tampoco he podido con ellos. Me dice status -3 (refused) y creo que es porque el servidor al recibir la peticion no ejecuta el connect pero no se la razon si he hecho un paste del propio manual de gambasdoc. Además me da como errores unas clausulas static que no entiendo bien asi que no se si hago algo mal o hay algo mal o que ¿alguien podria poner un ejemplo minimo de dos ordenadores que llegan a conectar? Por cierto uso gambas 2.21 en ubuntu
 



 
olorak2 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: No Consigo Conectar Con Sockets 
 
dificil  sin adividinar
pero prueba esto
coloca la aplicacion servidor y la cliente en el mismo ordenador
para la direccion ip usas esta 127.0.0.1
si funciona es problema de la red  y si no funciona es problema del codigo
 



 
codificador - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: No Consigo Conectar Con Sockets 
 
Pongo 127.0.0.1 y a igual.

Y el código es el que pone en gambasdoc. Ya puse la direccion pero lo pasteo

este es el cliente

' gambas class file
STATIC App AS ClsMain
PUBLIC  MySock AS Socket

PUBLIC SUB MySock_Ready()

  WRITE #MySock,"Hello",5

END

PUBLIC SUB MySock_Read()

  DIM sCad AS String
  READ #MySock,sCad,Lof(MySock)
  PRINT sCad
  CLOSE #MySock

END


PUBLIC SUB _New()

  MySock=NEW Socket AS "MySock"
  MySock.Connect("name_of_host",3450)


END

PUBLIC SUB MySock_Error()

   PRINT "Unable to connect"

END



y este es el servidor

' gambas class file
STATIC Server AS ClsServer
PUBLIC Clients AS Object[]
PUBLIC Srv AS ServerSocket

PUBLIC SUB Socket_Read()

  DIM sCad AS String
  READ #LAST,sCad,Lof(LAST)
  PRINT "Received data -->" & sCad
  WRITE #LAST,"bye",3

END

PUBLIC SUB Socket_Closed()

  PRINT "Connection closed"
  Clients.Remove(Clients.Find(LAST))

END

PUBLIC SUB Srv_Connection(Host AS String)

  DIM MySock AS Socket
  PRINT "Accepting connection from --> " & Host
  MySock=Srv.Accept()
  Clients.Add(MySock)

END

PUBLIC SUB _New()

  Clients =NEW Object[]
  Srv=NEW ServerSocket AS "Srv"
  Srv.Port=3450
  Srv.Type=ServerSocket.Internet
  Srv.Listen()

END

STATIC PUBLIC SUB Main()

  Server=NEW ClsServer

END


Y si pegas eso tal cual y lo ejecutas obtienes un error por el static y no funciona. Yo lo he hecho con dos ordenadores pero tampoco pasa nada si le pones localhost. en uno solo. Puedes probar cambiando "name of host" con localhost o con la ip del servidor
 



 
última edición por olorak2 el Viernes, 25 Febrero 2011, 21:38; editado 1 vez 
olorak2 - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Problema Con Sockets soplo General 1 Lunes, 05 Octobre 2009, 11:00 Ver último mensaje
jguardon
No hay nuevos mensajes Sockets TCP/IP MiguelVelandia Aplicaciones/Fragmentos de Código 3 Domingo, 12 Septiembre 2010, 20:57 Ver último mensaje
MiguelVelandia
No hay nuevos mensajes No Consigo Guardar Cambios En Sqlite luisrel Bases de Datos 2 Jueves, 24 May 2012, 23:54 Ver último mensaje
luisrel
No hay nuevos mensajes No Consigo Sumar El Contenido De Dos Campo... desoljor Controles/Librerías/Componentes 12 Martes, 20 May 2014, 22:12 Ver último mensaje
soldadozero
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron