ارسال رسالة نصية SMS عن طريق الجوال
#1
السلام عليكم ورحمة الله وبركاته ،

من فضلكم ، هل هناك من جرب (تجربة ناجحة) في ارسال رسائل نصية SMS عن طريق الجوال باستعمال ال VCL و ليس الفايرمونكي .
وخاصة مع الجوالات الجديدة مثل سامسونغ M20 أو A20.

هذا الفيديو للأخ خالد السعداني ن مبرمج بلغة سي شارب :

https://www.youtube.com/watch?v=l74iUfmu...e=youtu.be

جزاكم الله خيرا.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#2
السلام عليكم ورحمة الله تعالى وبركاته

* اولا يجب على الهاتف ان يدعم اوامر AT Command

أوامر AT commands: هي مجموعة من الأوامر التي يستخدمها الكمبيوتر للتحكم والتواصل مع أجهزة الاتصالات الخارجية مثل المودم أو الجوال أو GSM modem أو GPRS Modem

* بعد تبيت تعريف الهاتف على الحاسوب : يكون له منفذ port ويكون له رقم معين

* توجد عدة مكونات VCL تقوم بالربط

- ZylSerialPort و ZylGSM
- nrCommLib
- ... الخ

+ بالنسبة الى مكونات ComPort تعتمد بنسبة كبيرة على اوامر AT ، اما المكونات الاخرى بسيطة العمل تكتب الرسالة امر الارسال
+ ويمكن ربط الجهاز بالبلوتوث

مثال استعمال ZylGSM

الاجهزة القديمة مثل  nokia و  sony ericsson تدعم مثل هذه الامور

[صورة: 781148807.png]

[صورة: 775018713.png]

مثال كيفية تنفيذ اوامر AT


كود :
procedure TForm1.Button12Click(Sender: TObject);
var
sl: TStringList;
begin
Numero.text := '';
sl := TStringList.Create;
if ZylGSM1.ExecuteATCommand(edit1.text, sl) > 1 then
begin
Numero.text := sl[1];
end;
sl.Free;
end;
مثال كود لمعرفة الرصيد النص يكون  Edit1.txt
كود :
ATD>*200#>

الكتابة الصحيحة

كود :
ATD<*200#>;
[-] كل من 4 users say قال شكرا ل larbiparadox على المشاركة المفيدة
  • لؤي, أبو معاذ, wadoud, bassem_43
الرد
#3
السلام عليكم.
بارك الله فيك أخي larbiparadox ،

لحذ الساعة هذي التعليمات رأيتها من قبل ،
لكن أبحث في حالة الجوالات الجديدة مثلما ذكرت أنا في سؤالي. Huh
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم