🥡 🤸 📹 3 जी / जीएसएम मॉडम से एसएमएस भेजना 🧔🏼 👩🏿‍💼 🎢

हाय हमर। इस लेख में, मैं अपने अनुभव को एक जीएसएम मॉडम, या बल्कि, एसएमएस संदेश भेजने के अनुभव के साथ साझा करना चाहूंगा। नीचे एसएमएस संदेशों को भेजने के लिए डेल्फी में कार्यक्रम के कार्यान्वयन के साथ-साथ मॉडेम से आने वाले / बाहर जाने वाले संदेशों को पढ़ने और हटाने का वर्णन किया जाएगा। मेरे मामले में, यह एमटीएस से एक हुवावेई मॉडेम था। सभी, जो रुचि रखते हैं, कृपया, बिल्ली के नीचे।

एक विचार का जन्म

यह सब इस तथ्य के साथ शुरू हुआ कि दुकानों की एक छोटी श्रृंखला में प्रति दिन प्रत्येक दुकान के लिए राजस्व के बारे में अधिकारियों को दैनिक सूचित करने की आवश्यकता थी। बिक्री की जानकारी केंद्रीय कार्यालय में जमा होती है, और इसे मुखिया तक पहुंचाया जाना चाहिए। सामान्य निदेशक (ग्राहक) एक बहुत व्यस्त व्यक्ति है, और एक निर्देशक के रूप में उसे समय पर तरीके से स्टोर राजस्व पर डेटा प्राप्त करने की आवश्यकता होती है, इंटरनेट कभी-कभी अनुपलब्ध होता है, और मोबाइल फोन हमेशा हाथ में रहता है, इसलिए उसे अपने फोन पर प्रत्येक स्टोर पर राजस्व डेटा के साथ एक साधारण और एक एसएमएस भेजने का निर्णय लिया गया। पठनीय रूप।

एसएमएस उदाहरण:

08.11.2011
1. A, 123045 .
2. B, 134520 .
3. C, 215403 .
...

08.11.2011
1. A, 123045 .
2. B, 134520 .
3. C, 215403 .
...

;
जैसा कि बाद में पता चला, यह वह सब नहीं है जो आवश्यक है, लेकिन बाद में उस पर और अधिक।

पहले यह एक गेट के माध्यम से एसएमएस भेजने का प्रस्ताव था, जिनमें से अब कई हैं। लेकिन ग्राहक ने सुरक्षा कारणों से इस प्रस्ताव को तुरंत अस्वीकार कर दिया, क्योंकि दैनिक राजस्व पर डेटा एक बहुत गोपनीय बात है। तब यूएसबी केबल के माध्यम से कंप्यूटर से जुड़े फोन से बस एसएमएस भेजने का फैसला किया गया था, और परिणामस्वरूप, फोन के बजाय एक यूएसबी मॉडेम का उपयोग किया गया था, जो पहले से ही काफी समय से निष्क्रिय था।

कहां से शुरू करें

बेशक, मुझे COM पोर्ट के साथ काम करना था, लेकिन मैं एटी कमांड्स का उपयोग करके मॉडेम के साथ संवाद नहीं कर सका। बहुत सारे एटी कमांड हैं, लेकिन सब कुछ बहुत आसान हो गया, क्योंकि मुझे उम्मीद थी, क्योंकि हमारे उद्देश्य के लिए इसमें केवल 5 टीमें लगीं:

AT + CMGF - ऑपरेशन मोड सेट करता है: 0-डिजिटल या 1-टेक्स्ट। इस कमांड को पहले कहा जाएगा, बाद के कमांड और मॉडेम प्रतिक्रियाओं का प्रारूप इस पर निर्भर करता है।

AT + CMGS - एक संदेश भेजते हुए, पैरामीटर का प्रारूप दृढ़ता से मोड पर निर्भर करता है (यानी अंतिम कमांड से)।

एटी + सीएमजीएल - मॉडेम से संदेशों को पढ़ते हुए, आप एक पैरामीटर के रूप में पांच मानों में से एक को स्थानांतरित कर सकते हैं, यह ध्यान देने योग्य है कि, मोड (एटी + सीएमजीएफ) के आधार पर, डिजिटल या स्ट्रिंग मूल्यों को प्रेषित किया जाना चाहिए:

AT + CMGD - एक संदेश को मॉडेम से हटाते हैं, एक पैरामीटर के रूप में हम संदेश संख्या को स्थानांतरित करते हैं।

एटी + सीएमजीआर - मॉडेम से एक संदेश पढ़ना, संदेश संख्या भी प्रसारित करना।

पहला परिणाम

कई घंटों के बाद (परीक्षण / त्रुटि) मुझे पता चला कि एक मॉडेम से एक एसएमएस संदेश भेजना नियमित मोबाइल फोन से करने से ज्यादा कठिन नहीं है। जैसा कि ऊपर बताया गया है, एसएमएस भेजने के लिए आपको "एटी + सीएमजीएस" कमांड का उपयोग करना चाहिए। और इसलिए, उन्होंने हाइपरटर्म खोला, मॉडेम से जुड़ा (COM पोर्ट के माध्यम से), और पोर्ट के लिए निम्न कमांड्स को स्क्रिब्ल्ड किया:

 AT+CMGF=1 [Enter] AT+CMGS=+79261234567 [Enter] hello habr, this is test message [Ctrl+Z]

डेल्फी में उसी का एक उदाहरण:

 procedure SendSMS(AComPort: integer; AMsg: String; ANumTel: String); var hFile: THandle; procedure WriteStr(AStr: String); //     var LWrited: Cardinal; begin //   WriteFile(hFile, PAnsiChar(AStr)^, Length(AStr), LWrited, nil); end; begin //  hFile := Windows.CreateFile(PChar('\\.\COM' + IntToStr(AComPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); //  if (hFile <> INVALID_HANDLE_VALUE) then begin try //   WriteStr('AT+CMGF=1' + #$D#$A); //    "+79xxxxxxxxx" WriteStr('AT+CMGS="'+ANumTel+'"' + #$D#$A); //  ,   WriteStr(AMsg + #$D#$A#$1A); finally //  Windows.CloseHandle(hFile); end; end; end;

वोइला, और पॉकेट-आकार के डिवाइस ने अपेक्षित घटना की घोषणा की।
लेकिन अफसोस, इस सफलता के समय मुझ पर जो सकारात्मक भावनाएँ पैदा हुईं, वह अधिक समय तक नहीं रहीं, या तब तक ठीक-ठाक रहीं जब तक यह पता नहीं चल गया कि रूसी पाठ के साथ सब कुछ बहुत अधिक जटिल है। सबसे पहले, रूसी में संदेश भेजने के लिए, आपको मोड को टेक्स्ट से डिजिटल (एटी + सीएमजीएफ = 0) पर स्विच करने की आवश्यकता है, और दूसरी बात, संदेश को स्वयं यूसीएस 2 एन्कोडिंग में भेजा जाना चाहिए। और अगर कम से कम पहली समस्याएं हैं, तो दूसरे को टिंकर करना होगा।

UCS में पाठ एन्कोडिंग और इसके विपरीत (फिर डेल्फी पर):

 function UCSToAnsi(AStr: AnsiString): AnsiString; function Convert(ACnvStr: AnsiString): AnsiChar; var j: integer; begin j := StrToIntDef('$'+ACnvStr, 0); case j of 1040..1103: j := j - 848; 1105: j := 184; end; Result := Chr(j); end; var c, i: integer; begin Result := ''; c := Length(AStr) div 4; for i := 0 to c - 1 do Result := Result + Convert(Copy(AStr, i*4+1, 4)); end; function AnsiToUCS(AStr: AnsiString): AnsiString; function Convert(AChar: AnsiChar): AnsiString; var j: integer; begin Result := ''; j := ord(AChar); case j of 192..255: j := j + 848; 184: j := 1105; end; Result := IntToHex(j, 4) end; var c, i: integer; begin Result := ''; c := Length(AStr); for i := 1 to c do Result := Result + Convert(AStr[i]); end;

मैं यह नहीं कह सकता कि सब कुछ तुरंत और आसानी से हो गया, लेकिन फिर भी यह निकला। यदि पहले मैंने मॉडेम को भेजा था:

 AT+CMGF=1 [Enter] AT+CMGS=+79261234567 [Enter] hello habr, this is test message [Ctrl+Z]

तब रूसी में एक संदेश भेजने के लिए आपको भेजने की आवश्यकता होगी:

 AT+CMGF=0 [Enter] AT+CMGS=84 [Enter] 0011000B919762214365F70008C146043F04400438043204350442002004450430043 10440002C0020044D0442043E00200442043504410442043E0432043E043500200441 043E043E043104490435043D04380435 [Ctrl+Z]

सबसे पहले, मोड स्विच (डिजिटल में), फिर संदेश भेजा जाता है (84), और अंतिम पंक्ति में शामिल हैं: फोन नंबर, संदेश पाठ और विभिन्न सेटिंग्स (जैसे: एसएमएस केंद्र संख्या, प्राप्तकर्ता को संदेश को बचाने के लिए, आदि)।

डेल्फी उदाहरण:

 procedure SendSMSMessage(AComPort: integer; AMsg: String; ANumTel: String); var Lng, i: Integer; LRead, LText, LMes, LTel, ANum: String; hFile: THandle; procedure WriteStr(AStr: String); var LWrited: Cardinal; begin //   WriteFile(hFile, PAnsiChar(AStr)^, Length(AStr), LWrited, nil); end; begin //  hFile := Windows.CreateFile(PChar('\\.\COM' + IntToStr(AComPort)), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0); //  if (hFile <> INVALID_HANDLE_VALUE) then begin ANum := ANumTel; if (Length(ANum) mod 2) = 1 then ANum := ANum + 'F'; for i := 1 to Length(ANum) do if i mod 2 = 0 then LTel := LTel + ANum[i] + ANum[i-1]; LText := AnsiToUCS(AMsg); //    SMS . 0 - ,     . LMes := '00'; // SMS-SUBMIT LMes := LMes + '11'; //    . 0 -      . LMes := LMes + '00'; //    LMes := LMes + IntToHex(Length(ANumTel), 2); // -. (91     , 81 -  ). LMes := LMes + '91'; //      . LMes := LMes + LTel; //   LMes := LMes + '00'; //     SMS     (Flash SMS),   - (0- 8-). LMes := LMes + '08'; //   . 1 -  LMes := LMes + 'C1'; //   . LMes := LMes + IntToHex(Trunc(Length(LText)/2),2); LMes := LMes + LText; Lng := Round((Length(LMes)-2)/2); WriteStr('AT+CMGF=0' + #$D#$A); WriteStr('AT+CMGS=' + StrToInt(Lng) + #$D#$A); WriteStr(LMes + #$D#$A#$1A); Windows.CloseHandle(hFile); end; end;

विचार विकास

यह कहने के लिए कि मैं खुश था जब लंबे समय से प्रतीक्षित रूसी पाठ "बदमाश" के बजाय मोबाइल पर आया, इसका मतलब कुछ भी नहीं है। अगले दिन मैंने कार्यक्रम का मुख्य भाग समाप्त कर दिया, और सब कुछ लग रहा था। राजस्व डेटा वाले संदेश ग्राहक के फ़ोन पर भेजे जाते हैं, ऐसा लगता है कि जीवन एक सफलता थी, लेकिन यह वहां नहीं था। लगभग एक हफ्ते बाद, ग्राहक ने मुझे आवेदन को अंतिम रूप देने के लिए कहा, अर्थात् इसे बनाने के लिए ताकि उसे पाठ के साथ एक एसएमएस मिले:

08.11.2011
1. A, 123045 .
2. B, 134520 .
3. C, 215403 .
...

वह इस संदेश के जवाब में एक स्टोर नंबर भेज सकता है और एक नया संदेश आएगा, लेकिन निर्दिष्ट स्टोर पर अधिक विस्तृत जानकारी के साथ।
खैर, सामान्य तौर पर, तर्क सरल है: कार्यक्रम को सभी दुकानों के लिए अंतिम भेजी गई "रिपोर्ट" को संग्रहीत करना चाहिए और आने वाले संदेशों को पढ़ना चाहिए जैसे ही सशर्त पाठ के साथ एक संदेश दिखाई देता है (उदाहरण के लिए, "स्टोर = 12"), वहां से स्टोर नंबर को बाहर निकालें, भेजे गए अंतिम संदेश को देखें इस संख्या के तहत क्या था और इस स्टोर पर विस्तृत जानकारी भेजें (दुर्भाग्य से फिलहाल ग्राहक ने "विस्तृत रिपोर्ट" के प्रारूप और सामग्री पर फैसला नहीं किया है, इसलिए उदाहरण के रूप में देने के लिए कुछ भी नहीं है)। उपरोक्त तर्क को लागू करने के लिए, मॉडेम की आवश्यकता है: मेमोरी से एसएमएस पढ़ें, एसएमएस को मेमोरी से हटा दें (ताकि जमा न हो)। संदेशों को पढ़ने के लिए मैंने AT + CMGR और AT + CMGL कमांड का उपयोग किया (उनका संक्षिप्त विवरण पहले दिया गया था)। सभी पोस्ट पढ़ने से ऐसा लगेगा:

 AT+CMGF=1 [Enter] AT+CMGL="ALL" [Enter] +CMGL: 6,"REC READ","778467",,"11/09/03,18:49:40+16" 007700770077002E006D00740073002E00720075 +CMGL: 7,"REC READ","+79261234567",,"11/10/18,18:38:00+16" 04220435044104420020043F044004380435043C043000200073006D0073002004410 43E043E043104490435043D04380439002100200421043C04410020043D043D043D04 3004340430003F0021003F00210028002D005F002D00290020 [Enter]

पहले की तुलना में सब कुछ सरल है। प्रत्येक संदेश में 2 लाइनें होती हैं, पहले में संदेश के बारे में डेटा होता है (जैसे: किससे, कब, संदेश संख्या), और दूसरे में संदेश का पाठ होता है (फिर से, यूसीएस एन्कोडिंग में, UCSToAnsi फ़ंक्शन ऊपर दिया गया था)। एक संदेश पढ़ना इस प्रकार है:

 AT+CMGF=1 [Enter] AT+CMGR=7 [Enter] +CMGR: "REC READ","+79261234567",,"11/10/18,18:38:00+16" 04220435044104420020043F044004380435043C043000200073006D0073002004410 43E043E043104490435043D04380439002100200421043C04410020043D043D043D04 3004340430003F0021003F00210028002D005F002D00290020 [Enter]

इसी तरह, संदेश विलोपन होता है। यदि उदाहरण के लिए, मेरे मामले में, आदेश + + CMGD = 7 पर भेजें, तो अगले AT + CMGL = "ALL" पर मैं अब संदेश संख्या 7 नहीं देखूंगा, क्योंकि इसे हटा दिया जाएगा।

निष्कर्ष

और इसलिए, एक जीएसएम मॉडम के माध्यम से एसएमएस संदेशों के साथ काम करने के लिए बुनियादी आज्ञाओं को भंग कर दिया गया, संदेश भेजना, पढ़ना, संदेश हटाना माना गया। अंत में, मैं यह नोट करना चाहूंगा कि एसएमएस संदेशों के इस उपयोग का दायरा काफी विस्तृत है (विशेषकर क्योंकि दोतरफा संचार को व्यवस्थित किया जा सकता है)। उदाहरण के लिए, यह: उपयोगकर्ता एक एसएमएस भेजता है, मॉडेम प्राप्त करता है, हमारा कार्यक्रम पढ़ता है, संदेश पाठ के आधार पर कुछ क्रियाएं करता है और उपयोगकर्ता को परिणाम भेजता है। या इसके विपरीत: पीसी पर किसी प्रकार की घटना होती है, और प्रोग्राम इस घटना के बारे में उपयोगकर्ता को एक संदेश भेजता है। अपने प्रयोगों के साथ शुभकामनाएँ, धन्यवाद!

यहां परीक्षण कार्यक्रम के सूत्र

3 जी / जीएसएम मॉडम से एसएमएस भेजना