[FMX] Envoi de SMS

SendSMS est une application permettant d'envoyer des SMS tout simplement.

Signaler un problème

SergioMaster

Rédacteur/Modérateur

Le 28/10/2015 à 8:38

Bonjour,

une autre solution consiste à passer par un Intent, je n'ai jamais testé (faute de téléphone ad hoc)

ce code semble provenir de Daniele Teti "Delpi CookBook" dont j'ai déjà parlé

Code :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
procedure CreateSms(const Number, Msg: string);
var
  Intent: JIntent;
  Uri: Jnet_Uri;
begin
  Uri := TJnet_Uri.JavaClass.parse(StringToJString(Format('smsto:%s', [Number])));
  Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, Uri);
  Intent.putExtra(StringToJString('sms_body'), StringToJString(Msg));
  SharedActivity.startActivity(Intent);
end;

Poster un commentaire

Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.