E-mail szkennelés eszközök Delphi - Hálózat és internet - Programozás - Cikkek Directory - Delphi föld
Ennek eredményeként, kapjuk az alábbi formában az ablak (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.Button1Click (Sender: TObject);
kezdődik
végén;
A szerkesztés után megkapjuk a következő kódot:
eljárás TForm1.Timer1Timer (Sender: TObject);
kezdődik
végén;
Végrehajtja a kódot a betűt:
Ez a rész a kód a következőt teszi:
- Továbbítja a megadott paraméterek Edit1 minket. Edit4 a IdPOP31
- Ez csatlakozik a szerverre
- Ha a kapcsolat sikeres volt - a Memo1 megjeleníti az üzenetek száma, vagy egy hibaüzenetet jelenít kapcsolatot.
- Megszakad a szerverrel
Az eredmény lehet látni a screenshotok alábbi
3. ábra. - Egy jó kapcsolat a visszavonását a betűk száma
4. ábra. - A kapcsolat hiba miatt sikertelen
Ezt a lehetőséget választva a kezdők számára. Természetesen akkor is a fantázia és szeretné befejezni 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 érdekelt ebben a témában - boldogan tovább.
Köszönöm a figyelmet.