ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Expédition de SMS en VFP (utilisation du composant IZS-SMS)   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
51 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle


Note des membres
20/20
1 vote


Contributions > 01 - PRG : Programmation

Expédition de SMS en VFP (utilisation du composant IZS-SMS)
# 0000000215
ajouté le 27/06/2005 17:46:28 et modifié le 27/06/2005
consulté 9116 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description

Expédition de SMS en VFP (utilisation du composant IZS-SMS)

  • Pré requis :

    • Modem RTC disposant du mode V23 (minitel) connecté au PC disposant de votre application VFP

    • Ligne téléphonique analogique

  • Comment ça marche

Il s’agit d’instancier un objet sur la classe IZSsms, ce composant utilise le modem connecté au PC pour contacter un centre d’appels sur un numéro surtaxé, le centre d’appels délivre le SMS.

  • Modèle économique

Le composant « IZS-SMS » est gratuit ; mais l’appel se fait sur un numéro surtaxé : (environ 0,30€ à 0,45€ par appel, voir : http://www.infoz.fr/produits/izs-sms/izs-sms.html)

  • Retour sur expérience

Nous utilisons cette solution depuis plusieurs années (04/2002) pour déclancher des alertes en SMS.

C’est impeccable, rapide et fiable.

Nous avions testé auparavant différentes solutions, y compris les gratuites du style email to sms ;

Mais aucune des solutions testées ne permettaient le déclenchement immédiat du SMS et aussi fiable que la solution avec IZS-SMS.

Cordialement

Francis FAURE

PS : je n’ai pas d’action dans cette société….

Code source :
o=createobject("izssmsx.izssmsx")

o.Port = "COM2"      && Port Comm. sur lequel est branché le modem
o.InitString = "&F"  && chaîne d’initialisation pour basculer le modem en v23 selon modem
o.PrefixString = ""  && numéro à composer pour prendre une ligne extérieure si pabx

o.SendTo = "0601010101"  && numéro de tél du GSM a expédier le SMS
o.Text = "Message SMS à expédier sur le mobile"

=o.Send()

v_state = alltrim(str(o.State))
if v_state=="2"
    ? " > Retour OK ("+v_state+")"
else
    ? " > Retour Erreur ("+v_state+")"
endif
o=NULL

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3