{"id":269,"date":"2010-12-21T00:02:01","date_gmt":"2010-12-20T14:02:01","guid":{"rendered":"http:\/\/www.desiderata.com.au\/blog\/?p=269"},"modified":"2010-12-27T17:48:43","modified_gmt":"2010-12-27T07:48:43","slug":"sms-texting-from-delphi-via-redcoal-sms-soap-server","status":"publish","type":"post","link":"https:\/\/www.desiderata.com.au\/blog\/?p=269","title":{"rendered":"SMS Texting from Delphi via RedCoal SMS SOAP Server"},"content":{"rendered":"

Many Australian companies use RedCoal SMS texting services to send SMS texts to mobile phones from computers.<\/p>\n

RedCoal <\/a>supplies an API for its MIDA technology with VB and C++ examples<\/a> but no Delphi code.<\/p>\n

I have created a Delphi demo with code<\/strong> using Delphi 2007, which you can download<\/a> and use free of charge<\/strong>.<\/p>\n

Of course, to actually use the SMS text service, you will need to download the SDK from RedCoal<\/a> which includes a serial number generator which provides the serial number for your application, and you will need to email them for a trial SMS Key (developer’s trial lasts 1 month then there is a one off royalty free developer’s license <\/a>of $A695).<\/p>\n

Finally, your client will need to open an SMS text service account with RedCoal to pay for the actual SMS texts sent (17-22c per SMS for pre-paid).<\/p>\n

Post script:<\/p>\n

If you deploy this in an organisation which uses a proxy server for internet<\/strong>, then you will need to detect this and set the HTTPWebNode.proxy property which must be in the format server:port (fortunately, this is the format used in Windows registry as outlined below):<\/p>\n

for example:<\/p>\n

RedCoalRIO.HTTPWebNode.Proxy := GetInternetProxy;<\/em><\/p>\n

function GetInternetProxy:String;
\nvar reg:TRegistry;
\nbegin
\nresult := ”;
\nReg := TRegistry.Create;
\ntry
\nReg.RootKey := HKEY_CURRENT_USER;
\nif Reg.OpenKey(‘\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings’,False) then
\nif Reg.readBool(‘ProxyEnable’) then
\nbegin
\nReg.CloseKey;
\nif Reg.OpenKey(‘\\Software\\Microsoft\\Windows\\CurrentVersion\\Internet Settings’,False) then
\nResult := Reg.readString(‘ProxyServer’);
\nend;
\nfinally
\nReg.CloseKey;
\nReg.Free;
\nend;
\nend;<\/em><\/p>\n","protected":false},"excerpt":{"rendered":"

Many Australian companies use RedCoal SMS texting services to send SMS texts to mobile phones from computers. RedCoal supplies an API for its MIDA technology with VB and C++ examples but no Delphi code. I have created a Delphi demo … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[11,10],"class_list":["post-269","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-mobile-phones","tag-sms-text"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t