Socket Cliente solo xharbour sin FiveWin

[jgayoso]

Si alguien me puede colaborar con un código de socket en xHarbour sin FiveWin. La idea que envie un mensaje a un IP y puerta determinada y espere respuesta durante un tiempo X.

Desde ya se agradece.

Me ayudarian bastante de dar vuelta un aplicativo en clipper.

[pablovidal]

Esto es parte del codigo que uso. usalo a modo de ejemplo, me funciona con FWxH y xHb indistintamente.- En Windows, linux

Code: Select all

Method SendData() Class tDisa
LOCAL cBuffer, cRequest, cResponse, nBytes, pSocket
Local lOk     := .F.
Local aToken  := {}
Local cToken  := ""
Local cSql    := ""
Local cTicket := ""

default lAnular := .F.

  INetInit()
  pSocket := INetConnect( IPdelServidor, nPuerto )

  IF INetErrorCode( pSocket ) <> 0
    Alert( "Socket error:" + INetErrorDesc( pSocket ) )
    INetCleanUp()
    lError := .T.
    Return(.F.)
  ENDIF

  nBytes      := INetSend( pSocket, cTrama )
  cBuffer      := Space(441)
  cResponse := ""

  WHILE ( nBytes > 0 )
   nBytes    := INetRecv(pSocket, @cBuffer )
   cResponse += Left( cBuffer, nBytes )
   cBuffer   := Space(411)
  ENDDO

 aToken := HB_ATokens( cResponse, chr(17) )

 For nAt := 1 to Len( aToken )
  If nAt == 15
   aToken[15] := SubStr( aToken[15], 1, (Len( aToken[15] ) - 1) )
  EndIf
 Next nAt

Return( .t. )
 

[jgayoso]

Gracias Pablo, muy agradecido.

[jgayoso]

Pablo, se agradece, si me puedes indicar un ejemplo de como usar en honor al tiempo, se agradeceria mucho.

Esto es parte del codigo que uso. usalo a modo de ejemplo, me funciona con FWxH y xHb indistintamente.- En Windows, linux

Code: Select all

Method SendData() Class tDisa
LOCAL cBuffer, cRequest, cResponse, nBytes, pSocket
Local lOk     := .F.
Local aToken  := {}
Local cToken  := ""
Local cSql    := ""
Local cTicket := ""

default lAnular := .F.

  INetInit()
  pSocket := INetConnect( IPdelServidor, nPuerto )

  IF INetErrorCode( pSocket ) <> 0
    Alert( "Socket error:" + INetErrorDesc( pSocket ) )
    INetCleanUp()
    lError := .T.
    Return(.F.)
  ENDIF

  nBytes      := INetSend( pSocket, cTrama )
  cBuffer      := Space(441)
  cResponse := ""

  WHILE ( nBytes > 0 )
   nBytes    := INetRecv(pSocket, @cBuffer )
   cResponse += Left( cBuffer, nBytes )
   cBuffer   := Space(411)
  ENDDO

 aToken := HB_ATokens( cResponse, chr(17) )

 For nAt := 1 to Len( aToken )
  If nAt == 15
   aToken[15] := SubStr( aToken[15], 1, (Len( aToken[15] ) - 1) )
  EndIf
 Next nAt

Return( .t. )