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; 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
\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":"