Точно такая же технология может использоваться не только для создания отдельного приложения, но и при обслуживании Web-сайтов. CGI-приложениям еще никто не запрещал отправлять почту. Например, при прохождении регистрации, с целью получения правдивого адреса электронной почты, можно посылать ссылку для прохождения окончательного этапа регистрации или идентификационный номер пользователя в элек тронном письме. Эта процедура действует, например, на сайтах www.ctc-tv.ru и www.palm.com.

Для создания нашего киберпочтальона мы в Delphi 5 создаем новое приложение, и на его форме, помимо компонента MainMenu, размещаем компоненты для получения и отправки электронной почты — NMP0P3 и NMSMTP. Для компонента NMP0P3 мы заполняем свойства Host, Password и useriD. В свойстве Host мы устанавливаем имя почтового сервера используемого провайдера, например mail.myprovider.com. Свойства Userid и Password содержат логин пользователя и его пароль. А в меню мы создаем три отдельных пункта. Наименование первого пункта меню, т. е. его свойство Caption, мы установим как текстовую строку "Получение и отправка". К этому пункту меню мы привяжем основную деятельность нашего робота по отправке и получению писем.

Мы уже установили значения свойств Host, UseriD и Password. Но всегда может возникнуть ситуация, когда необходимо переустановить эти предустановленные значения. Для этого мы создаем второй пункт меню с наименованием "настройка". При выборе пользователем этого пункта мы будем активизировать дополнительное окно, в котором можно изменять значения свойств наших двух основных компонентов. Для этого создадим еще одну форму. Процесс ее создания мы рассмотрим немного позже.

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

Как мы помним, некоторые адреса мы заносим в базу данных. Следовательно, ее нужно создать. Поэтому мы активизируем поставляемое вместе с Delphi 5 средство работы с базами данных Database Desktop при помощи команды меню Tools/Database Desktop. В нем командой File/Working directory открываем диалоговое окно Set Working Directory и в качестве рабочего каталога устанавливаем ту папку, в которой хранится проект Delphi.

После установки рабочего каталога мы создадим в нем одну таблицу. Для этого выполним команду меню File/New/Table. В появившемся модальном окне Create Table при помощи выпадающего списка надо будет выбрать тип создаваемой таблицы. Предлагаемое по умолчанию значение Paradox 7 вполне подойдет.

Следующий шаг — создание структуры таблицы в диалоговом окне Create Table. В нашей таблице будет два поля. В первое занесем порядковый номер записанного адреса. Для этого мы используем поле с автоинкрементом, который в таблицах Paradox задействуется для создания уникальных идентификаторов. Это же поле будет ключевым.

А во втором поле мы будем хранить адреса электронной почты. Для этого мы используем строковый тип поля. Всю эту информацию необходимо занести в таблицу, которая определяет структуру создаваемой таблицы. Внешний вид уже заполненной таблицы-структуры показан на рис. 5.13.