VPF::пароль на ftp - Форум программистов

BLACK_KOT

Дата 28.3.2009, 20:11 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 20.12.2006

Репутация: -1
Всего: -1

фтп на компоненте 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;

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

--------------------

.. я - демо версия Бога от Microsoft..

Virtuals

Дата 29.3.2009, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

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

Цитата

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

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

Это сообщение отредактировал(а) Virtuals - 29.3.2009, 13:02

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »