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

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.
Smpp Component 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.

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"

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

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.