В данном разделе я предлагаю реализацию программы почтовой ретрансляции для программистов Borland Delphi. Для реализации программы тебе необходим минимум Borland Delphi 6.0, т.к. начиная с данной версии, в комплект поставки включён компонент TIdMappedPortTCP.
Создадим новый проект, выбрав в меню: File > New > Application. Переименуем главную форму программы и сохраним проект. Кинем на главную форму два компонента TIdMappedPortTCP. Один назовём mpSMTP, другой mpPOP3. Это будут ретрансляторы соответствующих протоколов.
Рассмотрим настройку свойств компонентов. Свойства и значения компонента mpSMTP представлен в таблице ниже.
| Свойство | Значение |
| DefaultPort | 2025 |
| MappedHost | smtp.narod.ru |
| MappedPort | 25 |
| Name | mpSMTP |
Свойства и значения компонента mpPOP3 представлен в таблице ниже.
| Свойство | Значение |
| DefaultPort | 2110 |
| MappedHost | pop.narod.ru |
| MappedPort | 110 |
| Name | mpPOP3 |
Кинем на форму три кнопки и переименуем их: bnStart, bnStop, bnExit. Два раза кликнем на кнопке bnStart и вставим следующий код в обработчик:
begin
mpSMTP.Active := True;
mpPOP3.Active := True;
end;
Два раза кликнем на кнопке bnStop и вставим следующий код в обработчик:
begin
mpSMTP.Active := False;
mpPOP3.Active := False;
end;
Два раза кликнем на кнопке bnExit и вставим следующий код в обработчик:
begin
Close;
end;
Данные кнопки будут выполнять запуск ретрансляции, останов ретрансляции и выход из программы соответственно.
Фактически это весь код. Если есть необходимость можешь добавить ещё компонентов TIdMappedPortTCP на форму и сделать поддержку дополнительных почтовых серверов.
Мой демонстрационный пример немного отличается оттого, что я тебе здесь рассказал. Но отличие состоит только в оформлении. Ну, это уже на твоё воображение.
Если хочешь посмотреть на внешний вид окна моего демонстрационного примера, то щёлкай здесь. Если просто хочешь скачать исходники, то щёлкай здесь.
| | 18.10.2005 |
