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

[mobile]

سهلة ان شاء الله

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

[أبو معاذ]

سهلة ان شاء الله

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

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

الهاتف الذي أريد هو redmi note 7.

[أبو معاذ]

السلام عليكم.
لازلت أنتظر الرد ، بارك الله فيكم.

[mobile]

السلام عليكم.
لازلت أنتظر الرد ، بارك الله فيكم.

;وعليكم السلام ورحمة الله
اسف على التاخير  لي ظروف .
اما جهازك فبمجرد ربطه على الانترنت ينصب لا داعي لارسال تعريفات لانه جديد

كود :

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

[أبو معاذ]

جزاك الله خيرا.
قيل أن العلم ضاع بين مستحي و متكبر.
وبإذن الله لن يمنعني الحياء على طرح الأسئلة حتى و إن كانت عند البعض تافهة، حتى أتعلم هذه الجزئية.
أليس هاتفي موصول بمنفذ usb ؟
فكيف يمكنني التعامل مع المنفذ com؟

[mobile]

اسف لضيق وقتي
https://delphi4arab.net/forum/showthread...9#pid53049

يقال عندنا "خيرك سبق" انت صاحب الفضل