How can I send SMSes from a Delphi program in Australia?

Hi

I've been poking around for a while to do this. We are sending messages by email from our Delphi program and want to add the option of SMSes. Can someone guide me through this - what service and how to code, preferably with no DLLs to distribute.

TIA
Mark
LVL 1
markaureliusAsked:
Who is Participating?
 
ebob42Connect With a Mentor Commented:
Full article is http://www.drbob42.com/examines/examin97.htm but the overvoew of options is http://www.drbob42.com/SMS
0
 
jimyXCommented:
0
 
jimyXCommented:
0
Get expert help—faster!

Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.

 
markaureliusAuthor Commented:
jimyX, are you successfully using this from Australia?
0
 
ebob42Commented:
Take a look at my article, where I describe how to use a SMS gateway; a provider that would allow me to contact this service over the internet, and would send the SMS message to a mobile phone. There a number such providers, all offering a somewhat similar service.

The article covers two examples, using HTTP to send the requests. I've been using this for years now, with my webshop sending me an SMS whenever someone buys a new courseware manual from me, for example.
0
 
jimyXCommented:
@ Markaurelius,
When I visit Australia I will ensure testing it ;-) meanwhile I can only suggest for you some sources and if you are interested you can try them out:
http://www.example-code.com/delphi/sms_send.asp

If you got time to read and check:
http://delphi-sms-component.safe-install.com/
0
 
tsheraman22Commented:
If you use mobilenumber@telco.com -- you will have a 70% failure rate. Most mobile operators dont provide those gateways
0
 
markaureliusAuthor Commented:
OK, I have got this working, following Dr Bob's advice, using Clickatell. The stumbling block was that I had to sign up to the right scheme and then get their pdf manual and encode that. I then used the indy components, since I'm more familiar with them.
0
 
aikimarkCommented:
@markaurelius

Please accept Dr Bob's comment.
0
 
tsheraman22Commented:
Here is a one solution:

function SendSMS (
    AccountId : String;
    Email : String;
    Password : String;
    Recipient : String;
    SmsText   : String ) : Integer; stdcall; external 'c:\redoxygen.dll';

procedure SendSmsExample

var
    iResult : Integer;

begin

    iResult := SendSMS('CI00001234',
                      'username@company.com',
                      'yourpassword',
                      '61407000000',
                      'Hello from Delphi');

   if iResult <> 0 then
      MessageBox(0,PChar('SendSMS Result = ' + IntToStr(iResult)),'SendSMS',MB_OK)
   else
      MessageBox(0,'Message sent ok','SendSMS',MB_OK);

end;

I am not allowed to post the URL here, sorry
0
 
markaureliusAuthor Commented:
There is proprietary knowledge of each service providers API needed.
0
 
aikimarkCommented:
@tsheraman22

>>I am not allowed to post the URL here
The problem with your original post is that your company (?you?) have a commercial product that is part of your solution and you do not disclose your relationship with the product.

Your earlier comment was deleted as flagrant advertising.  Even though your latest comment http:#35248081 would lead someone to your web site, the question has been answered by DrBob42 and I am adding this comment to inform future readers of the bias.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.