Indy ftp server

[noname_06]

Почему компонент ftpserver не генерирует события OnUserLogin и OnAfterUserLogin?

[Stilet]

С чего ты решил что не генерирует?

[noname_06]

Ну как бы это не я решил)

Сообщение от Stilet

Вау! Наконец то верная мысль )))
А то понимаешь ли и "проблема в синхронизации потоков" и "переносить код в событие IdFTPSrvUserLogin"
Директорию юзеру лучше всего задавать в OnListDirectory. Все равно получение списка файлов идет через это событие. Вот там и прибавляй свое c:\users\

[Stilet]

как бы это не я решил)

Ну как бы я не об этом толковал )
OnUserLogin по идее направленна на аутентификацию, зачем ее напрягать действиями, которые к этому событию не присущи. Клиент ФТП все равно запрашивает каталог через LIST или CD, это уже другие события.

[noname_06]

Предположим) Хотя не вижу иных причин задавать там директории, кроме религиозных. По факту же получается что код, расположенный в данных процедурах не выполняется. Проверял установкой breakpoint'ов.
Еще такая мысль: зачем вообще нужно задавать HomeDir и CurrentDir, если они все равно подменяются в OnListDirectory?

[Stilet]

Проверял установкой breakpoint'ов.

Значит клиент к тебе без авторизации проходит. У меня эти события срабатывают без проблем.

зачем вообще нужно задавать HomeDir и CurrentDir, если они все равно подменяются в OnListDirectory?

Имеешь ввиду на клиенте? или на сервере для каждого аккаунта?

[noname_06]

Сообщение от Stilet

Значит клиент к тебе без авторизации проходит.

В том то и хохма, что клиентское приложение проходит авторизацию. При этом для любого имени пользователя возвращает 331 User name okay, need password. Но сразу отказывает 530 Not logged in. Your password is being rejected, contact the server administrator.

procedure TfMain.IdFTPSrvUserLogin(ASender: TIdFTPServerContext;
  const AUsername, APassword: string; var AAuthenticated: Boolean);
var
  tmp : string;
begin
  AAuthenticated := IdUsrMngr.AuthenticateUser(AUsername, APassword);
  
  ShowMessage(ausername);
  redtLog.Lines.Add('ASender.Username: ' + ASender.Username);
  tmp := Options.StoredPath + ASender.Username + '/';

  if not DirectoryExists(tmp) then
    if not ForceDirectories(tmp) then
      MessageDlg('Невозможно создать директорию для пользователя ' + ASender.Username,
                 mtError, [mbYes], 0);
  ASender.HomeDir := tmp;
  ASender.CurrentDir := tmp;
end;

Нет ни ShowMessage(), ни текста в richedit redtLog.
В UserManager добавлен пробник user1 с паролем 1. Пускает только по этой связке.

Сообщение от Stilet

Имеешь ввиду на клиенте? или на сервере для каждого аккаунта?

Пока мучаю приложение-сервер. Для проверки захожу с total commander.

[Stilet]

procedure TForm1.FtpServerUserAccount(ASender: TIdFTPServerContext;
  const AUsername, APassword, AAcount: string; var AAuthenticated: Boolean);
begin
 AAuthenticated:=(AUsername=_user)and(APassword=_pass);
end;

procedure TForm1.FtpServerUserLogin(ASender: TIdFTPServerContext;
  const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
 AAuthenticated:=(AUsername=_user)and(APassword=_pass);
end;

И все у меня проходит. События эти срабатывают. Возможно они действуют в паре.