Page 1 of 1

netio_Disconnect aun no esta disponible?

Posted: Mon Mar 16, 2015 3:54 pm
by wilsongamboa
Me esta dando error que no halla esta función
saludos

Wilson

Re: netio_Disconnect aun no esta disponible?

Posted: Mon Mar 16, 2015 4:04 pm
by Antonio Linares
Wilson,

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

Re: netio_Disconnect aun no esta disponible?

Posted: Mon Mar 16, 2015 6:48 pm
by wilsongamboa
Gracias Antonio ya funciona
saludos

Wilson

Re: netio_Disconnect aun no esta disponible?

Posted: Fri Mar 20, 2015 2:33 pm
by 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

Re: netio_Disconnect aun no esta disponible?

Posted: Fri Mar 20, 2015 4:04 pm
by 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

Re: netio_Disconnect aun no esta disponible?

Posted: Fri Mar 20, 2015 4:24 pm
by 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


Re: netio_Disconnect aun no esta disponible?

Posted: Fri Mar 20, 2015 10:07 pm
by 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

Re: netio_Disconnect aun no esta disponible?

Posted: Fri Mar 20, 2015 11:41 pm
by wilsongamboa
wilson.josenet arroba gmail punto com

Re: netio_Disconnect aun no esta disponible?

Posted: Mon Apr 06, 2015 10:34 pm
by 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.
wilsongamboa wrote: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

Re: netio_Disconnect aun no esta disponible?

Posted: Tue May 05, 2015 3:48 am
by jnavas
Wilson
Como puedo instalar o crear un servidor NETIO?
cual es su funcion?
Busque en internet no encontre mucha información al respecto.
Jairo Barbosa wrote: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

Re: netio_Disconnect aun no esta disponible?

Posted: Wed May 06, 2015 2:40 pm
by 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

Re: netio_Disconnect aun no esta disponible?

Posted: Wed May 06, 2015 2:43 pm
by 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