Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > пароль на ftp

Автор: BLACK_KOT 28.3.2009, 20:11

фтп на компоненте FtpServer простенький. как запоролить сервер?

Код


procedure TFtpServerForm.FtpServer1ClientConnect(Sender: TObject;
  Client: TFtpCtrlSocket; Error: Word);
begin
    if Client.PassWord<>'1234' then begin
    ShowMessage(Client.PassWord);
        Client.SendStr('421 Connection not allowed.' + #13#10);
        Client.Close;
        Exit;
    end;    
end;

коннекчусь к себе же через тотал коммандер - а он в качестве пароля емэйл вставляет.
поэтому такой код не катит.и ваще надо чтоб при попытке соединиться вылезало окно для ввода пароля. как это реализовать?

Автор: Virtuals 29.3.2009, 12:57

BLACK_KOT, если ты про компоненты ICS то смотри в OnAuthenticate

Цитата

тотал коммандер - а он в качестве пароля емэйл вставляет.

это называется анонимный вход, вот если на такой логин пароль ты сделаеш Authenticated:=false то и выскочит окошко с запросом логина пароля.