Функция по формированию SMS PDU

1. Необходима функция (Pascal или C) для преобразования входных данных (текст, номер телефона, тип кодирования) в PDU.

2. Необходима обратная функция: PDU -> (Текст, отправитель)

Т.е.

function GetPDU(const AText, APhone: string; ACodeType: integer; const ASMSC: string; const ADelivery: boolean): string;

AText - текст сообщения;

APhone - номер телефона получателя;

ACodeType - тип кодирования

=0 - 7 битная кодировка

=1 - UNICODE

ASMSC - номер SMS центра; может быть пустым;

ADelivery - подтверждение доставки

=false - без подтверждения

=true - с подтверждением

Result - строка PDU

function DecodePDU(var AText, APhone: string; var ACodeType: integer; var ADelivery: boolean): integer;

AText - текст полученного сообщения;

APhone - номер телефона отправителя;

ACodeType - тип кодирования полученного сообщения

=0 - 7 битная кодировка

=1 - UNICODE

ADelivery - полученная сообщение - подтверждение доставки

=false - обычное сообщение

=true в этом случае - в параметре AText - дата и время доставки (в любом предопредленном формате, например 2006.10.18 08:32:57)

Result - код ошибки

=0 - без ошибки

>0 - ошибка - код ошибки