Delphi világ - mail feldolgozáshoz delphi

Mail feldolgozás Delphi

Az alkalmazás feldolgozza az értékeket a mezők és rögzíti azokat az Access adatbázis, ahol a mezők ugyanaz a neve, mint a penész. Így a tárolt adatok a számítógép az irodában, és voltak rejtve az interneten - hackerek.

Ez az alkalmazás írhat szinte minden elérhető az Ön nyelvén. Azt javaslom, hogy fontolja meg egy ilyen alkalmazás Delphi és megvitatják az elvek a programot. Az Internet protokollok Delphi Component Palette szakasz célja Fastnet. Fastnet

Ahhoz, hogy megkapja e-mailben, szükségünk van a POP3 protokoll (Post Office Protocol - verziója3) protokoll esetében fenntartva 110 port, a megfelelő komponens Fastnet szakasz - NMPOP3.
A NMPOP3 is: kapcsolódni a szerverhez, küldje auntifikatsionnuyu információt a szerver információkat szerezni egy postafiókot (betűk száma, mérete) üzenetet kapni a szerver, az üzenetek törléséhez.

Az elv a párbeszédet a POP3 protokoll szerver három szakaszból áll: a kapcsolat létrehozásával (auntifikatsiya), olvassa mail listát, és adja meg a kívánt betűt, megszüntetése a kapcsolatot. protokoll dolgozni a szerver, amit tudnod kell, hiszen bőséges lehetőséget nem csak a programozók, hanem a felhasználók számára. Én már sokszor volt a levél hihetetlen méretű, van egy nagy számú kép. Tíz perc után az Outlook Express csak lóg. El kellett törölnie a leveleit, párbeszédet folytat a POP3 szerver összekapcsolásával ez a telnet a 110-es porton.
Tekintsük a párbeszédet a POP3 protokoll szerver.
Miután csatlakozott az e-mail szerver, kiadott egy üdvözlő szöveg + OK POP3 szerver kész. A felhasználó küld egy login parancs a felhasználó bejelentkezési és jelszó PASS jelszót. Ha a bejelentkezés és a jelszót helyesen, böngészhetjük az e-mail.
Command listában, akkor láthatjuk, hogy hány betű neked, és ez a méret a betűket. A szerver válasza a következő:
Felhasználó: LIST
Szerver: + OK 2 üzenet (400 oktett)
Server 1250
Szerver: 2150
Ez az üzenet azt állítja, hogy a szerver két oszlop összege 400 bájt, az első üzenet 250 bájt, a második -150 bájt. Ha szeretné látni a méretét az adott levelet, például az ötödik meg kell küldeni a szerver parancs LIST 5. Ennek eredményeként a terminál fogja mutatni Server: + OK 2 200. Abban az esetben, írni ezt a számot nem létezik hibaüzenet jelenik meg
Szerver: -ERR nincs ilyen üzenet, csak 2 üzeneteket maildrop.
Ez a hiba azt jelzi, hogy a szerver csak két betű. Ahhoz, hogy a levelet a szerver parancs használatával RETR, ahol m - a szám a levelet. Ha a levél túl hosszú, nem tudja elolvasni teljesen, és csak az első n - vonalak ez a levél, ez egy csapat TOP msg n. Eltávolítására szolgál betűk DEL m parancsot. Ha az e-mail törlődik, az üzenet + OK üzenet 1 hagyni, kivéve, ha van egy levél száma a szerver hibaüzenetet -ERR nincs ilyen üzenet. Komplett mail feldolgozási és kilép a párbeszéd, akkor QUIT parancsot. Több protokoll leírása a RFC1081 és RFC 1460.
A példánkban, szüksége van egy postafiókot, hogy ez az interneten nem lesz különösen nehéz. Vegyük például egy ingyenes e-mail fiókot a kiszolgálón www.rambler.ru .server kimenő mail Rambler mail.rambler.ru (Ön könnyen megtalálja az Ön rendszergazdája vagy a szerveren), akkor kell csatlakozni a POP3 protokollt. Tehát kezdjük.

Ehhez meg kell programozni a Button1 gombot a következő algoritmus:

eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
NMPOP31.Connect;
NMPOP31.GetMailMessage (1);
Edit1.Text: = NMPOP31.MailMessage.Subject;
Memo1.Lines: = NMPOP31.MailMessage.Body;
NMPOP31.Disconnect;
végén;

És más területeken, amelyek többet lehet olvasni az RFC 822 dokumentumokat.
Tekintettel a fentiekre, mondhatjuk a szerver párbeszéd a felhasználói adatok után a csapat:

Felhasználó: From: "Test"
Felhasználó: To: "új"
Felhasználó: Tárgy: Ellenőrző
felhasználó:
Felhasználó: Hello! Ez egy teszt üzenet
Felhasználó: Bye!