Senha na conexão socket Server/Client ??
Boa noite pessoal !! Como faço para colocar uma senha para se conectar a um servidor ServerSocket, utilizo o Delphi 7.
Saddan
Curtidas 0
Respostas
Nango Xus
14/01/2009
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.
GOSTEI 0