Home (Главная)

Page 161 - Страница 161
Page 161
background image

154

Глава 4

 Блокнот

Файл Правка Формат ! Справка

 rovi

gertva

  4 . 1 1 . Пример текстового файла

Далее, компоненту

 передается адрес почтового сервера и порт, вве-

денные вами в программу. Теперь наш компонент готов к подключению, и

можно начинать перебор. Для перебора запускается одновременно два цикла
по содержимому справочника имен и по справочнику паролей:

for i:=0 to

 do

for

 to

begin

end;

Это значит, что программа возьмет первое имя из справочника и будет вы-
полнять код, расположенный между begin и end, со всеми вариантами па-

ролей из справочника паролей. Потом будет взято следующее имя, и с ним

повторится та же процедура со всеми вариантами паролей.

Между следующими операторами и end производится попытка соединения.
Но сначала текущее имя и пароль передаются компоненту idPOP. Обратите

внимание, что для Delphi 6 у компонента

 имя пользователя нужно

указывать в свойстве

 а  7-й версии

 это

 Я не знаю, за-

чем сделали изменение имени свойства, но об этом нужно помнить.

Потом производится попытка соединения, и если она проходит удачно, то

об этом выводится сообщение.
Хочу обратить ваше внимание, что я заключил вызов соединения между

словами try . . .

 . .

 Это очень интересная и полезная конст-

рукция. Весь код, написанный между словами try и except, является как
бы защищенным от непредвиденных ситуаций.