hacer llamada telefonica en delphi xe7
 

hola amigos como estan a ver si pueden ayudarme con un pequeño problema que tengo resulta que estoy realizando una aplicacion que usa el servicio de llamada del celular para enviar una serie de mensaje por medio de codigos propietario de la compañia telefonica me explico esta compañia tiene codigo de envio para cuando no tenga saldo de llamada por ejemplo si no tiene saldo puedes enviar un codigo a un amigo de llamame por ejemplo #101*número del destinatario# el codigo fuente que utilizo en esta aplicacion es el siguiente

Código Delphi [-]
 FMX.PhoneDialer, FMX.Platform;

var
  PhoneDialerService: IFMXPhoneDialerService;
begin
  {Prueba si se admiten los servicios PhoneDialer}
  if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then
  begin
   {Si se introduce el número de teléfono en el cuadro de edición y luego hacer la llamada, lo demás
       mostrará un mensaje de error}
    if txt_numero.Text <> '' then
      PhoneDialerService.Call(txt_numero.Text)
    else
    begin
      ShowMessage('Seleccione un Numero a llamar');
    end;
  end;
end;

el codigo funciona bien siempre y cuando sea asi 8095966447 pero si lleva los comodines #101*8095966447# no funciona alguien puede decirme porque

amigos les cuento que e estado rompiendome la cabeza con este problema y se me ocurrio cambiar el codigo por otro pero lamentablemente obtengo el mismo resultado aqui le muestro el otro codigo

Código Delphi [-]
 uses
 IdURI, Androidapi.Helpers,
 Androidapi.Jni.GraphicsContentViewText,
 Androidapi.Jni.Net, Androidapi.Jni.JavaTypes;

procedure TForm1.Button1Click(Sender: TObject);
 var
  uri : string;
  Intent : JIntent;
begin
  uri :='tel://'+Edit1.Text;
 try
   Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_CALL, TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(uri))));
   SharedActivity.startActivity(Intent);
   except
    on E: Exception do
    ShowMessage(E.Message);
   end;
 end;
end.

Hola,

¿No hay error, ni excepción, ni nada? Lo digo porque el número que muestras parece válido... ¿no?

cuando ejecuto el primer codigo que utilize me dice que el numero es invalido mientra que en el segundo codigo me dice numero desconocido