17. fejezet Free SMS küldése az interneten keresztül
Ingyen SMS az interneten keresztül
Ki kell dolgozni egy programot küldött díjmentes SMS az interneten keresztül. Keretében küldi népszerű oldalak ukrán üzemeltetői ( "UMC", "Jeans", "Kyivstar" ...)
ComboBox.Items tulajdon - egy listát a húrok, szerkesztett egy speciális ablakban dupla kattintással a megfelelő mezőbe az Object Inspector.
Táblázat 17.1. Tulajdonságok ComboBox alkatrész
Az üzemeltetők, amelyre küldünk SMS
Ez a példa egy listát a mobilszolgáltatók Ukrajnában. Ha él egy másik országban, használja a saját piaci szereplők listáját.
Jelenítse meg a karakterek száma bevitt területen sms, helye alapján memo-mezőbe.END_ITEMEND_ORDERED_LISTEzután komponens, és módosíthatja annak tulajdonságait a táblázat szerint. 17.2.
Táblázat 17.2. Az ingatlan a Label komponens jelenik meg az üzenet hossza
A NMSMTP1.Host vagyon kell adnia a smtp-szerver. Yandex.ru az ingatlan kell az értéket smtp.yandex.ru. Az ingatlan UserID kell adnia a felhasználónevét a küldő - jelzi a sarok-adm. Most bontsa ki PostMessage tulajdon és módosítsa az értéket a csatolt ingatlan FROMADDRESS a [email protected] egy FROMNAME - a sarok-adm. Property Value Port 25 változást.
A kapott alakja meg kell egyeznie az ábrán. 17.1.
Ábra. 17.1. programot, hogy küldjön egy SMS-t
Ha megnyomja a Küldés gombra végrehajtja a következő kódot:
eljárás TForm1.Button1Click (feladó: TObject);
NMSMTP1.PostMessage.Body.Clear; // törölje a szöveget a levél
// helyet SMS szövege
// ellenőrizze, hogy melyik szolgáltató a felhasználó által választott
esetében oper.ItemIndex a
0: NUM: = '38066'+tel.text+'@sms.jeans.com.ua'; // Dzhinc
1: NUM: = '38050'+tel.Text+'@sms.umc.com.ua'; // UMC
2: NUM: = '38067'+tel.Text+'@sms.kyivstar .NET „; // Kyivstar
NMSMTP1.Connect; // kapcsolódni a szerverhez
NMSMTP1.SendMail; // e-mailt küldeni
NMSMTP1.Disconnect; // Szerver kapcsolat bontása
// megjeleníti az üzenetet küldő sikeres
ShowMessage (Üzenet elküldve! '+ Num);
A felhasználó számára, hogy hány karaktert mutatott be, és tudta irányítani az SMS hossza végrehajtási számolás karakterek beírásakor egy üzenetet. Ehhez kell kezelni sms esemény. OnChange:
eljárás TForm1.smsChange (Sender: TObject);
// karakterek száma
Karakterek száma megjelenik a címkén kolvo. Program SMS-t küldeni akcióban ábrán látható. 17.2.
Ábra. 17.2. Program, hogy küldjön SMS az interneten keresztül akcióban
SMS küldő szoftver az interneten keresztül egység teljes kódot listán látható 17.1.
Listing 17.1. SMS küldés program modul az interneten keresztül
Ablakok, üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms, párbeszédablakok, StdCtrls, Psock, NMsmtp;
írja TForm1 = osztály (TForm)