Ver Mensaje Individual
  #7  
Antiguo 05-11-2020
muli muli is offline
Miembro
 
Registrado: jun 2003
Ubicación: A Coruña
Posts: 194
Reputación: 21
muli Va por buen camino
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.
__________________
SI UN PROBLEMA TIENE SOLUCION, YA NO ES UN PROBLEMA, Y SI NO LA TIENE PARA QUE PREOCUPARSE.
Responder Con Cita