static void hb_inetConnectInternal( HB_BOOL fResolve )
{
const char * szHost = hb_parc( 1 );
char * szAddr = NULL;
PHB_SOCKET_STRUCT socket = HB_PARSOCKET( 3 );
PHB_ITEM pSocket = NULL;
int iPort = hb_parni( 2 );
if( szHost == NULL || iPort == 0 || ( socket == NULL && ! HB_ISNIL( 3 ) ) )
hb_inetErrRT();
else
{
if( ! socket )
HB_SOCKET_INIT( socket, pSocket );
else if( socket->sd != HB_NO_SOCKET )
hb_inetCloseSocket( socket, HB_FALSE );
if( fResolve )
szHost = szAddr = hb_socketResolveAddr( szHost, HB_SOCKET_AF_INET );
if( fResolve && ! szAddr )
{
hb_inetGetError( socket );
if( socket->iError == 0 )
socket->iError = HB_SOCKET_ERR_WRONGADDR;
}
else
{
/* Creates comm socket */
socket->sd = hb_socketOpen( HB_SOCKET_PF_INET, HB_SOCKET_PT_STREAM, 0 );
if( socket->sd == HB_NO_SOCKET )
hb_inetGetError( socket );
else
{
if( socket->remote )
hb_xfree( socket->remote );
if( hb_socketInetAddr( &socket->remote, &socket->remotelen,
szHost, iPort ) )
{
hb_socketSetKeepAlive( socket->sd, HB_TRUE );
if( hb_socketConnect( socket->sd, socket->remote, socket->remotelen,
socket->iTimeout ) != 0 )
hb_inetGetError( socket );
else
socket->iError = HB_INET_ERR_OK;
}
else
hb_inetGetError( socket );
}
if( szAddr )
hb_xfree( szAddr );
}
if( pSocket )
hb_itemReturnRelease( pSocket );
else
hb_itemReturn( hb_param( 3, HB_IT_ANY ) );
}
}
static AREAP s_foxAreaPointer( int iParam )
{
if( HB_ISNIL( iParam ) )
return ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
else
{
const char * szAlias = hb_parc( iParam );
int iArea;
if( szAlias )
hb_rddGetAliasNumber( szAlias, &iArea );
else
iArea = hb_parni( iParam );
return ( AREAP ) hb_rddGetWorkAreaPointer( iArea );
}
}
/*
wxSocketBase_ReadBase
Teo. Mexico 2009
*/
void wxSocketBase_ReadBase( HB_BYTE type )
{
PHB_ITEM pSelf = hb_stackSelfItem();
wx_SocketBase* socketBase = (wx_SocketBase*) xho_itemListGet_XHO( pSelf );
PHB_ITEM pBuffer = hb_param( 1, HB_IT_STRING );
if( pBuffer == NULL || !HB_ISBYREF( 1 ) )
{
hb_errRT_BASE_SubstR( EG_ARG, WXH_ERRBASE + 10, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
return;
}
if( socketBase )
{
pBuffer = hb_itemUnShareString( pBuffer );
wxUint32 nbytes = HB_ISNIL( 2 ) ? hb_itemGetCLen( pBuffer ) : hb_parnl( 2 );
if( nbytes > 0 )
{
if( nbytes > hb_itemGetCLen( pBuffer ) )
hb_itemReSizeString( pBuffer, nbytes );
if( type == '0' )
socketBase->Read( (char *) hb_itemGetCPtr( pBuffer ), nbytes );
else
socketBase->ReadMsg( (char *) hb_itemGetCPtr( pBuffer ), nbytes );
wxUint32 uiLastCount = socketBase->LastCount();
if( uiLastCount < hb_itemGetCLen( pBuffer ) )
// hb_itemGetCLen( pBuffer ) = uiLastCount;
hb_itemReSizeString( pBuffer, uiLastCount );
}else
hb_errRT_BASE_SubstR( EG_ARG, WXH_ERRBASE + 10, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS );
hb_itemReturn( pSelf );
}
}
static HB_BOOL hb_sxOrdParam( LPDBORDERINFO pInfo )
{
memset( pInfo, 0, sizeof( DBORDERINFO ) );
if( HB_ISCHAR( 1 ) )
{
pInfo->itmOrder = hb_param( 1, HB_IT_STRING );
pInfo->atomBagName = hb_param( 2, HB_IT_STRING );
}
else if( HB_ISNUM( 1 ) )
{
pInfo->itmOrder = hb_param( 1, HB_IT_NUMERIC );
if( ! HB_ISNIL( 2 ) ) /* hb_pcount() > 2 */
{
pInfo->atomBagName = hb_param( 2, HB_IT_NUMERIC );
if( hb_parni( 2 ) <= 0 )
return HB_FALSE;
}
}
return HB_TRUE;
}
