В резултат на това, ние получаваме следния вид на прозореца (Фиг.2.):
Фиг.2.
След това създайте кода за бутона на събитието OnClick Button1 (за създаване на събитието, което трябва да кликнете два пъти върху един бутон, или да отидете на инспектор Object отидете на раздела Събития Прочетете, а след това кликнете два пъти върху празното поле до името OnClick): След създаването на събития автоматично генерира следното код:
процедура TForm1.Button1Click (Sender: TObject);
започвам
приключи;
След като редактирате, получаваме следния код:
процедура TForm1.Timer1Timer (Sender: TObject);
започвам
приключи;
Прилагане на кода за буквите:
Тази част от кода прави следното:
- Предава въведените параметри нас Edit1. Edit4 в IdPOP31
- Той се свързва със сървъра
- Ако връзката е успешна - в Memo1 показва броя на съобщенията, или показва връзка на съобщение за грешка.
- Прекратяването на връзката от сървъра
Резултатът може да се види в скрийншота по-долу:
Фигура 3. - Една добра връзка с оттеглянето на броя на буквите
Фигура 4. - Не бе установена връзка с грешка
Тази опция е предназначена за начинаещи. Разбира се, можете да включите фантазия и да финализира програмата. Добавяне на параметър запишете във файл, възможност за добавяне на много пощенски кутии, за да проверите, могат да бъдат сведени до минимум системния трей, ще се покаже уведомление - когато имате нови съобщения и много други. Ако някой се интересуват от тази тема - щастливо продължи.
Благодаря ви за вниманието.
Свързани статии