Home

Page 201
Page 201
background image

 Глава 4

if

 = true then

begin

FtpServerl.Stop;

end;

end;

Здесь происходит проверка: если сервер запущен, то сначала нужно отклю-
чить всех пользователей с помощью метода DisconnectAll, а затем остано-

вить сервер методом stop. Желательно всегда отключать пользователей от
сервера перед остановкой, чтобы не возникало ошибок.

Любые серверные приложения должны быть надежны и проверять любые

нестандартные ситуации, чтобы не вызывать сбои в работе самого сервера и

ОС в целом. Для этого программист должен действовать, исходя из мини-
мальных допущений. Любой параметр, передаваемый программе, должен
проверяться на корректность. Если клиент передаст вам неверный
(а он это сделает, уж поверьте мне), а ваша программа обработает его не-
корректно, то для сервера все может закончиться плачевно. Как минимум
программа повиснет, а как максимум могут испортиться данные на жестком

диске сервера.

У компонента

 нужно обрабатывать достаточно много событий.

Одно из них

 При его срабатывании включается следующий

набор операторов:
procedure

Client: TFtpCtrlSocket;

 Password: TFtpString;

var Authenticated: Boolean);

begin

if

 = false then

begin

clidir

 client);

if clidir

 then

begin

Authenticated

 true;

 := clidir;

end;

end

else

Authenticated

 false;

 пользователей: ' +

end;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.