خوب در این پست قصد داریم که با نحوه ارسال اس ام اس در برنامه هایمان آشنا شویم.
ارسال اس ام اس برای برنامه های آندرویدی در دلفی XE5 بسیار راحت است. به تکه کد زیر دقت کنید:
uses Androidapi.JNI.JavaTypes, Androidapi.JNI.Telephony; procedure TForm1.Button1Click(Sender: TObject); var smsTo: JString; smsManager: JSmsManager; begin smsManager := TJSmsManager.JavaClass.getDefault; smsTo := StringToJString('091...'); smsManager.sendTextMessage(smsTo, nil, StringToJString('Test SMS'), nil, nil); end;
تابع ارسال SMS یعنی تابع sendTextMessage
بدین صورت است :
procedure sendTextMessage(destinationAddress: JString; scAddress: JString; text: JString; sentIntent: JPendingIntent; deliveryIntent: JPendingIntent); cdecl;
اگر پارمتر scAddress
را مقدار nil بدهیم برای ارسال sms از sms center پیش فرض استفاده خواهد شد. در انتها نکته قابل ذکر که در برنامه به منوی Project/Options/Permissions رفته و دسترسی ارسال SMS را برای برنامه فعال کنید.
لذت ببرید و موفق باشید.
Good piece of code
please add more codes about Delphiprogramming
سلام
می شه لطفا بفرمایید دریافت پیامک به چه صورت خواهد بود