netio_Connect
en este codigo
Code: Select all
method conecta() class tWg_Android
/* connect to the server */
//? "CONNECTING..."
::lConecta = netio_Connect( NETSERVER, NETPORT,, NETPASSWD )
msginfo( "netio_Connect():" + AnyToChar ( ::lConecta ) )
if !::lConecta
return ::lConecta
end
/* display text on server console */
net:QOut( Replicate( "=", 70 ) )
net:QOut( "This is RPC TEST", hb_DateTime(), Version() )
net:QOut( 'terminal : ' + netname() )
net:QOut( 'fecha ingreso : ' + dtoc( date() ) )
net:QOut( 'hora ingreso : ' + time() )
net:QOut( 'sist operativo: ' + os() )
net:QOut( Replicate( "=", 70 ) )
return ::lConecta
Wilson