Como enviar SMS com o Delphi XE5 no Android
Alguém sabe como fazer isso funcionar? O mais perto que cheguei foi o código abaixo, mas não obtive sucesso. No começo, isso lhe dá alguma esperança quando diz que você precisaSEND_SMS
permissão. Mas depois de configurar essa permissão, nada acontece!
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;