Sockets Error 10060

[Vikthor]

Hola a todos:

Cuando hago hago una conexión a un puerto y este no esta abierto, la aplicación me devuelve el error 10060.

La descripción del error es "Time-out error ".

Hasta ahí todo funciona muy bien.

Lo que no he podido controlar es que mi aplicación no permita ejecutar otra acción hasta que el socket reciba el mensaje del error y autómaticamente se cierre.

Esta es la función que estoy usando :

Code: Select all  Expand view  RUN

FUNCTION Client( oWnd )
   LOCAL cIp
   LOCAL cServer
   LOCAL nPort := 2510

   oSocket := TSocket():New( nPort )

   oSocket:bRead := { | oSocket | OnReadClient( oSocket ) }
   oSocket:bConnect := { | oSocket , nErrorCode  | ClientSend( oSocket , nErrorCode ) }
   oSocket:bClose := { || MsgInfo( "El Servidor cerro la sesion" ) , GetApp():oWnd:End() }
   oSocket:Connect( GetApp():cServer , nPort )

   oSocket:Listen()


RETURN( NIL )

FUNCTION ClientSend( oSocket , nError )

   IF nError == 0
      oSocket:SendData( "START "+GetHostName()+ " conectado desde "+ oSocket:cIPAddr+ " a las "+Time())
   ELSE
      MsgStop( "Error conexion..." + Str( nError ) +CRLF )
      GetApp():oWnd:End()
   ENDIF

RETURN( NIL )




EL código funciona, sin embargo el periodo de respuesta es cuando menos 45 segundos y durante ese periodo de tiempo el sistema permite hacer cualquier acción.

Hay alguna manera de que pueda controlar eso ?

[Vikthor]

Alguna pistita

Hola a todos:

Cuando hago hago una conexión a un puerto y este no esta abierto, la aplicación me devuelve el error 10060.

La descripción del error es "Time-out error ".

Hasta ahí todo funciona muy bien.

Lo que no he podido controlar es que mi aplicación no permita ejecutar otra acción hasta que el socket reciba el mensaje del error y autómaticamente se cierre.

Esta es la función que estoy usando :

Code: Select all  Expand view  RUN

FUNCTION Client( oWnd )
   LOCAL cIp
   LOCAL cServer
   LOCAL nPort := 2510

   oSocket := TSocket():New( nPort )

   oSocket:bRead := { | oSocket | OnReadClient( oSocket ) }
   oSocket:bConnect := { | oSocket , nErrorCode  | ClientSend( oSocket , nErrorCode ) }
   oSocket:bClose := { || MsgInfo( "El Servidor cerro la sesion" ) , GetApp():oWnd:End() }
   oSocket:Connect( GetApp():cServer , nPort )

   oSocket:Listen()


RETURN( NIL )

FUNCTION ClientSend( oSocket , nError )

   IF nError == 0
      oSocket:SendData( "START "+GetHostName()+ " conectado desde "+ oSocket:cIPAddr+ " a las "+Time())
   ELSE
      MsgStop( "Error conexion..." + Str( nError ) +CRLF )
      GetApp():oWnd:End()
   ENDIF

RETURN( NIL )




EL código funciona, sin embargo el periodo de respuesta es cuando menos 45 segundos y durante ese periodo de tiempo el sistema permite hacer cualquier acción.

Hay alguna manera de que pueda controlar eso ?

[Antonio Linares]

Vikthor,

Depende de que la conexión sea síncrona ó asíncrona.
Sincrona fuerza a esperar y no deja hacer nada mientras tanto.

La clase TSocket llama a WSAAsyncSelect(). No habría que llamar a esa función para forzar que sea una comunicación síncrona. Habría que probarlo.

Otra opción es deshabilitar la ventana principal con oWnd:Disable() para que el usuario no pueda hacer nada, y habilitarla con oWnd:Enable() cuando se establezca la conexión.

[Vikthor]

revisando la clase tSocket

Code: Select all  Expand view  RUN

   WSAAsyncSelect( ::nSocket, WndMain():hWnd, WM_ASYNCSELECT,;
      nOr( FD_ACCEPT, FD_OOB, FD_READ, FD_CLOSE, FD_CONNECT, FD_WRITE ) )


En FW se usan socket asíncronos.

Gracias

Vikthor,

Depende de que la conexión sea síncrona ó asíncrona.
Sincrona fuerza a esperar y no deja hacer nada mientras tanto.

La clase TSocket llama a WSAAsyncSelect(). No habría que llamar a esa función para forzar que sea una comunicación síncrona. Habría que probarlo.

Otra opción es deshabilitar la ventana principal con oWnd:Disable() para que el usuario no pueda hacer nada, y habilitarla con oWnd:Enable() cuando se establezca la conexión.

[/code]