Delphi e-mail ellenőrzés - szoftver termékek
Ennek eredményeképpen az ablak következő képét kapjuk (2. ábra):
2. ábra.
Ezután hozza létre a kódot az esemény onClick Button1 gombot (az esemény létrehozása kell duplán kattintani a gombra, vagy menjen az Object Inspector megy a lap események olvasása, majd kattintson duplán az üres mező neve mellett onClick): Miután létrehozta események automatikusan generálja a következő kód:
eljárás TForm1.Button1Kattintson (Feladó: TObject);
kezdődik
végén;
A szerkesztés után a következő kódot kapjuk:
eljárás TForm1.Timer1Timer (Sender: TObject);
kezdődik
végén;
A betűk átvételére szolgáló kódot implementáljuk:
A kód ezen része a következő:
- Adja meg a megadott paramétereket a Szerkesztés1-el. Edit4 az IdPOP31-ben
- Csatlakozik a kiszolgálóhoz
- Ha a kapcsolat sikeres volt, megjelenik egy üzenet számlálója a Memo1-ben, ellenkező esetben egy üzenet hibaüzenet jelenik meg.
- Húzza ki a szervert
A munka eredménye az alábbi képernyőképeken látható:
3. ábra. - A sikeres kapcsolat a betűk számának kimenetével
4. ábra. - sikertelen kapcsolat hibával
Ez az opció kezdőknek készült. Természetesen magukba foglalhatják a fantáziát és módosíthatják a programot. Hozzáadása paraméter menteni egy fájlt, a képesség, hogy adjunk hozzá egy csomó postafiókok, hogy ellenőrizze, lehet minimalizálni a tálcán, értesítés jelenik meg -, ha új üzenetek és még sok más. Ha valaki érdekli ezt a témát - boldogan folytatom.
Köszönöm a figyelmet.