PDA

Ver la Versión Completa : hacer llamada telefonica en delphi xe7


kurono
11-08-2017, 03:05:46
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

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, 01: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

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, 09: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, 20: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