+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إرسال رسائل SMS إلى الهاتف بالدلفي (/showthread.php?tid=11283)
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - larbiparadox - 27-03-2021
اضف مسار ملفات dcu الى مكتبة الدلفي
![[صورة: 671628387.png]](https://www10.0zz0.com/2021/03/27/15/671628387.png)
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - صالح حمادي - 27-03-2021
نعم أخي ألف شكر
كنت أظن أنني أضفت المسار لكن وجدت نفسي أضفت المسار الخطأ
لقد أشتغل بنجاح
و أنا الآن بصدد تجربة الأكواد
سوف أخبرك بالنتائج إن شاء الله
لقد قمت باستخدام الكود التالي لمعرفة الرصيد لكن دون جدوى تظهر خطأ رقم 100 في البرنامج
كود :
ComPort1.Open;
ComPort1.WriteStr('AT+CUSD=1,"*222#",15'+#13#10) ;كما أنه في المثال الذي أرسلته لي يظهر خطأ رقم 100 كذلك
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - larbiparadox - 27-03-2021
لمعرفة الرصيد مثال :
كود :
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;![[صورة: 258266957.png]](https://www10.0zz0.com/2021/03/27/19/258266957.png)
1 - لاسترداد النتيجة
2 - هنا اضع كود بين رمزين اكبر و اصغر <>
3 - لتنفيذ الكود و استرداد التتيجة في s1
4 - في حالة نتيجة نعيد القيمة الى edit1
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - صالح حمادي - 27-03-2021
للأسف طبقت الكود حرفيا و لكن لا يتم التنفيذ
لا يظهر الرصيد الرسالة التي يرجعها الكود أصغر من 1
و ما هو الكود في حالة استخدمنا المكون ComPort
معذرة أخي أتعبتك معي
هذه صورة المنافذ
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - larbiparadox - 27-03-2021
(27-03-2021, 06:09 PM)صالح حمادي كتب : للأسف طبقت الكود حرفيا و لكن لا يتم التنفيذ
لا يظهر الرصيد الرسالة التي يرجعها الكود أصغر من 1
و ما هو الكود في حالة استخدمنا المكون ComPort
معذرة أخي أتعبتك معي
هذه صورة المنافذ
جرب كتابة الكود هكذا
كود :
Edit2.text := 'ATD*710#';جرب اكواد at command
كود :
http://download-c.huawei.com/download/downloadCenter?downloadId=15779RE: إرسال رسائل SMS إلى الهاتف بالدلفي - صالح حمادي - 31-03-2021
السلام عليكم
لقد نجحت في إرسال 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') ;RE: إرسال رسائل SMS إلى الهاتف بالدلفي - أبو معاذ - 31-03-2021
السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB أو أنني استطيع تطبيقها مع جوال android ؟
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - صالح حمادي - 31-03-2021
(31-03-2021, 09:20 AM)أبو معاذ كتب : السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB أو أنني استطيع تطبيقها مع جوال android ؟
نعم تستطيع استخدامها مع الجوال كذلك
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - mobile - 04-04-2021
(31-03-2021, 09:20 AM)أبو معاذ كتب : السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB أو أنني استطيع تطبيقها مع جوال android ؟
وعليكم السلام ورحمة الله
At-Command لا تتعامل مع الانظمة . فقط المنافذ . اي ترسل بيانات عبر منفذ الكوم ويقوم الجهاز المستقبل بترجمة تلك البيانات او الاكواد ان كان يفهمها واغلب الاجهزة القديمة والحديثة تفهم هته اللغة
فقط يجب ان تتصل عبر منفذ الكوم حتى وان كان مودم ويفي او هاتف او ميزان... فقط البيانات المرسلة هي من تحدد.
ولا انصح المبتدئين باستعمال مكونات تجارية . استعمال المكون المجاني TComport يفي بالغرض
RE: إرسال رسائل SMS إلى الهاتف بالدلفي - أبو معاذ - 04-04-2021
جزاك الله خيرا.
هل ممكن شرح كيفية ربط هاتفي و التعامل مع المنفذ com