FiveTech Software tech support forums

Code: Select all

//----------------------------------------------------------------------------//

HB_FUNC( RECV )  //  nSocket --> cResult
{
   LPBYTE buffer = ( LPBYTE ) hb_xgrab( 8192 );

   // WORD wLen = recv( hb_parni( 1 ), ( char * ) buffer, 8192, 0 ); // 8192
   WORD wLen = recv( hb_parni( 1 ), ( char * ) buffer, 32350, 0 ); // 32350

   // if( wLen < 10000 )  // socket errors = 10000 + ...
   if( wLen < 32350 )  
      hb_storvclen( ( char * ) buffer, wLen, 2 );
   else
      hb_storvclen( "", 0, 2 );

   hb_retni( wLen );
   hb_xfree( buffer );
}

//----------------------------------------------------------------------------//
 

Code: Select all

LPBYTE buffer = ( LPBYTE ) hb_xgrab( 8192 );

Code: Select all

LPBYTE buffer = ( LPBYTE ) hb_xgrab( 32350 );

Code: Select all

      nLen = 1

      while nLen > 0
         cBuffer := Space( 4096 )
         if ( nLen := hb_socketRecv( hSocket, @cBuffer,,, TIMEOUT ) ) > 0  
            cRequest += Left( cBuffer, nLen )
         else
            if nLen == -1 .and. hb_socketGetError() == HB_SOCKET_ERR_TIMEOUT
               nLen = 0
            endif
         endif
      end