Newsgroup: it.comp.lang.vo-clipper
Titolo: SMS da VO

Dovrei poter spedire SMS dalla mia applicazione VO,
qualche suggerimento, esempio di codice???
Grazie
Paolo

Ci fu una discussione sul NG Internazionale a Dicembre scorso. Mi sembra che
la iniziò Gary Stark, però ho perso le tracce purtroppo.

 qualche suggerimento, esempio di codice???
Io da Visual Basic ho utilizzato SOAP. Ma dovresti chiedere prima le
specifiche esatte al provider che ti fornisce il servizio in quanto
ognuno adotta il proprio sistema. Eventualmente ti servisse l'esempio in
SOAP chiedimelo pure.
EMG
--
EMAG Software Homepage:     
http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: 
http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: 
http://www.emagsoftware.it/tbosg

 ha scritto nel messaggio
news:2k4j0pF...@uni-berlin.de...


 Ciao
Grazie a tutti per le soluzioni proposte, una cose che mi è venuta in mente
è usare il servizio emailSMS in pratica invio di email che vengono
poi convertite dal provider in SMS, cosa ne pensate??
Paolo

 poi convertite dal provider in SMS, cosa ne pensate??
Mi sembra ottimo. Non sapevo ci fossero provider che offrono tale
servizio.



Io ho trovato questo
http://www.smshosting.it/
Paolo

 
http://www.smshosting.it/
Grazie!


Io usavo un sistema simile ma aveva il problema di nessun FeedBack di
ritorno.
Se il numero del cellulare era errato non mi segnalava l'impossibilità di
invio ed inoltre non mi segnalava, in caso di credito esaurito, che i
messaggi non sarebbero stati recapitati....
Attraverso l'interfaccia HTTP/XML invece tutte le informazioni le ottengo in
tempo reale.
Ciao, Marco


 tempo reale.
Giusto. E questo vale anche per l'interfaccia SOAP. Anche con
quest'ultima si ottengono le informazioni in tempo reale.


 ha scritto nel messaggio
news:2k4j0pF...@uni-berlin.de...


Prova con questo: (non garantisco, cosě l'ho trovata e cosě la mando)
FUNCTION Start()
 LOCAL oCon   AS Console
 LOCAL pPhone  AS PTR
 LOCAL nError  AS DWORD
 oCon := Console{}
 oCon:Title := "Sending an SMS message"
 oCon:WriteLine("Opening the connection")
 BEGIN SEQUENCE
  ///////////////////////////////
  // Check connection to phone //
  ///////////////////////////////
  IF (pPhone := FOpen("COM4:",FC_NORMAL)) == F_ERROR
   nError := FError()
   oCon:WriteLine("Error Number: " + NTrim(nError))
   oCon:WriteLine(DosErrString(nError))
   BREAK
  ENDIF
  ///////////////////////////////////////
     // Phone is working ... send message //
     ///////////////////////////////////////
     oCon:WriteLine("Connection opened")
  pamSendSMSMessage(pPhone,"
+447968853397
","Test Web Watchdog")
  FClose(pPhone)
 RECOVER
  oCon:WriteLine( "Hit any key to terminate")
  oCon:Read()
 END SEQUENCE
FUNCTION pamSendSMSMessage(pPhone,cNumber,cMessage) AS DWORD
////////////////////////////////////////////////////////////////////////////
/
 // This function contructs an SMS message and then sends it as
//
 // AT+CMGS="phone number",nTypeOfAddress+ CRLF
//
 // IF then waits FOR > blank and then sends the TEXT followed by control-Z
//
 // The network responds WITH
//
 // +CMGS: MessageNumber CRLF
//
////////////////////////////////////////////////////////////////////////////
/
 LOCAL cMsg1  AS STRING
 LOCAL cMsg2     AS STRING
 LOCAL i   AS WORD
 LOCAL cReply AS STRING
 LOCAL nMR  AS DWORD // Message reference number
 LOCAL cChar  AS STRING
 cMsg1 := 'AT+CMGS="' + cNumber + '",'
 IF Left(cNumber,1) == "+"
  cMsg1 += "145"
 ELSE
  cMsg1 += "129"
 ENDIF
 cMsg1 += CRLF
 cMsg2 := cMessage + CTRLZ   // To show EOM
 //////////////////////////
 // Now send the header  //
 //////////////////////////
 FWrite(pPhone,cMsg1)
 //////////////////////////
 // Wait for "> "  //
 //////////////////////////
 cReply  := ""
 DO WHILE Right(cReply,2) <> "> "
  cChar  := " "
  FRead(pPhone,@cChar,1)
  cReply += cChar
    ENDDO
 ////////////////////////
 // Now write the body //
 ////////////////////////
 FWrite(pPhone,cMsg2)    // Write the message
 cReply := ""
 //////////////////////
 // Wait for 2 CRLFs //
 //////////////////////
 DO WHILE Occurs(CRLF,cReply) < 2  // Two CRLFs
  cChar := " "
  FRead(pPhone,@cChar,1)
  cReply += cChar // Next byte
 ENDDO
 i := RAt(" ",cReply)      // Remove the echo
 cReply := SubStr(cReply,i+1)
 cReply := Left(cReply,Len(cReply)-2) // Strip the CRLF
 IF Empty(i := At(",",cReply))
  nMR := Val(cReply)
 ELSE
  nMR := Val(Left(cReply,i-1))
 ENDIF
 RETURN nMR       // Return the reference number
Danilo Giuliani
www.softdevo.com
in...@softdevo.com
sup...@softdevo.com