puedo - Cómo enviar SMS con Delphi XE5 en Android

mensajes de texto

Question

¿Alguien sabe cómo hacer que esto funcione? Lo más cercano que obtuve fue el código de abajo, pero no tuve éxito. Al principio, le da alguna esperanza cuando le dice que necesita el permiso SEND_SMS . ¡Pero después de configurar este permiso, no pasa nada!

uses
Androidapi.JNI.JavaTypes;
procedure TForm1.Button1Click(Sender: TObject);
var
smsManager: JSmsManager;
smsTo, smsFrom: JString;
begin
smsManager:= TJSmsManager.JavaClass.getDefault;
smsTo:= StringToJString(''552199999999''); //replace with the right destination number
smsFrom:= StringToJString(''552499999999''); //replace with the right originator number
smsManager.sendTextMessage(smsTo, smsFrom, StringToJString(Edit1.Text), nil, nil);
end;

Answer 1

El segundo parámetro para sendTextMessage no es el número "remitente", sino que identifica al centro de servicio del proveedor de SMS.

Es casi seguro que no quisiste especificar nada aquí. Simplemente pase nulo y SMSManager usará el centro de servicio predeterminado del dispositivo para entregar su mensaje.

sRecipient := StringToJString(edRecipient.Text);
sMessage := StringToJString(edMessage.Text);
sendTextMessage(sRecipient, nil, sMessage, nil, nil);

Answer 2

Intente pasar un valor vacío ( nil ) al parámetro scAddress de la llamada a la función sendTextMessage para usar el centro de SMS predeterminado actual:

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;

Answer 3

También puedes hacerlo con objeto JIntend como abajo

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;

Answer 4

Ver también:

http://delphi-android.blogspot.dk/2013/10/how-to-send-sms-with-delphi-on-android.html

para una función de copiar y pegar.

Me gusta tener esas funciones en una unidad separada, en lugar de ponerlas en el controlador de eventos del Botón.