إرسال رسائل SMS إلى الهاتف بالدلفي
#21
سهلة ان شاء الله

ما نوع الهاتف الذي التريد ؟ المديل
لأستهلنّ الصعب أو أدرك المنى    فما انقادت الآمال إلاّ لصابر
الرد
#22
(07-04-2021, 06:08 PM)mobile كتب : سهلة ان شاء الله

ما نوع الهاتف الذي التريد ؟ المديل

سهل الله أمورك.

الهاتف الذي أريد هو redmi note 7.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#23
السلام عليكم.
لازلت أنتظر الرد ، بارك الله فيكم.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#24
(09-04-2021, 05:12 PM)أبو معاذ كتب : السلام عليكم.
لازلت أنتظر الرد ، بارك الله فيكم.

;وعليكم السلام ورحمة الله
اسف على التاخير  لي ظروف .
اما جهازك فبمجرد ربطه على الانترنت ينصب لا داعي لارسال تعريفات لانه جديد
كود :
procedure Tform_Starter.Button8Click(Sender: TObject);
var
  n:Integer ;
begin
  ComPort.Port:='COM3' ;
  ComPort.BaudRate:=br9600 ;
  ComPort.Parity.Bits:=prNone  ;
  ComPort.DataBits:=dbEight ;
  ComPort.StopBits:=sbOneStopBit ;
  ComPort.Open ;
  if ComPort.Connected then
    memo_Text.lines.add('Connected')
  else
    memo_Text.lines.add('Not Connected') ;

  sleep(4000) ;

  sysSndStr:='AT+CMGF=1'+#13#10 ;
  n:=ComPort.WriteStr(sysSndStr) ;
  memo_Text.lines.add(IntToStr(n)) ;
  sleep(4000) ;


  sysSndStr:='AT+CMGS="9867015256"'+#13#10+'"HI"'+#26+#13#10 ;
  n:=ComPort.WriteStr(sysSndStr) ;
  memo_Text.lines.add(IntToStr(n)) ;

  sleep(4000) ;

  ComPort.Close  ;
end
لأستهلنّ الصعب أو أدرك المنى    فما انقادت الآمال إلاّ لصابر
الرد
#25
جزاك الله خيرا.
قيل أن العلم ضاع بين مستحي و متكبر.
وبإذن الله لن يمنعني الحياء على طرح الأسئلة حتى و إن كانت عند البعض تافهة، حتى أتعلم هذه الجزئية.
أليس هاتفي موصول بمنفذ usb ؟
فكيف يمكنني التعامل مع المنفذ com؟
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
الرد
#26
اسف لضيق وقتي
https://delphi4arab.net/forum/showthread...9#pid53049

يقال عندنا "خيرك سبق" انت صاحب الفضل
لأستهلنّ الصعب أو أدرك المنى    فما انقادت الآمال إلاّ لصابر
[-] كل من 1 user says قال شكرا ل mobile على المشاركة المفيدة
  • أبو معاذ
الرد


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


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف