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
SUrl:=’http://URL-Pasarela-envío-SMS-Delphi...tituir’;
Parametros := TStringList.Create;
Parametros.Add(’cmd=sendsms’);
Parametros.Add(’domainId=XXX’);
Parametros.Add(’login=YYY’);
Parametros.Add(’passwd=ZZZ’);
Parametros.Add(’dest=34XXXXXXXXX’);
Parametros.Add(’msg=’+UTF8Encode(’Texto de prueba’));
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.