![]() |
|
إرسال رسائل SMS إلى الهاتف بالدلفي - نسخة قابلة للطباعة +- 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 إلى الهاتف بالدلفي - mobile - 07-04-2021 سهلة ان شاء الله ما نوع الهاتف الذي التريد ؟ المديل RE: إرسال رسائل SMS إلى الهاتف بالدلفي - أبو معاذ - 07-04-2021 (07-04-2021, 06:08 PM)mobile كتب : سهلة ان شاء الله سهل الله أمورك. الهاتف الذي أريد هو redmi note 7. RE: إرسال رسائل SMS إلى الهاتف بالدلفي - أبو معاذ - 09-04-2021 السلام عليكم. لازلت أنتظر الرد ، بارك الله فيكم. RE: إرسال رسائل SMS إلى الهاتف بالدلفي - mobile - 10-04-2021 (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 ;
endRE: إرسال رسائل SMS إلى الهاتف بالدلفي - أبو معاذ - 10-04-2021 جزاك الله خيرا. قيل أن العلم ضاع بين مستحي و متكبر. وبإذن الله لن يمنعني الحياء على طرح الأسئلة حتى و إن كانت عند البعض تافهة، حتى أتعلم هذه الجزئية. أليس هاتفي موصول بمنفذ usb ؟ فكيف يمكنني التعامل مع المنفذ com؟ RE: إرسال رسائل SMS إلى الهاتف بالدلفي - mobile - 10-04-2021 اسف لضيق وقتي https://delphi4arab.net/forum/showthread.php?tid=11283&pid=53049#pid53049 يقال عندنا "خيرك سبق" انت صاحب الفضل |