SMS Delphi. Enviar SMS Delphi
Altiria facilita el envío de SMS en Delphi mediante ejemplos de código a sus clientes.
Para integrar el envío de SMS con Delphi , en primer lugar es necesario leer la documentación técnica de envío de SMS, API SMS. El protocolo de comunicaciones más sencillo para implementar el envío de SMS es el protocolo HTTP.
El siguiente código es un ejemplo incompleto sólo con el fin de mostrar el procedimiento de envío de SMS con Delphi. Para un ejemplo detallado, la referencia es la especificación técnica.
Para que funcione el código en Borland Delphi, es necesario seguir los siguientes pasos:
- Incluir el componente TIdHTTP ubicado en la paleta de componentes Indy Clients.
- Configurar las cabeceras asignando a la propiedad “Request->ContentType” el valor “application/x-www-form-urlencoded; charset=UTF-8″
procedure TFormEnviar.btnEnviarClick(Sender: TObject);
var
DResultado,SUrl : String;
Parametros : TStrings;
begin
//Se fija la URL sobre la que enviar la petición POST
//Como ejemplo la petición se envía a
//www.enviarsmsdelphi.net/sustituirPOSTsms
SUrl:=’http://www.enviarsmsdelphi.net/sustituirPOSTsms’;
//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(’dest=346XXXXXXXX’);
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;
