Mam's WebSite

Mamの覚書Q&A検索


大項目:「 Delphi 」 - 中項目:「 FMX_Android 」

「 SMSを送る 」

SMSを送る


回答

ソース

procedure TForm2.Button2Click(Sender: TObject);
var intent:Androidapi.JNI.GraphicsContentViewText.JIntent;
    smsNumber:jNet_Uri;
    //smsNumber:jUri;
    //j:jUri;
begin
 
  intent := Androidapi.JNI.GraphicsContentViewText.TJIntent.Create;
  //intent.setAction(TJIntentACTION_SENDTO);
  intent.setAction(TJIntent.JavaClass.ACTION_SENDTO);
 
  Intent.setType(StringToJString('text/plain'));
 

  //j:=TjURI.JavaClass.resolve(StringToJString('sms:090携帯電話番号'));
 
  //intent:=TJIntent.JavaClass.init(TJIntentACTION_SENDTO);
  //電話番号の指定
  smsNumber := StrToJURI('sms:090携帯電話番号');
  //TJnet_Uri.JavaClass.parse(StringToJString('sms:090携帯電話番号'));
 
  //smsNumber:=TjURI.Create;
 
  intent.setData(smsNumber);
  //intent.setData(j);
  //本文の指定
  intent.putExtra(StringToJString('sms_body'),StringToJString('日本語Message Body!!'));
 
  //Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT,
  //  StringToJString('Delphi Rocks!!!'));
 
  //Activityの起動
  //SharedActivity.startActivity(Intent.createChooser(intent, 'Pick a SMS App'));
 

  FMX.Helpers.Android.SharedActivity.startActivity(intent);
 
  //TJnet_Uri.JavaClass.parse()
  //MainActivity.startActivity
end;

Copyright 2019 Mam