Sarcina. Scrieți o aplicație cu ajutorul căreia se va putea verifica prezența mesajelor e-mail. Pentru început, vom rezolva următoarele subtascuri:
- Verificați e-mailurile pentru mesaje;
- Abilitatea de a seta perioada pentru verificarea corespondenței;
- Efectuarea notificărilor atunci când există mesaje;
Toolkit. Delphi, componente INDY
Încep o serie de articole care se concentrează pe crearea unui client de e-mail utilizând componentele Indy.
- Verificați e-mailurile pentru mesaje;
- Abilitatea de a seta perioada pentru verificarea corespondenței;
- Efectuarea notificărilor atunci când există mesaje;
Odată ce ați decis cu privire la planul de acțiune - vom trece la etapa următoare - crearea. Creați un nou proiect și plasați componenta idPOP3 pe formular. care se află pe fila IndyClients.
Pentru a verifica poșta, trebuie să treci niște parametri către componenta idPOP3 care să se conecteze, și anume:
Am plasat o componentă GroupBox pe formular din fila Standard pentru a grupa câmpurile. Pentru ca programul să fie mai "flexibil" - vom plasa 4 componente Edit și Label. acestea sunt în fila Standard. Am stabilit proprietățile componentelor, așa cum se arată în Tabelul 1.
Ca rezultat, obținem următoarea vedere a ferestrei (Fig.2):
Fig. 2 - Trimiterea poștei - Formularul de proiect
Scriem valorile function timer însărcinare, activați-l și afișa mesaje relevante în ResultMemo.
Declarați această funcție în secțiunea privată a formularului principal:
privat
funcția StartTimer # 40; T. Timer; int. întreg # 41;. șir de caractere;
Apoi a crea codul pentru butonul eveniment onClick butonul OK (pentru a crea evenimentul pe care trebuie să faceți dublu clic pe un buton, sau du-te la Object Inspector, deschideți fila Evenimente Citește, apoi faceți dublu-clic pe câmpul liber de lângă numele onClick): După crearea de evenimente generează automat următoarele cod:
procedura TMainForm. OkBtnClick # 40; Expeditor. TObject # 41; ;
începe
se încheie;
Folosim funcția scrisă anterior, pentru care trecem parametrii necesari:
procedura TMainForm. OkBtnClick # 40; Expeditor. TObject # 41; ;
începe
ResultMemo. Linii. adăuga # 40; StartTimer # 40; CheckTimer. StrToInt # 40; IntervalEdit. text # 41; # 41; # 41; ;
se încheie;
Luați în considerare în detaliu: ResultMemo.Lines.Add (); - adăugăm o intrare în ResultMemo care este returnată prin procedura scrisă de noi
StartTimer # 40; CheckTimer. StrToInt # 40; IntervalEdit. text # 41; # 41;.
Și declarați-o în secțiunea privată a formei principale:
privat
.
funcția CheckMail # 40; IP. TIdPOP3; Utilizator. Pass. Gazdă. șir de caractere; Port. întreg # 41;. string;
procedura TMainForm. CheckTimerTimer # 40; Expeditor. TObject # 41; ;
începe
ResultMemo. Linii. adăuga # 40; CheckMail # 40; IdPOP31. AdressEdit. Text. PassEdit. Text. Pop3Edit. Text. StrToInt # 40; PortEdit. text # 41; # 41; # 41; ;
se încheie;
Acum, uite ce sa întâmplat, completați toate câmpurile (setările pentru primirea e-mail, puteți lua de pe serverele de mail în cazul în care ați înregistrat căsuța poștală) (Figura 3):
Fig. 3 - Trimiterea poștei - Formularul de proiect
Testarea a avut succes. Astăzi voi încerca să testez pe alte servere de mail.
PS. Dacă există dorințe - scrieți, voi asculta cu plăcere și, dacă este posibil, o voi pune în aplicare.
continuare:
Verificarea Mail folosind Delphi - Partea 2
Codul sursă al programului poate fi descărcat de la GitHub
Articole similare
Trimiteți-le prietenilor: