В результаті ми отримаємо такий вигляд вікна (Рис.2.):
Рис.2.
Далі створимо код для події onClick кнопки Button1 (для того щоб створити цю подію необхідно два рази клікнути на кнопку, або перейти в Object Inspector перейти на закладку Events, і два рази клікнути по порожньому полю біля назви onClick): Після створення події автоматично згенерує наступний код:
procedure TForm1.Button1Click (Sender: TObject);
begin
end;
Після його редагування ми отримаємо наступний код:
procedure TForm1.Timer1Timer (Sender: TObject);
begin
end;
Реалізуємо код для отримання листів:
Дана частина коду виконує наступні дії:
- Передає введені нами параметри з Edit1. Edit4 в IdPOP31
- Підключається до сервера
- Якщо підключення пройшло успішно - виводить в Memo1 кількість повідомлень, інакше виводить повідомлення з помилкою підключення.
- Відключаємося від сервера
Результат роботи можна подивитися на скріншотах нижче:
Рис.3. - Вдале підключення з висновком кількості листів
Рис.4. - Невдале підключення з помилкою
Цей варіант розрахований для початківців. Звичайно можна включити фантазію і доопрацювати програму. Додавши збереження параметрів у файл, можливість додавання багато поштових скриньок для перевірки, можливість згортання в трей, висновок повідомлень - коли є нові повідомлення і багато чого іншого. Якщо кому цікава дана тематика - з радістю продовжу.
Дякуємо за увагу.