тільки корисні матеріали
Головний акціонер Alibaba став найбагатшою людиною в Китаї
статті
Microsoft почала закрите тестування Office 16
статті
Фахівці знайшли діри в безпеці Windows 8.1
статті
У московському метро з'явиться єдина мобільна мережа
статті
eBay буде приймати Bitcoin
статті
Vivitek представила «шкільний» проектор D755WTIR
статті
У Твіттері з'явилася кнопка «Купити»
статті
«Яндекс.Новини» тепер можна переглядати і на iPhone
статті
У цьому уроці ми напишемо програму для перевірки пошти.
Перше що нам треба зробити, це визначитися з завданнями які потрібно щоб виконувала дана програма. І так:
- Перевірка пошти
- Можливість завдання періоду перевірки пошти
- Висновок повідомляти в разі надходження нових листів
В результаті ми отримаємо такий вигляд вікна (Рис.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. - Невдале підключення з помилкою
Цей варіант розрахований для початківців. Звичайно можна включити фантазію і доопрацювати програму. Додавши збереження параметрів у файл, можливість додавання багато поштових скриньок для перевірки, можливість згортання в трей, висновок повідомлень - коли є нові повідомлення і багато чого іншого. Якщо кому цікава дана тематика - з радістю продовжу.
Дякуємо за увагу.
Дописую матеріал і їду в до В'єтнаму, а ви поки освоюйте уроки з програмування ну, а якщо теж цікавлять поїздки за кордон, тоді раджу вам відпочинок у В'єтнамі за мінімальними цінами подорожуємо друзі!