Page 1 of 1

Validar Usario y Pass para conectar a recurso compartido

PostPosted: Wed Aug 19, 2009 9:18 pm
by GUSPRE
Quisiera preguntar si alguin me puede indicar como hago para solicitar el usuario y pass para acceder a un recurso compartido de red, tal cual lo hace windows, puedo usar la api, existe un función, quisiera desde la aplicación llamar al siguiente dialog de windows,

[img]
http://www.prediger.com.ar/downloads/login.jpg
[/img]

Se puede hacer ?, desde ya gracias,

saludos,

Re: Validar Usario y Pass para conectar a recurso compartido

PostPosted: Sat Aug 22, 2009 9:54 am
by Antonio Linares
Gustavo,

Revisa FWH\samples\TestNet.prg por si te sirven algunas de esas funciones

Re: Validar Usario y Pass para conectar a recurso compartido

PostPosted: Sat Aug 22, 2009 12:14 pm
by GUSPRE
Gracias Antonio lo tu respesta , en TestNet.prg hay ejemplos pero ninguno se adpata, la idea era usar directo la api y ventana que usa windows, pero bueno por las dudas si alguien necesita la solución es la siguiente:

1) Crear un función que solicite Usuario y Pass (Esto es necesario porque pueder que cada terminal use su propia clave de loquea al recurso y no es conveniente dejarla dentro de la aplicación o, se puede hacer un archivo de cadena de conexión incluyendo , ruta, o unidad virtual, usuario y pass, pero para nuestro caso no sirve esta opción,

Image

2) Crear el logueo mediante,

Code: Select all  Expand view

                 a_res:=toma_login()
                 IF a_res[1]
                        WNetAddConnection2(cc_ruta,ALLTRIM(a_res[3]),ALLTRIM(a_res[2]),LEFT(ud,2))
                IF FILE(ud+"\GRW232\DATA\GR2_000.DBF")
                             RETURN(.T.)
                             ELSE
                             RETURN(.F.)
                      ENDIF
                        ELSE
                        RETURN(.F.)
                 ENDIF

 


Saludos,

Re: Validar Usario y Pass para conectar a recurso compartido

PostPosted: Mon Aug 24, 2009 1:21 pm
by Baxajaun
Hola Gustavo,

busca por GINA API, quizás en ella encuentres tu solución.

Saludos,

Félix