Ca rezultat, obținem următoarea vedere a ferestrei (Fig.2):
Fig.2.
Apoi a crea codul pentru butonul eveniment onClick Button1 (pentru a crea evenimentul pe care trebuie să faceți dublu clic pe un buton, sau du-te la Object Inspector du-te la fila Evenimente de citire, apoi faceți dublu-clic pe câmpul liber de lângă numele onClick): După crearea de evenimente generează automat următoarele cod:
procedura TForm1.Button1Click (expeditor: TObject);
începe
se încheie;
După editarea acestuia, obținem următorul cod:
procedura TForm1.Timer1Timer (expeditor: TObject);
începe
se încheie;
Punem în aplicare codul pentru primirea de litere:
Această parte a codului face următoarele:
- Trece parametrii pe care i-am introdus cu Edit1. Editați4 în IdPOP31
- Conectează la server
- Dacă conexiunea are succes, acesta emite un număr de mesaje în Memo1, altfel afișează un mesaj cu o eroare de conectare.
- Deconectați-vă de la server
Rezultatul lucrării poate fi văzut în capturile de ecran de mai jos:
Figura 3. - Conexiune reușită cu ieșirea numărului de litere
Figura 4. - Conectare nereușită la eroare
Această opțiune este concepută pentru începători. Desigur, puteți include fantezie și puteți modifica programul. Adăugarea unui parametru salva într-un fișier, posibilitatea de a adăuga o mulțime de cutii poștale pentru a verifica, poate fi minimizată la tava de sistem, de notificare va fi afișată - când aveți mesaje noi și multe altele. Dacă cineva este interesat de acest subiect - voi continua fericit.
Vă mulțumesc pentru atenție.
Articole similare
Trimiteți-le prietenilor: