Fórum Senha por SOCKETS! #170200
18/07/2003
0
Preciso o seguinte:
Tenho um EDIT no form CLIENTE, e outro edit no form SERVIDOR. O servidor digita em seu respectivo EDIT uma senha, o caso ´123´. Aí preciso que quando o cliente for se conectar no servidor, o servidor exija do cliente a senha que foi digitada em no edit do servidor, ai se o cliente digitou ´123´ no edit do cliente aí sim o cliente se conecta ao servidor. ISTO TUDO É VIA SOCKET´s.
COMO FAZER ISSO ?
Rodrigo!
Tenho um EDIT no form CLIENTE, e outro edit no form SERVIDOR. O servidor digita em seu respectivo EDIT uma senha, o caso ´123´. Aí preciso que quando o cliente for se conectar no servidor, o servidor exija do cliente a senha que foi digitada em no edit do servidor, ai se o cliente digitou ´123´ no edit do cliente aí sim o cliente se conecta ao servidor. ISTO TUDO É VIA SOCKET´s.
COMO FAZER ISSO ?
Rodrigo!
Ropesca
Curtir tópico
+ 0
Responder
Posts
18/07/2003
R3yz0r
æ infelizmente tbm não sei como fazer isso, mas estou procurando na web material sobre conexões e talz....e seu encontrar eu posto aki.
E se tu encontrar poste aki tbm para eu saber como ki se faz hehehe
Falow e boas compilações!! :)
E se tu encontrar poste aki tbm para eu saber como ki se faz hehehe
Falow e boas compilações!! :)
Responder
Gostei + 0
19/07/2003
Robotizar
olha eu aqui te respondendo de novo
espero q esteja respondendo certo
faz o seguinte
no evento on connect do cliente ponha tipo assim
cliente.socket.sendtext(editSenha.text);
crie uma variavel global pra naum ficar repetindo isso toda hora depois de logado e pra naum dar erro
logado: boolean
e no evento on cliente read do server coloque
var
confere: integer;
begin
if logado = false then
begin
confere:= strToInt(socket.reciveText);
if confere <> editSenhaCerta.text then
server.close
else
logado = true;
pronto acho q é isso
olha naum to com o delphi aberto então algum comando deve estar errado mais da para entender
espero q esteja respondendo certo
faz o seguinte
no evento on connect do cliente ponha tipo assim
cliente.socket.sendtext(editSenha.text);
crie uma variavel global pra naum ficar repetindo isso toda hora depois de logado e pra naum dar erro
logado: boolean
e no evento on cliente read do server coloque
var
confere: integer;
begin
if logado = false then
begin
confere:= strToInt(socket.reciveText);
if confere <> editSenhaCerta.text then
server.close
else
logado = true;
pronto acho q é isso
olha naum to com o delphi aberto então algum comando deve estar errado mais da para entender
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)