خوب در این پست قصد داریم که با نحوه ارسال اس ام اس در برنامه هایمان آشنا شویم.

ارسال اس ام اس برای برنامه های آندرویدی در دلفی 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 را برای برنامه فعال کنید.

لذت ببرید و موفق باشید.