Enviar SMS con el WerbService de ARSYS
 

Hola a todos, alguien ha hecho algo para enviar un sms con el webservice de Arsys o algo similiar. En el manual me pone
Pero no pone nada de metodo POST,GET, etc. si alguno ya lo hizo le agradecería una ayuda, si no toca lidiar con el servicio técnico.

Saludos.

Monta esa URL con tus datos y abre directamente una web. Eso debería funcionar y te servirá para probar.

Si quieres hacerlo con las indy basta con estas 2 líneas:

Código Delphi [-]
var
  sURL:String;
begin
  sURL := 'https://sms.arsys.es/smsarsys/accion/enviarSms2.jsp?id=.......';
  Memo1.Lines.Text := idhttp1.Get(sURL);

El resultado, si lo lanzas será algo como esto en caso de error (mi caso que no tengo datos):



Y algo similar con una respuesta de OK cuando vaya bien.

Como la URL es https, necesitarás 2 componentes:

Código Delphi [-]
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;

Y utilizar las librerías de SSL en el directorio del ejecutable.

Gracias, por tu ayuda. Pero decir que al final no utilicé esa manera de enviar los SMS, decir que esa casa comercial tiene disponible una libreria que importé en delphi y va a las mil maravillas, por si alquien la quiere usar, la unica pega por decirle algo, es que los sms los hay que comprar, pero ......
Haber cuando podemos interactuar con el whatsapp para enviar mensajes desde un programita de escritorio, seguramente todo llegará ..... Ahí estaremos con nuestro delphi para hacerlo posible.
Un saludo a todos, y a seguir ........

Ya se puede interactau con WhatsApp, pero la API es también comercial.
https://www.whatsapp.com/business/api/?lang=es

Hola.

Supongo que la librería que importaste es la SMSCOM.dll.

En todo caso, ¿Podrías poner el código que usas para enviar un SMS con esta librería?

Muchas Gracias.
Adolfo de Bonis.

Eso está hecho. El componente le llamo Enviar.
Primero consulto si tientes crédito.

Código Delphi [-]
Procedure TPrincipal.ConsultaDisponibles;
Begin
  Enviar.Disconnect;
  Enviar.setAccount(Edit3.Text);  // Cargo la cuenta normalmente una dirección de correo electronico.
  Enviar.setPwd(Edit4.Text);     // La contaseña
  Enviar.Send;       // Me comunico 
  eDisponibles.Text:=Enviar.getCredit;  // Recupero los sms disponibles.
  Enviar.Disconnect;
end;

Luego envio el mensaje y capturo la respuesta para procesarla.

Código Delphi [-]
        Enviar.setAccount(Edit3.Text);
        Enviar.setPwd(Edit4.Text);
        Enviar.setText(Memo1.Lines.Text);   // El mensaje 160 caracteres.
        Enviar.SetFrom(Edit1.Text);     // Remite, es el valor que ven los usuarios tan pronto reciben un SMS
        Enviar.SetTo(Edit2.Text);       // El numero de telefono para enviar el sms
        Memo2.Lines.Add(Edit2.Text);    //Primero guardo el telefono al que envio y así luego ya me aparece la respuesta.
        Memo2.Lines.Add(Enviar.Send);

Hay muchos comandos más, como recuperar información, programar envios entre fechas, etc. Todo especificiado en la información de la librería. Hay un pdf de libre descarga en la página de arsys.

Si necesitais alguna cosa mas, a vuestra disposicion.