ارسال SMS با دلفی XE5 برای Android

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

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

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

HamiD

قطره ای از دریای بیکران IT