07-04-2021, 06:08 PM
07-04-2021, 07:51 PM
(07-04-2021, 06:08 PM)mobile كتب : [ -> ]سهلة ان شاء الله
ما نوع الهاتف الذي التريد ؟ المديل
سهل الله أمورك.
الهاتف الذي أريد هو redmi note 7.
09-04-2021, 05:12 PM
السلام عليكم.
لازلت أنتظر الرد ، بارك الله فيكم.
لازلت أنتظر الرد ، بارك الله فيكم.
10-04-2021, 06:20 PM
(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 ;
end10-04-2021, 10:01 PM
جزاك الله خيرا.
قيل أن العلم ضاع بين مستحي و متكبر.
وبإذن الله لن يمنعني الحياء على طرح الأسئلة حتى و إن كانت عند البعض تافهة، حتى أتعلم هذه الجزئية.
أليس هاتفي موصول بمنفذ usb ؟
فكيف يمكنني التعامل مع المنفذ com؟
قيل أن العلم ضاع بين مستحي و متكبر.
وبإذن الله لن يمنعني الحياء على طرح الأسئلة حتى و إن كانت عند البعض تافهة، حتى أتعلم هذه الجزئية.
أليس هاتفي موصول بمنفذ usb ؟
فكيف يمكنني التعامل مع المنفذ com؟
10-04-2021, 10:53 PM
اسف لضيق وقتي
https://delphi4arab.net/forum/showthread...9#pid53049
يقال عندنا "خيرك سبق" انت صاحب الفضل
https://delphi4arab.net/forum/showthread...9#pid53049
يقال عندنا "خيرك سبق" انت صاحب الفضل