netio_Disconnect aun no esta disponible?

[wilsongamboa]

Me esta dando error que no halla esta función
saludos

Wilson

[Antonio Linares]

Wilson,

Incluido, envio un nuevo build que lo incluye. Gracias!

[wilsongamboa]

Gracias Antonio ya funciona
saludos

Wilson

[Jairo Barbosa]

Hola wilsongamboa espero que este sea un buen dia para ti

Serias serias tan amable de facilitarme el codigo del ejercicio que hacer en donde involucras netio_diconnect.

Gracias Jairo

[wilsongamboa]

Estimado Jairo
aca está

Code: Select all

method conecta() class tWg_Android

    if ::lConecta
        msginfo('ya estamos conectados no intente nuevamente' + CRLF + 'se va a cansar el maquinista')
        return ::lConecta
    end


    /* connect to the server */
    //? "CONNECTING..."
    ::leaini()
    ::lConecta = netio_Connect( ::ipserver, ::nPort ,, ::cPassword )
    if !::lConecta
        return ::lConecta
    end
    /* display text on server console */
    net:QOut( Replicate( "=", 70 ) )
    net:QOut( "Acceso remoto   : " )
    net:QOut( "fecha y hora    : " , hb_DateTime() )
    net:QOut( "Version Compil  : " + Version()  )
    net:QOut( 'terminal remoto : ' + netname()  )
    net:QOut( 'fecha ingreso   : ' + dtoc( date() ) )
    net:QOut( 'hora  ingreso   : ' + time() )
    net:QOut( 'sist operativo  : ' + os() )
    net:QOut( Replicate( "=", 70 ) )

return ::lConecta
 

es en donde conecto
aca es donde se desconecta

Code: Select all

method desconectar() class tWg_Android

    local lDesconecta := .f.

    if ::lConecta
        lDesconecta = netio_Disconnect( ::ipserver, ::nPort )

        ::sayserver( netname() + ' Desconectado.. ' + dtoc( date() ) + ' '+ time() )
        ::lConecta = .f.
        ::msgsay( 'desconectado...' )
    end



return lDesconecta

cualquier duda aca estamos
voy muuy lento por falta de tiempo
solo estoy probando en Windows

saludos
Wilson

[wilsongamboa]

asi calculo el amino remoto de las tablas

Code: Select all

    #ifdef __REMOTO__
        GLB_Work = 'net:' + alltrim( ::ipserver ) +':'+ alltrim( str( ::nport ) ) +':' + alltrim( ::cPassword ) + ':'
        GLB_Work += '\sistemas\josenet\empre' + strzero( ::nEmpresa,3 ) +'\'+ alltrim( ::cGestion ) + '\'
    #else
        GLB_Work = '\sistemas\josenet\empre' + strzero( ::nEmpresa,3 ) +'\'+ alltrim( ::cGestion ) + '\'
    #endif

[Jairo Barbosa]

Gracias trabajare en el y me reporto

Podrías compartir tu correo? el mio es hk3dqc@gmail.com o administracion@servi-asia.com

Un cordial Abrazo

[wilsongamboa]

wilson.josenet arroba gmail punto com

[jnavas]

Wilson

Podrias documentar tus pruebas, de mi parte voy a documentar en formato Word todo lo que he aprendido de las clases de QT con Fivetouch, especialmente el BROWSE.

Estimado Jairo
aca está

Code: Select all

method conecta() class tWg_Android

    if ::lConecta
        msginfo('ya estamos conectados no intente nuevamente' + CRLF + 'se va a cansar el maquinista')
        return ::lConecta
    end


    /* connect to the server */
    //? "CONNECTING..."
    ::leaini()
    ::lConecta = netio_Connect( ::ipserver, ::nPort ,, ::cPassword )
    if !::lConecta
        return ::lConecta
    end
    /* display text on server console */
    net:QOut( Replicate( "=", 70 ) )
    net:QOut( "Acceso remoto   : " )
    net:QOut( "fecha y hora    : " , hb_DateTime() )
    net:QOut( "Version Compil  : " + Version()  )
    net:QOut( 'terminal remoto : ' + netname()  )
    net:QOut( 'fecha ingreso   : ' + dtoc( date() ) )
    net:QOut( 'hora  ingreso   : ' + time() )
    net:QOut( 'sist operativo  : ' + os() )
    net:QOut( Replicate( "=", 70 ) )

return ::lConecta
 

es en donde conecto
aca es donde se desconecta

Code: Select all

method desconectar() class tWg_Android

    local lDesconecta := .f.

    if ::lConecta
        lDesconecta = netio_Disconnect( ::ipserver, ::nPort )

        ::sayserver( netname() + ' Desconectado.. ' + dtoc( date() ) + ' '+ time() )
        ::lConecta = .f.
        ::msgsay( 'desconectado...' )
    end



return lDesconecta

cualquier duda aca estamos
voy muuy lento por falta de tiempo
solo estoy probando en Windows

saludos
Wilson

[jnavas]

Wilson
Como puedo instalar o crear un servidor NETIO?
cual es su funcion?
Busque en internet no encontre mucha información al respecto.

Gracias trabajare en el y me reporto

Podrías compartir tu correo? el mio es hk3dqc@gmail.com o administracion@servi-asia.com

Un cordial Abrazo

[wilsongamboa]

Estimado Juan buenos dias
HbNetio es una libreria para acceso de datos de una forma remota, tenemos dos partes, hbnetio.exe que ejecutas en donde se halla la parte servidora, puede ser una computadora conectada a internet, un maquina en una red local y una parte cliente que es el programa que tu escribes
Desde el cliente es factible acceder a los datos que estan remotos
en el arranque del server se debe especificar el puerto, la ip y donde esta el Root Dir que es desde donde parte el servidor ara hallar los archivos, en mi caso particular y he probado con
1.- En el mismo computador en este caso en una ventana de consola abro el server asi

c:\hb32\bin\hbnetio -port=2941 -pass=topsecret -iface=127.0.0.1 -rpc -rootdir=c:\hb32\bin\data

es decir desde el directorio data van a estar mis datos
en otra ventana de consola arranco el cliente

cliente.exe

para abrir una tabla que este en el server
ipserver = '127.0.0.1'
nport = 2941
cPassword = ''topsecret'

GLB_Work = 'net:' + alltrim( ipserver ) +':'+ alltrim( str( nport ) ) +':' + alltrim( cPassword ) + ':'

if netio_Connect( ipserver, nPort ,, cPassword )
use ( GLB_Work + 'clientes' ) new alias clientes exclusive
browse()
//desconecto
netio_Disconnect( ipserver, nPort )
end


bueno eso es mas o menos
ahora el .hbp lo tengo asi ( sin usar fivetouch)

hbnetio.hbc
-mt
-w3 -es2

espero te de una idea OJO solo uso tablas dbf, esa es mi necesidad

Tambien lo he probado en maquinas distintas dentro de una lan y funciona bien, aun no he probado via internet

saludos
Wilson

[wilsongamboa]

perdon en la varable glb_work falta un bac slach al final asi
GLB_Work = 'net:' + alltrim( ipserver ) +':'+ alltrim( str( nport ) ) +':' + alltrim( cPassword ) + ':\'


saludos


Wilson