Перевірка пошти засобами delphi - програмні продукти

В результаті ми отримаємо такий вигляд вікна (Рис.2.):

Перевірка пошти засобами delphi - програмні продукти

Рис.2.

Далі створимо код для події onClick кнопки Button1 (для того щоб створити цю подію необхідно два рази клікнути на кнопку, або перейти в Object Inspector перейти на закладку Events, і два рази клікнути по порожньому полю біля назви onClick): Після створення події автоматично згенерує наступний код:

procedure TForm1.Button1Click (Sender: TObject);
begin
end;

Після його редагування ми отримаємо наступний код:

procedure TForm1.Timer1Timer (Sender: TObject);
begin
end;

Реалізуємо код для отримання листів:

Дана частина коду виконує наступні дії:

  1. Передає введені нами параметри з Edit1. Edit4 в IdPOP31
  2. Підключається до сервера
  3. Якщо підключення пройшло успішно - виводить в Memo1 кількість повідомлень, інакше виводить повідомлення з помилкою підключення.
  4. Відключаємося від сервера

Результат роботи можна подивитися на скріншотах нижче:

Перевірка пошти засобами delphi - програмні продукти

Рис.3. - Вдале підключення з висновком кількості листів

Перевірка пошти засобами delphi - програмні продукти

Рис.4. - Невдале підключення з помилкою

Цей варіант розрахований для початківців. Звичайно можна включити фантазію і доопрацювати програму. Додавши збереження параметрів у файл, можливість додавання багато поштових скриньок для перевірки, можливість згортання в трей, висновок повідомлень - коли є нові повідомлення і багато чого іншого. Якщо кому цікава дана тематика - з радістю продовжу.

Дякуємо за увагу.

Схожі статті