Smpp Delphi Component 1.2

SMPP Client as ActiveX

1. Install the component
From command prompt install smppx.dll with : "regsvr32 smppx.dll".

To install latest release, uninstall older one by "regsvr32 /u smppx.dll"

2. Object creation and SEND function list

To create object from smppx.dll simply createObject from string "smpp.Smppclient". In VB just call
smppObj = CreateObject( "smpp.SmppClient" ) see sample application for detail.

Here are the list funtion for sending

Send( source_address, destination_address, validity_period, sms ); // send single plain sms
Send( src_addr, dest_addr_comma_separated, vld_prd, sms ); // send multi_addr plain sms
SendFlash( source_addr, dest_addr, valid_period, sms ); // sms as flash
SendUnicode( source_addr, dest_addr, valid_period, sms ); // send Russia, Arabic, Japanese,..
change your locale to your language first before use this function.
SendNokiaLogo(source_addr, dest_addr, filename ); //
SendNokiaTone(source_addr, dest_addr, filename ); //
SendNokiaPicture(source_addr, dest_addr, filename, text ); // text is optional

filename is absolute path, eg: "c:\mypic.bmp"

source_addr = digit
dest_addr = country_code + operator + number , ex: 62 812 8123465
valid_period = left blank for smsc default

Send_xxx function for ActiveX SMPP return "OK" for success or "NO" otherwise.

3. RECEIVE message format

+SUBMIT OK ID : 1219202 ( random number from SMSC that your sms already get in to SMSC )

+QUERY_RES 1219202:2:000 ( message ID 1219202 in status 2 = DELIVERED to MobilePhone with error code 0 = no error )

+DELIVER 62200380459:85620500532:911:Hi again

mean application get SMS from CellPhone number 85620500532 to SMSC number 911 at 6 Feb 2003 8:04:59 am and sms text = "Hi again"

SMPP Client as Delphi Component

1. Install the component
From Delphi IDE : File > Open ( smppc.dpk ) > Install

Your installation will create new button at Standard pallete named SmppClient.

2. Creating SmppClient program from stracth in 1 minute

Then create application click: File > New Application (Delphi 5)
Next step is dropping SmppClient at Form designer and you will see object inspector look Pict 1.

Pic. 1

You should set mandatory property :
- Host ( host of SMSC )
- Port
- UserID
- Password
- SystemType

Drop Button1, assign Button1OnClick to SmppClient1.Connect();
Drop Button2, assign Button2OnClick to SmppClient1.Send( '1234', 'Your Cell Phone Number', '', 'Hello world' );

You done (I think its less than 1 minute). And you have SENDSMS ONLY application only with 2 line of code.

Lets continue to make RECEIVESMS also. Click SmppClient Event Double click RcxOnData assign it to

memo1.lines.add( smppClient1.Rcx.rcxData );

and TcxOnData event to

memo1.lines.add( smppClient1.Tcx.tcxData );

Complete! right now you have full SEND & RECEIVE sms program. Try this with sending sms to your number that you get from mobile operator, the sms will be caught by your application.

4. Working with Flash, Unicode, NokiaLogo, MessagePayload, Submit_multi, etc ...( Send function list )

Send( source_address, destination_address, validity_period, sms ); // send single plain sms
Send( source_addr, dest_addr_comma_separated, valid_period, sms ); // send multi plain sms
SendFlash( source_addr, dest_addr, valid_period, sms ); // sms as flash
SendUnicode( source_addr, dest_addr, valid_period, sms ); // send Russia, Arabic, Japanese,..
change your locale to your language first before use this function.
SendNokiaLogo(source_addr, dest_addr, filename ); //

filename is absolute path, eg: "c:\mypic.bmp"

source_addr = digit
dest_addr = country_code + operator + number , ex: 62 812 8123465
valid_period = left blank for smsc default

Send_xxx function for Delphi component return "<pdu_seq_number>" on success or "-1" otherwise.