WD and SMS

Hi,

I want to send and receive SMS from my software. Anyone done this before, using Windev?

Arie

Hi Arie,

You could use a html api like from Clickatell.
[www.clickatell.com]
Have to buy some credits to use it. I have an example if you like.

Regards,
Piet

Hi Piet,

I'm interested that example that you have developed, could you send me a copy.

TIA.
Charles

Piet,
Clickatell seems to be handy for bulk-sms situations.

I'm currently looking for a solution to receive messages every now and then. Sending an answer may become an option later. So I was thinking about buying a sms-modem (like Wavecom or Siemens) or even a very simple gsm phone (which you can get on every corner almost for free). Then I can use the serial-port to send AT-commands. I was wondering if those modems generate an event (on serial port or usb) on incoming messages, which can be trapped.

Arie

Hi Charles,

This is the function I use:

FUNCTION smsSend(sUrl,sRcode,sMcode,sMessage,sTelNr)
//sUrl=http://api.clickatell.com/http/sendmsg?api_id=613089&user=your_username&password=your_password"
//sRcode="to="
//sMcode="text="
sRequest,x,sMessage_Local are string

IF OnTestMode() THEN RESULT False
IF sTelNr="" THEN RESULT False

x=Replace(sTelNr," ","")
x=Replace(x,"-","")
x=x[[ 2 TO ]]    //remove leading zero

sMessage_Local=URLEncode(sMessage)
sRequest=sUrl+"&"+sRcode+"31"+sMessage_Local+"&"+sMcode+x
//31=country=Netherlands
IF HTTPRequest(sRequest) THEN
	x=HTTPGetResult()
	IF Left(x,3)="ERR" THEN
		Error(x)
	ELSE IF Left(x,2)="OK" OR Left(x,2)="ID" THEN 
		RESULT True
	ELSE
		Open(HtmlView,x)   //view message in html control
	END
ELSE
	Error(ErrorInfo(errFullDetails))
END
RESULT False

Best regards,
Piet

Thanks Piet

Best regards

Charles