Discussão sobre Banco de Dados e RDDs para Clipper/[x]Harbour.
22 Set 2015 18:52
Pessoal,
Estou qurendo testar um acesso ao servidor letodb informando usuário e senha:
Meu código de teste é esse:
- Código:
cServidorDB:='//'+cIpAddServer+':'+cPortaServer+HB_PS()
DO WHILE Leto_Connect( cServidorDB, "admin", "senha" ) == -1
nRes := leto_Connect_Err()
IF nRes == LETO_ERR_LOGIN
hwg_MsgStop("Login failed","Erro")
ELSEIF nRes == LETO_ERR_RECV
hwg_MsgStop("Recv Error","Erro")
ELSEIF nRes == LETO_ERR_SEND
hwg_MsgStop("Send Error","Erro")
ELSE
hwg_MsgStop("No connection","Errro"
ENDIF
hwg_DoEvents()
ENDDO
No letodb.ini
Habilitei:
; if 1, user authentication is necessary to
; login to the server;
Pass_for_Login = 1
Tem também Pass_File = "leto_users"
É neste arquivo que se grava os usuários/senhas para acesso?
Já procurei nao google e não achei uma dica sequer.
28 Set 2015 22:14
Não tentou isso
4.2 Authentication
To turn authentication subsystem on you need to set one of the following
letodb.ini parameters to 1: Pass_for_Login, Pass_for_Manage, Pass_for_Data. But before
you need to create, at least, one user with admin rights, because when authentication
subsystem works, only authenticated users with admin rights are able to add/change users
and passwords.
To add a user, you need to include a call of LETO_USERADD() in your client side
program, for example:
LETO_USERADD( "admin", "secret:)", "YYY" )
where "YYY" is a string, which gives rights to admin, manage and write access. You may
also use the utils/manager/console.prg program to set or change authentication data.
Pelo que entendi é necessário primeiro criar um usuario com direitos administrativos e depois adicionar os demais usuarios
No ini tem de ter
Pass_File = "leto_users" - the path and name of users info file;
29 Set 2015 09:45
Olá Esbasso,
Fiz o seguinte:
No letodb.ini
; if 1, user authentication is necessary to
; login to the server;
Pass_for_Login = 1
Tentei:
LETO_USERADD( "admin", "secret:)", "YYY" )
Antes do
- Código:
DO WHILE Leto_Connect( cServidorDB, "admin", "secret:)" ) == -1
nRes := leto_Connect_Err()
IF nRes == LETO_ERR_LOGIN
hwg_MsgStop("Login failed")
lConnect:=.F.
EXIT
ELSEIF nRes == LETO_ERR_RECV
hwg_MsgStop("Recv Error")
lConnect:=.F.
EXIT
ELSEIF nRes == LETO_ERR_SEND
hwg_MsgStop("Send Error")
lConnect:=.F.
EXIT
ELSE
hwg_MsgStop("No connection")
lConnect:=.F.
EXIT
ENDIF
hwg_DoEvents()
ENDDO
E sempre dá Login failed
29 Set 2015 09:49
O que eu não entendi é como informar os usuários no leto_users
No letodb.log dá: ERROR! ParseCommand()