delphi4arab منتديات دلفي للعرب

الصفحات : 1 2 3

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

[صورة: 671628387.png]

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

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

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

شريحة موبيليس و كذلك جربت شريحة جيزي و نفس الشيء
كما أنه في المثال الذي أرسلته لي يظهر خطأ رقم 100 كذلك
[صورة: attachment.php?aid=4475]

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

كود :
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
معذرة أخي أتعبتك معي

هذه صورة المنافذ
[صورة: attachment.php?aid=4476]

(27-03-2021, 06:09 PM)صالح حمادي كتب : [ -> ]للأسف طبقت الكود حرفيا و لكن لا يتم التنفيذ
لا يظهر الرصيد الرسالة التي يرجعها الكود أصغر من 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 ؟

(31-03-2021, 09:20 AM)أبو معاذ كتب : [ -> ]السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB أو أنني استطيع تطبيقها مع جوال android ؟

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

(31-03-2021, 09:20 AM)أبو معاذ كتب : [ -> ]السلام عليكم.
من فضلكم هل هذه الطريقة فقط مع متاح انترنت Cle USB أو أنني استطيع تطبيقها مع جوال android ؟

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

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

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

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

الصفحات : 1 2 3

larbiparadox

صالح حمادي

larbiparadox

صالح حمادي

larbiparadox

صالح حمادي

أبو معاذ

صالح حمادي

mobile

أبو معاذ