Dear user!

With this pas file u can converting texts into PDU format easily, and vica versa.

2 functions were developed:

function texttosms(smscenter: string; targetms: string; text: string): Tpdu;
function smstotext(pdu: string): Tsms;

WARNING! The SMSCenter parameter was currently removed from the function due to the ETSI standards...

Eg. if you want to create an sms in pdu format: 

pdu:=texttosms('','36309304401','Test message');

Where pdu is a Tpdu variable, pdu[1] is the sms in pdu format, and pdu[2] is the length of the sms.
Eg. you can send the sms via a nokia phone like this:

'AT+CMGS='+pdu[2]+#13+pdu[1]+s, where s is the CTRL+Z character

Reverse way (processing a received sms):

sms:=smstotext(pdu formatted text);

Where sms is a Tsms variable, sms[1] is the smscenter number, sms[2] is the sender, sms[3] is the timestamp, sms[4] is the sms body.


Included 2 types:

Tpdu = array [1..2] of string;
Tsms = array [1..4] of string;


If you have any more problems, or found a bug, please send me a mail: barna.szternak@vodafone.hu

Best regards: Barna Szternak