Foros Club Delphi

Foros Club Delphi (http://www.clubdelphi.com/foros/index.php)
-   Desarrollo en Delphi para Android (http://www.clubdelphi.com/foros/forumdisplay.php?f=57)
-   -   hacer llamada telefonica en delphi xe7 (http://www.clubdelphi.com/foros/showthread.php?t=92156)

kurono 11-08-2017 04:05:46

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

kurono 13-08-2017 02:46:04

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.

dec 13-08-2017 10:03:02

Hola,

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

kurono 13-08-2017 21:18:07

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


La franja horaria es GMT +2. Ahora son las 13:06:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi