Доброго времени суток!
Имеется написанный FTP сервер, но нужно к нему прикрутить систему авторизации для нескольких клиентов (в данный момент только один):
Код:
procedure TFTPServer.IdFTPServer1UserLogin(ASender: TIdFTPServerThread;
const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
AAuthenticated:=(AUsername='admin') and (APassword='password');
if not AAuthenticated
then Exit;
ASender.HomeDir:='/';
ASender.currentdir:='/';
end;
Можно ли это как модифицировать для того чтобы он подключал пользователей под разными именами (заранее приписанными)?