by pablovidal » Thu Nov 18, 2010 6:48 pm
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 Expand view
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. )
Saludos,
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/