Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SMS / Pager software tool
Message
De
29/06/2004 10:37:42
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
 
 
À
29/06/2004 08:16:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00918380
Message ID:
00918470
Vues:
6
Yes, I tried Oxygen SMS ActiveX:

You can send, get sms, control sended SMSs, delete SMSs from phone, even control battery level for Nokia Phones...

The biggest problem is no royalty free... You have to pay money for every copy them. :(

Also there is Nokia Developer kit on Nokia's web site but I didn't success. that code gives error me:
#DEFINE errPhoneNotConnected  7696
#DEFINE errCommunicationError 7689
#DEFINE errUnknown            7935

LOCAL  CellNum
LOCAL  TextMesg
PUBLIC CommErrorRetries

CellNum = '353863982273'
TextMesg = 'TESTING NOKIA DATA SUITE'
CommErrorRetries = 0

ON ERROR DO ErrHand

objSMS = CREATEOBJECTEX('SMSAdapter.SMSAdapter.1','','')
objMess = .NULL. && objMess is initially a boolean with value = .F.
objSMS.CreateShortMsg(@objMess)

objMess.UserDataText    = TextMesg
objMess.OtherEndAddress = CellNum
objMess.SCAddress       = CellNum
objSMS.Send(objMess)
objSMS.Terminate

PROCEDURE ErrHand
   SMSErr = objSMS.GetLastError
   DO CASE
   CASE SMSErr = errPhoneNotConnected
      MESSAGEBOX("Phone is not connected")
   CASE SMSErr = errCommunicationError
      * If Communication Error retry 5 times
      CommErrorRetries = CommErrorRetries + 1
      IF CommErrorRetries > 5
         MESSAGEBOX("Communication error between the device and the PC")
      ELSE
         RETRY
      ENDIF
   CASE SMSErr = errUnknown
      MESSAGEBOX("Unknown error")
   OTHERWISE
      MESSAGEBOX("Error code : "+ALLTRIM(STR(SMSErr)))
   ENDCASE
   ON ERROR
   CANCEL
   CLEAR ALL
ENDPROC
>Does anyone know of a good Pager / SMS Message developer tool for VFP 8.0 ??
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform