إرسال رسائل SMS إلى الهاتف بالدلفي

[larbiparadox]

اضف مسار ملفات dcu الى مكتبة الدلفي

[صالح حمادي]

نعم أخي ألف شكر
كنت أظن أنني أضفت المسار لكن وجدت نفسي أضفت المسار الخطأ
لقد أشتغل بنجاح
و أنا الآن بصدد تجربة الأكواد
سوف أخبرك بالنتائج إن شاء الله

---

لقد قمت باستخدام الكود التالي لمعرفة الرصيد لكن دون جدوى تظهر خطأ رقم 100 في البرنامج

كود :

ComPort1.Open;   ComPort1.WriteStr('AT+CUSD=1,"*222#",15'+#13#10) ;

شريحة موبيليس و كذلك جربت شريحة جيزي و نفس الشيء
كما أنه في المثال الذي أرسلته لي يظهر خطأ رقم 100 كذلك

[larbiparadox]

لمعرفة الرصيد مثال :

كود :

procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin Edit1.text := ''; Edit2.text := 'ATD<*710#>; '; sl := TStringList.Create; if ZylGSM1.ExecuteATCommand(edit2.text, sl) > 1 then begin Edit1.text := sl[1]; end; sl.Free; end;

1 - لاسترداد النتيجة

2 - هنا اضع كود بين رمزين اكبر و اصغر <> 

3 - لتنفيذ الكود و استرداد التتيجة في s1

4 - في حالة نتيجة نعيد القيمة الى edit1

[صالح حمادي]

للأسف طبقت الكود حرفيا و لكن لا يتم التنفيذ
لا يظهر الرصيد الرسالة التي يرجعها الكود أصغر من 1
و ما هو الكود في حالة استخدمنا المكون ComPort
معذرة أخي أتعبتك معي

---

هذه صورة المنافذ

[larbiparadox]

للأسف طبقت الكود حرفيا و لكن لا يتم التنفيذ
لا يظهر الرصيد الرسالة التي يرجعها الكود أصغر من 1
و ما هو الكود في حالة استخدمنا المكون ComPort
معذرة أخي أتعبتك معي

---

هذه صورة المنافذ

جرب كتابة الكود هكذا

كود :

Edit2.text := 'ATD*710#';

---

جرب اكواد at command

كود :

http://download-c.huawei.com/download/downloadCenter?downloadId=15779

[صالح حمادي]

السلام عليكم
لقد نجحت في إرسال sms من خلال الكود التالي:

كود :

const buf : Byte = 32;// 26 for default   var    s : string; begin   ComPort1.Open;   ComPort1.WriteStr('AT+CMGF=1'+#13#10);   ComPort1.WriteStr('AT+CMGS="'+(Edit1.Text)+'"'+#13);   s:=Memo1.Text;   ComPort1.WriteStr(s);   ComPort1.WriteStr(#26);   ComPort1.Write(buf,1); end;

 لكن بقي مشكل و هو أن الجهاز المستقبل تظهر عنده الرسالة بحروف غريبة و غير مفهومة و ذلك عند ارسالها باللغة العربية
أما عند ارسالها باللغة الفرنسية تظهر عادي
- مع العلم أن الجهاز يدعم اللغة العربية و عندما أرسل له رسالة من الهاتف يقرأها بشكل طبيعي حتى و إن كانت الحروف عربية
أما بالنسبة لكشف الرصيد فلم تنجح الفكرة و قد جربت الكود الذي أعطيتني إياه و هذا الكود كذلك:

كود :

  ComPort1.WriteStr('AT+CUSD=1,"*222#",15') ;

و كذلك الفليكسي استخدمت هذا الكود و لم ينجح:

كود :

ComPort1.WriteStr('AT+CUSD=1,"*610*'+edit1.Text+'*100*0000#",15') ;

[أبو معاذ]

السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB  أو أنني استطيع تطبيقها مع جوال android ؟

[صالح حمادي]

السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB  أو أنني استطيع تطبيقها مع جوال android ؟

نعم تستطيع استخدامها مع الجوال كذلك

[mobile]

السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB  أو أنني استطيع تطبيقها مع جوال android ؟

وعليكم السلام ورحمة الله

At-Command لا تتعامل مع الانظمة . فقط المنافذ . اي ترسل بيانات عبر منفذ الكوم ويقوم الجهاز المستقبل بترجمة تلك البيانات او الاكواد ان كان يفهمها واغلب الاجهزة القديمة والحديثة تفهم هته اللغة
فقط يجب ان تتصل عبر منفذ الكوم حتى وان كان مودم ويفي او هاتف او ميزان... فقط البيانات المرسلة هي من تحدد.

ولا انصح المبتدئين باستعمال مكونات تجارية . استعمال المكون المجاني TComport يفي بالغرض

[أبو معاذ]

جزاك الله خيرا.
هل ممكن شرح كيفية ربط هاتفي و التعامل مع المنفذ com