EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


+3 تصويتات
150 مشاهدات

كيف اتاكد من وصول رسالة SMS الدي ارسلتها باستعمال مكون Tcomport

حاليا اعمل على مشروع ارسالة رسائل sms الى مجموعة زبائن موجودة في قاعدة بيانات و المشكل الدي اواجهه هو كيف اتاكد من ان الرسالة قد وصلت الى الزبون.

علما اني استعمل مكونات : TComPort

يمكن تحميلها من هنا : https://sourceforge.net/projects/comport

شكرا

سُئل في تصنيف Components بواسطة (7,900 نقاط)
عُدل بواسطة | 150 مشاهدات

2 إجابة

+3 تصويتات
أفضل إجابة

بعدما ترسل الرسالة حاول استعادة جواب الارسال. جرب هذا الكود

Function GetRespense():Boolean;
Var Step:Integer; Events: TComEvents;Data:String;
Begin Result:=False; Step := 0;    Answer:='';
   Try  
        ComPrt.Events := [];
        Event := TEvent.Create(nil, True, False, '');
        SetConsoleCtrlHandler(@CtrlHandler, True);
        repeat
            Events := [evRxChar];
            ComPrt.WaitForEvent(Events, Event.Handle, 5000);  // wait for charachters
            i f evRxChar in Events then
            begin ComPrt.ReadStr(Data, ComPrt.InputCount);
                    Answer := Answer + Data;
                i f ((Pos('OK', Answer) > 0)AND
                    (Pos('<', Answer) > 0)AND(Pos('+CMGS:', Answer) > 0))OR(Pos('ERROR', Answer) > 0) then Break;
            end;
                Inc(Step)
        until (Events = []) or (Step = 20);
        Result:=(Pos('OK', Answer) > 0) AND(Pos('ERROR', Answer) <= 0) AND
               (Pos('<', Answer) > 0)AND(Pos('+CMGS:', Answer) > 0);
    Finally 
	    Event.Free; 
    end;
End;

 

تم الرد عليه بواسطة (7,660 نقاط)
مختارة بواسطة
+2 تصويتات
حسب مزود الخدمة.

لكن يوجد طريقة بانك ترسل إلى نفس الرقم الذي ارسلت منه، باستقباله تتأكد من الارسال.
تم الرد عليه بواسطة (16,020 نقاط)

اسئلة متعلقة

0 تصويتات
2 إجابة
سُئل مايو 21، 2019 في تصنيف vcl بواسطة KHALED (7,900 نقاط) | 79 مشاهدات
+3 تصويتات
1 إجابة
0 تصويتات
1 إجابة
سُئل أبريل 15، 2019 في تصنيف Delphi بواسطة العالم الاخضر (310 نقاط) | 41 مشاهدات
+2 تصويتات
1 إجابة
سُئل سبتمبر 23، 2018 في تصنيف Components بواسطة ياسين بن داود (4,270 نقاط) | 321 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم