Fórum Senha na conexão socket Server/Client ?? #367701
14/01/2009
0
Boa noite pessoal !! Como faço para colocar uma senha para se conectar a um servidor ServerSocket, utilizo o Delphi 7.
Saddan
Curtir tópico
+ 0
Responder
Posts
15/01/2009
Nango Xus
Saddan
Voce pode fazer uma autenticação simples para isso:
[color=green:fe2308b787]procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: String;
begin
a:= ´123456´; // Sua senha aqui
b:= Edit1.Text;
if a <> b then // Testa senha
ShowMessage(´Senha Errada!!!!!!´)
else
begin
ShowMessage(´Senha Correta!!!!!´);
TcpServer1.Active:= True;
end;
end;[/color:fe2308b787]
Abraços.
Voce pode fazer uma autenticação simples para isso:
[color=green:fe2308b787]procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c: String;
begin
a:= ´123456´; // Sua senha aqui
b:= Edit1.Text;
if a <> b then // Testa senha
ShowMessage(´Senha Errada!!!!!!´)
else
begin
ShowMessage(´Senha Correta!!!!!´);
TcpServer1.Active:= True;
end;
end;[/color:fe2308b787]
Abraços.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)