Само полезни материали
Основен акционер в Alibaba стана най-богатият човек в Китай
статии
Microsoft започна тестване частен офис 16
статии
Експертите са установили, вратички в Windows 8.1 за сигурност
статии
В метрото в Москва ще бъде единна мобилна мрежа
статии
иБей ще приема Bitcoin
статии
Vivitek въведе "училище" проектор D755WTIR
статии
В Twitter е имало бутона "Купи"
статии
"Yandeks.Novosti" вече могат да се видят на iPhone
статии
В този урок, ние ще се напише програма за проверка на поща.
Първото нещо, което трябва да направите е да вземе решение за задачите, които трябва да изпълните програмата. И така:
- Проверка на поща
- Възможност да се уточни периода на имейл сканиране
- уведомления Заключение когато получите нови съобщения
В резултат на това, ние получаваме следния вид на прозореца (Фиг.2.):
Фиг.2.
След това създайте кода за бутона на събитието OnClick Button1 (за създаване на събитието, което трябва да кликнете два пъти върху един бутон, или да отидете на инспектор Object отидете на раздела Събития Прочетете, а след това кликнете два пъти върху празното поле до името OnClick): След създаването на събития автоматично генерира следното код:
процедура TForm1.Button1Click (Sender: TObject);
започвам
приключи;
След като редактирате, получаваме следния код:
процедура TForm1.Timer1Timer (Sender: TObject);
започвам
приключи;
Прилагане на кода за буквите:
Тази част от кода прави следното:
- Предава въведените параметри нас Edit1. Edit4 в IdPOP31
- Той се свързва със сървъра
- Ако връзката е успешна - в Memo1 показва броя на съобщенията, или показва връзка на съобщение за грешка.
- Прекратяването на връзката от сървъра
Резултатът може да се види в скрийншота по-долу:
Фигура 3. - Една добра връзка с оттеглянето на броя на буквите
Фигура 4. - Не бе установена връзка с грешка
Тази опция е предназначена за начинаещи. Разбира се, можете да включите фантазия и да финализира програмата. Добавяне на параметър запишете във файл, възможност за добавяне на много пощенски кутии, за да проверите, могат да бъдат сведени до минимум системния трей, ще се покаже уведомление - когато имате нови съобщения и много други. Ако някой се интересуват от тази тема - щастливо продължи.
Благодаря ви за вниманието.
Аз добавите материал и да замине за Виетнам, толкова дълго, колкото уроци Стигни до програмирането добре, ако твърде интересуват от пътуване в чужбина, а след това ви предлагам да остане във Виетнам на най-ниските разходи за пътуване приятели!
Още по темата
Свързани статии