Ver Mensaje Individual
  #1  
Antiguo 11-08-2017
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Reputación: 18
kurono Va por buen camino
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
Responder Con Cita