[Camilo]

Hola Amigos:

(DXE - Firebird)

Hace unos meses contrate con un servicio español unos cuantos SMS que funcionan de maravilla. El código para implementar esos envíos es el siguiente:

Código Delphi [-]
procedure TFormEnviar.btnEnviarClick(Sender: TObject);
var
  DResultado,SUrl : String;
  Parametros : TStrings;
begin
  //Se fija la URL sobre la que enviar la petición POST
  //Se debe sustituir esta URL por la que proporciona Altiria:
  SUrl:=’http://URL-Pasarela-envío-SMS-Delphi...tituir’;

  //Compone el mensaje a enviar
  //XX, YY y ZZ se corresponden con los valores
  //de identificación del usuario en el sistema
  Parametros := TStringList.Create;
  Parametros.Add(’cmd=sendsms’);
  Parametros.Add(’domainId=XXX’);
  Parametros.Add(’login=YYY’);
  Parametros.Add(’passwd=ZZZ’);
  //Para el nºdestinatario se debe poner prefijo, por ejemplo, 34:
  Parametros.Add(’dest=34XXXXXXXXX’);
  Parametros.Add(’msg=’+UTF8Encode(’Texto de prueba’));

  // Especificaciones de la Interfaz HTTP
  // Enviamos un mensaje, recibiendo
  // en "DResultado" la respuesta del servidor
  DResultado:=IdHTTP1.Post(SUrl,Parametros);
  Parametros.free;
end;

Por supuesto adecuando el código a los parámetros que correspondan a la cuenta que se abre al comprar el servicio. Insisto funciona perfectamente.

La inquietud es que necesito que un programa que esta en algunos clientes pueda enviar SMS pero que el cargo vaya a su propio Móvil.

es que si yo pongo mis claves y parámetros los SMS se me cargan a mi cuenta y no no hay bolsillo que aguante por que el elvio de SMS es continuo. Ademas la idea es que los Usuarios del Soft envíen los SMS con cargo a su propio teléfono celular.

Ojala el procedimiento que de esta inquietud resulta solo tenga como parámetro el No móvil de cual van a enviarse los SMS.

Gracias a todos.