- 浏览: 891832 次
- 来自: ...
-
最新评论
-
maycolour：
唉,居然在系统里存在一个同样名字和代码类似的程序~~~~~~~ ...
SAP的BOM删除和维护 -
linghanjunzi：
真经典，总结了那么多的资料，很有用处，如果楼主再更新一下，把无 ...
C++--CListCtrl使用技巧的摘抄 -
harry_2013：
还可以这样啊
EDITOR-CALL语句的使用：修改abap内表的内容(代码摘抄) -
elin_yi：
你好,上面代码中的INCLUDE zheading.
可是ZH ...
BDC program for Purchase Info Records (ME11) -
byfhd：
you are stronger!
如何提高读取BSEG的性能（sap已清项和未清项的提取）
目前，发送短消息常用Text和PDU(Protocol Data Unit，协议数据单元)模式。使用Text模式收发短信代码简单，实现起来十分容易，但最大的缺点是不能收发中文短信；而PDU模式不仅支持中文短信，也能发送英文短信。PDU模式收发短信可以使用3种编码：7-bit、8-bit和UCS2编码。7-bit编码用于发送普通的ASCII字符，8-bit编码通常用于发送数据消息，UCS2编码用于发送Unicode字符。一般的PDU编码由A B C D E F G H I J K L M十三项组成。
A：短信息中心地址长度，2位十六进制数(1字节)。
B：短信息中心号码类型，2位十六进制数。
C：短信息中心号码，B+C的长度将由A中的数据决定。
D：文件头字节，2位十六进制数。
E：信息类型，2位十六进制数。
F：被叫号码长度，2位十六进制数。
G：被叫号码类型，2位十六进制数，取值同B。
H：被叫号码，长度由F中的数据决定。
I：协议标识，2位十六进制数。
J：数据编码方案，2位十六进制数。
K：有效期，2位十六进制数。
L：用户数据长度，2位十六进制数。
M：用户数据，其长度由L中的数据决定。J中设定采用UCS2编码，这里是中英文的Unicode字符。
PDU编码协议简单说明
例1 发送：SMSC号码是+8613800250500，对方号码是13693092030，消息内容是“Hello!”。从手机发出的PDU串可以是
08 91 68 31 08 20 05 05 F0 11 00 0D 91 68 31 96 03 29 30 F0 00 00 00 06 C8 32 9B FD 0E 01
对照规范，具体分析：
分段 含义 说明
08 SMSC地址信息的长度 共8个八位字节(包括91)
91 SMSC地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)
68 31 08 20 05 05 F0 SMSC地址 8613800250500，补‘F’凑成偶数个
11 基本参数(TP-MTI/VFP) 发送，TP-VP用相对格式
00 消息基准值(TP-MR) 0
0D 目标地址数字个数 共13个十进制数(不包括91和‘F’)
91 目标地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)
68 31 96 03 29 30 F0 目标地址(TP-DA) 8613693092030，补‘F’凑成偶数个
00 协议标识(TP-PID) 是普通GSM类型，点到点方式
00 用户信息编码方式(TP-DCS) 7-bit编码
00 有效期(TP-VP) 5分钟
06 用户信息长度(TP-UDL) 实际长度6个字节
C8 32 9B FD 0E 01 用户信息(TP-UD) “Hello!”
例2 接收：SMSC号码是+8613800250500，对方号码是13693092030，消息内容是“你好!”。手机接收到的PDU串可以是
08 91 68 31 08 20 05 05 F0 84 0D 91 68 31 96 03 29 30 F0 00 08 30 30 21 80 63 54 80 06 4F 60 59 7D 00 21
对照规范，具体分析：
分段 含义 说明
08 地址信息的长度 个八位字节(包括91)
91 SMSC地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)
68 31 08 20 05 05 F0 SMSC地址 8613800250500，补‘F’凑成偶数个
84 基本参数(TP-MTI/MMS/RP) 接收，无更多消息，有回复地址
0D 回复地址数字个数 共13个十进制数(不包括91和‘F’)
91 回复地址格式(TON/NPI) 用国际格式号码(在前面加‘+’)
68 31 96 03 29 30 F0 回复地址(TP-RA) 8613693092030，补‘F’凑成偶数个
00 协议标识(TP-PID) 是普通GSM类型，点到点方式
08 用户信息编码方式(TP-DCS) UCS2编码
30 30 21 80 63 54 80 时间戳(TP-SCTS) 2003-3-12 08:36:45 +8时区
06 用户信息长度(TP-UDL) 实际长度6个字节
4F 60 59 7D 00 21 用户信息(TP-UD) “你好!”
若基本参数的最高位(TP-RP)为0，则没有回复地址的三个段。从Internet上发出的短消息常常是这种情形。
注意号码和时间的表示方法，不是按正常顺序顺着来的，而且要以‘F’将奇数补成偶数。
在PDU Mode中，可以采用三种编码方式来对发送的内容进行编码，它们是7-bit、8-bit和UCS2编码。7-bit编码用于发送普通的ASCII字符，它将一串7-bit的字符(最高位为0)编码成8-bit的数据，每8个字符可“压缩”成7个；8-bit编码通常用于发送数据消息，比如图片和铃声等；而UCS2编码用于发送Unicode字符。PDU串的用户信息(TP-UD)段最大容量是140字节，所以在这三种编码方式下，可以发送的短消息的最大字符数分别是160、140和70。这里，将一个英文字母、一个汉字和一个数据字节都视为一个字符。
需要注意的是，PDU串的用户信息长度(TP-UDL)，在各种编码方式下意义有所不同。7-bit编码时，指原始短消息的字符个数，而不是编码后的字节数。8-bit编码时，就是字节数。UCS2编码时，也是字节数，等于原始短消息的字符数的两倍。如果用户信息(TP-UD)中存在一个头(基本参数的TP-UDHI为1)，在所有编码方式下，用户信息长度(TP-UDL)都等于头长度与编码后字节数之和。如果采用GSM 03.42所建议的压缩算法(TP-DCS的高3位为001)，则该长度也是压缩编码后字节数或头长度与压缩编码后字节数之和。
2 参见详细英文说明:http://www.dreamfabric.com/sms/
3 delphi代码
{ --------------------------------------------------------- }
{ Purposes : }
{ 1. Convert ASCII to 7-bit PDU }
{ 2. Convert 7-bit, 8-bit and 16-bit PDU to ASCII }
{ 3. Decode/Parsing the hexadecimal (PDU) of SMS message }
{ 4. Encode ASCII characters to be sent as SMS ready string }
{ }
{ --------------------------------------------------------- }
{ Coder : Daniel Eka Nugraha }
{ URL : http://www.averagecoder.com/ }
{ Email : pinoez@yahoo.com }
{ --------------------------------------------------------- }
{ This is not a perfect one, so Use it at your own risk ! }
{ --------------------------------------------------------- }
unit SMSCODEC;
interface
uses
Windows, Messages, SysUtils, Classes, StrUtils, Math, Dialogs;
type
TSMSCODEC = class(TComponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Binerkan(Angka: integer): string;
function Bin2Long(StrBiner: string): integer;
function PDU7BIT2ASCII(StrPDU: string; PanjangUDH, PanjangData: integer): string;
function PDU8BIT2ASCII(StrPDU: string; PanjangUDH, PanjangData: integer): string;
function PDU16BIT2ASCII(StrPDU: string; PanjangUDH, PanjangData: integer): string;
function ASCII2PDU7BIT(StrASCII: string): string;
function DecodeSMS(StrSMS : string) : TStringList;
function EncodeSMS(StrTujuan, StrPesan: string): string;
published
{ Published declarations }
end;
procedure Register;
implementation
var Nono: integer;
EQ7BIT2ASCII : array [0..127] of integer; // Table persamaan 7-bit ke ASCII
EQASCII27BIT : array [0..255] of integer; // Table persamaan ASCII ke 7-bit
procedure Register;
begin
RegisterComponents('averagecoder', [TSMSCODEC]);
end;
constructor TSMSCODEC.Create(AOwner: TComponent);
var i : integer;
begin
inherited Create(AOwner);
// This is the transition table from 7-bit to ASCII
Nono := -1;
EQ7BIT2ASCII[0] := 64;
EQ7BIT2ASCII[1] := 163;
EQ7BIT2ASCII[2] := 36;
EQ7BIT2ASCII[3] := 165;
EQ7BIT2ASCII[4] := 232;
EQ7BIT2ASCII[5] := 223;
EQ7BIT2ASCII[6] := 249;
EQ7BIT2ASCII[7] := 236;
EQ7BIT2ASCII[8] := 242;
EQ7BIT2ASCII[9] := 199;
EQ7BIT2ASCII[10] := 10;
EQ7BIT2ASCII[11] := 216;
EQ7BIT2ASCII[12] := 248;
EQ7BIT2ASCII[13] := 13;
EQ7BIT2ASCII[14] := 197;
EQ7BIT2ASCII[15] := 229;
EQ7BIT2ASCII[16] := Nono;
EQ7BIT2ASCII[17] := 95;
EQ7BIT2ASCII[18] := Nono;
EQ7BIT2ASCII[19] := Nono;
EQ7BIT2ASCII[20] := Nono;
EQ7BIT2ASCII[21] := Nono;
EQ7BIT2ASCII[22] := Nono;
EQ7BIT2ASCII[23] := Nono;
EQ7BIT2ASCII[24] := Nono;
EQ7BIT2ASCII[25] := Nono;
EQ7BIT2ASCII[26] := Nono;
EQ7BIT2ASCII[27] := Nono;
EQ7BIT2ASCII[28] := 198;
EQ7BIT2ASCII[29] := 230;
EQ7BIT2ASCII[30] := 223;
EQ7BIT2ASCII[31] := 201;
EQ7BIT2ASCII[32] := 32;
EQ7BIT2ASCII[33] := 33;
EQ7BIT2ASCII[34] := 34;
EQ7BIT2ASCII[35] := 35;
EQ7BIT2ASCII[36] := 164;
EQ7BIT2ASCII[37] := 37;
EQ7BIT2ASCII[38] := 38;
EQ7BIT2ASCII[39] := 39;
EQ7BIT2ASCII[40] := 40;
EQ7BIT2ASCII[41] := 41;
EQ7BIT2ASCII[42] := 42;
EQ7BIT2ASCII[43] := 43;
EQ7BIT2ASCII[44] := 44;
EQ7BIT2ASCII[45] := 45;
EQ7BIT2ASCII[46] := 46;
EQ7BIT2ASCII[47] := 47;
EQ7BIT2ASCII[48] := 48;
EQ7BIT2ASCII[49] := 49;
EQ7BIT2ASCII[50] := 50;
EQ7BIT2ASCII[51] := 51;
EQ7BIT2ASCII[52] := 52;
EQ7BIT2ASCII[53] := 53;
EQ7BIT2ASCII[54] := 54;
EQ7BIT2ASCII[55] := 55;
EQ7BIT2ASCII[56] := 56;
EQ7BIT2ASCII[57] := 57;
EQ7BIT2ASCII[58] := 58;
EQ7BIT2ASCII[59] := 59;
EQ7BIT2ASCII[60] := 60;
EQ7BIT2ASCII[61] := 61;
EQ7BIT2ASCII[62] := 62;
EQ7BIT2ASCII[63] := 63;
EQ7BIT2ASCII[64] := 161;
EQ7BIT2ASCII[65] := 65;
EQ7BIT2ASCII[66] := 66;
EQ7BIT2ASCII[67] := 67;
EQ7BIT2ASCII[68] := 68;
EQ7BIT2ASCII[69] := 69;
EQ7BIT2ASCII[70] := 70;
EQ7BIT2ASCII[71] := 71;
EQ7BIT2ASCII[72] := 72;
EQ7BIT2ASCII[73] := 73;
EQ7BIT2ASCII[74] := 74;
EQ7BIT2ASCII[75] := 75;
EQ7BIT2ASCII[76] := 76;
EQ7BIT2ASCII[77] := 77;
EQ7BIT2ASCII[78] := 78;
EQ7BIT2ASCII[79] := 79;
EQ7BIT2ASCII[80] := 80;
EQ7BIT2ASCII[81] := 81;
EQ7BIT2ASCII[82] := 82;
EQ7BIT2ASCII[83] := 83;
EQ7BIT2ASCII[84] := 84;
EQ7BIT2ASCII[85] := 85;
EQ7BIT2ASCII[86] := 86;
EQ7BIT2ASCII[87] := 87;
EQ7BIT2ASCII[88] := 88;
EQ7BIT2ASCII[89] := 89;
EQ7BIT2ASCII[90] := 90;
EQ7BIT2ASCII[91] := 196;
EQ7BIT2ASCII[92] := 204;
EQ7BIT2ASCII[93] := 209;
EQ7BIT2ASCII[94] := 220;
EQ7BIT2ASCII[95] := 167;
EQ7BIT2ASCII[96] := 191;
EQ7BIT2ASCII[97] := 97;
EQ7BIT2ASCII[98] := 98;
EQ7BIT2ASCII[99] := 99;
EQ7BIT2ASCII[100] := 100;
EQ7BIT2ASCII[101] := 101;
EQ7BIT2ASCII[102] := 102;
EQ7BIT2ASCII[103] := 103;
EQ7BIT2ASCII[104] := 104;
EQ7BIT2ASCII[105] := 105;
EQ7BIT2ASCII[106] := 106;
EQ7BIT2ASCII[107] := 107;
EQ7BIT2ASCII[108] := 108;
EQ7BIT2ASCII[109] := 109;
EQ7BIT2ASCII[110] := 110;
EQ7BIT2ASCII[111] := 111;
EQ7BIT2ASCII[112] := 112;
EQ7BIT2ASCII[113] := 113;
EQ7BIT2ASCII[114] := 114;
EQ7BIT2ASCII[115] := 115;
EQ7BIT2ASCII[116] := 116;
EQ7BIT2ASCII[117] := 117;
EQ7BIT2ASCII[118] := 118;
EQ7BIT2ASCII[119] := 119;
EQ7BIT2ASCII[120] := 120;
EQ7BIT2ASCII[121] := 121;
EQ7BIT2ASCII[122] := 122;
EQ7BIT2ASCII[123] := 228;
EQ7BIT2ASCII[124] := 246;
EQ7BIT2ASCII[125] := 241;
EQ7BIT2ASCII[126] := 252;
EQ7BIT2ASCII[127] := 224;
// This is the transition table from ASCII to 7-BIT; index reversing :)
for i := 0 to High(EQ7BIT2ASCII) do
begin
if EQ7BIT2ASCII[i] <> Nono then
EQASCII27BIT[EQ7BIT2ASCII[i]] := i;
end;
end; { TSMSCODEC.Create }
destructor TSMSCODEC.Destroy;
begin
inherited Destroy;
end; { TSMSCODEC.Destroy }
{
--------------------------------------------------------------------------------
function Binerkan
-> Convert integer to binary
-> parameters:
Angka: integer; -> the integer value
-> Return value: string of 1 and 0 (nothing genius at all :D)
--------------------------------------------------------------------------------
}
function TSMSCODEC.Binerkan(Angka : integer): string;
var i : Integer;
hasil : array [0..7] of Integer;
SISA : array [0..7] of Integer;
StrHasil : string;
begin
result := '';
if angka > 1 Then
begin
i := 1;
repeat
hasil[i] := Trunc(angka / 2);
SISA[i] := angka mod 2;
angka := hasil[i];
i := i + 1;
StrHasil := IntToStr(SISA[i - 1]) + StrHasil;
until hasil[i - 1] < 2;
StrHasil := IntToStr(hasil[i - 1]) + StrHasil;
end
else if angka = 1 then
StrHasil := '00000001'
else if angka = 0 Then
StrHasil := '00000000';
for i := 1 to (8 - Length(StrHasil)) do
StrHasil := '0' + StrHasil;
result := StrHasil;
end; { TSMSCODEC.Binerkan }
{
--------------------------------------------------------------------------------
function Bin2Long
-> Convert binaty string to integer
-> Parameter:
StrBiner: string; -> the binary string;
-> Return value: integer;
--------------------------------------------------------------------------------
}
function TSMSCODEC.Bin2Long(StrBiner : string): integer;
var i, x : integer;
begin
x := 0;
for i := 1 to Length(StrBiner) do
begin
x := x + StrToInt(Copy(StrBiner, i, 1)) * Trunc(Power(2,(Length(StrBiner) - i)));
end;
result := x;
end; { TSMSCODEC.Bin2Long }
{
--------------------------------------------------------------------------------
function PDU7BIT2ASCII
-> Convert PDU (string 7-bit PDU) to ASCII
-> Parameter:
StrPDU: string -> the PDUString
PanjangUDH: integer; -> the length of the UDH
PanjangData: integer; -> the length of the data
-> return value: ASCII string
--------------------------------------------------------------------------------
}
function TSMSCODEC.PDU7BIT2ASCII(StrPDU : string; PanjangUDH, PanjangData: integer) : string;
var i,j,x,z : integer;
y, StrASCII : string;
ArrPDU : array of string;
Arr7Bit : array of string;
ArrASCII : array of string;
begin
j := 1;
z := 0;
// 2 PDU chars represent 1 ASCII chars, so the length of the
// ASCII chars sequence is 1/2 of the string PDU length
SetLength(ArrPDU,Length(StrPDU) div 2);
// Load each pair of PDU string to the appropriate index of ArrPDU
while j < Length(StrPDU) do
begin
ArrPDU[z] := '$' + Copy(StrPDU,j,2); // '$' + string = hexadecimal
j := j + 2;
Inc(z);
end;
// Convert each ArrPDU item to binary for decoding
for i := 0 to High(ArrPDU) do
begin
y := ArrPDU[i];
ArrPDU[i] := '';
ArrPDU[i] := Binerkan(StrToInt(y));
end;
x := 0;
SetLength(Arr7BIT,x+1);
// The core process - the bit mutation
for i := 0 to High(ArrPDU) do
begin
if i mod 7 = 0 then
begin
Arr7BIT[x] := RightStr(ArrPDU[i],7);
end
else
begin
if i mod 7 = 6 then
begin
Arr7BIT[x] := RightStr(ArrPDU[i],1) + LeftStr(ArrPDU[i-1],6);
x := x + 1;
SetLength(Arr7BIT,x+1);
Arr7BIT[x] := LeftStr(ArrPDU[i],7);
end
else
Arr7BIT[x] := RightStr(ArrPDU[i],Length(ArrPDU[i])-(i mod 7)-1) + LeftStr(ArrPDU[i-1],i mod 7);
end;
x := x + 1;
SetLength(Arr7BIT,x+1);
end; { for }
j := 0;
while j <= High(Arr7BIT) do
begin
SetLength(ArrASCII,Length(ArrASCII)+1);
if Bin2Long(Arr7BIT[j]) = 27 then
begin
inc(j);
case Bin2Long(Arr7BIT[j]) of
10 : ArrASCII[High(ArrASCII)] := Chr(12);
20 : ArrASCII[High(ArrASCII)] := Chr(94);
40 : ArrASCII[High(ArrASCII)] := Chr(123);
41 : ArrASCII[High(ArrASCII)] := Chr(125);
47 : ArrASCII[High(ArrASCII)] := Chr(92);
60 : ArrASCII[High(ArrASCII)] := Chr(91);
61 : ArrASCII[High(ArrASCII)] := Chr(126);
62 : ArrASCII[High(ArrASCII)] := Chr(93);
64 : ArrASCII[High(ArrASCII)] := Chr(124);
else
ArrASCII[High(ArrASCII)] := Chr(0);
end;
end
else
begin
ArrASCII[High(ArrASCII)] := Chr(EQ7BIT2ASCII[Bin2Long(Arr7BIT[j])]);
end;
Inc(j);
end; { while }
SetLength(ArrASCII,PanjangData);
for i := 0 to High(ArrASCII) do
StrASCII := StrASCII + (ArrASCII[i]);
ArrPDU := nil; Arr7Bit := nil; ArrASCII := nil;
// if no UDH, ignore the octet info of UDH length,
// not part of SMS message.
if PanjangUDH > 0 then
StrASCII := Copy(StrASCII,PanjangUDH + 3,Length(StrASCII));
Result := StrASCII;
end; { TSMSCODEC.PDU7BIT2ASCII }
{
--------------------------------------------------------------------------------
function PDU8BIT2ASCII
-> Convert string 8-bit PDU to ASCII
-> parameter:
strPDU: string; -> the 8 bit PDU string
PanjangUDH: integer; -> length of the UDH
PanjangData: integer; -> Length of the data
-> return value: string (ASCII)
--------------------------------------------------------------------------------
}
function TSMSCODEC.PDU8BIT2ASCII(StrPDU : string; PanjangUDH, PanjangData: integer) : string;
var StrASCII : string;
i, x, PjPDUPesan : integer;
begin
if PanjangUDH <> 0 then
begin
x := (PanjangUDH * 2) + 2; // PDU info UDH
StrPDU := RightStr(StrPDU,(PanjangData * 2) - x); // PDU Pesan
end;
PjPDUPesan := Length(StrPDU);
i := 1;
while i <= PjPDUPesan do
begin
if i mod 2 = 0 then
begin
StrASCII := StrASCII + Chr(EQ7BIT2ASCII[StrToInt('$' + LeftStr(StrPDU,2))]);
StrPDU := RightStr(StrPDU,Length(StrPDU)-2);
end;
Inc(i);
end;
result := StrASCII;
end; { TSMSCODEC.PDU8BIT2ASCII }
{
--------------------------------------------------------------------------------
function PDU16BIT2ASCII
-> COnvert StrPDU (string 16-bit PDU) to ASCII
-> parameter:
strPDU: string; -> the 8 bit PDU string
PanjangUDH: integer; -> length of the UDH
PanjangData: integer; -> Length of the data
-> Return value: string (ASCII)
--------------------------------------------------------------------------------
}
function TSMSCODEC.PDU16BIT2ASCII(StrPDU : string; PanjangUDH, PanjangData: integer) : string;
var StrASCII : string;
i, x, PjPDUPesan : integer;
begin
if PanjangUDH <> 0 then
begin
x := (PanjangUDH * 2) + 2;
StrPDU := RightStr(StrPDU,(PanjangData * 2) - x);
end;
PjPDUPesan := Length(StrPDU);
i := 1;
while i <= PjPDUPesan do
begin
if i mod 4 = 0 then
begin
StrASCII := StrASCII + Chr(EQ7BIT2ASCII[StrToInt('$' + LeftStr(StrPDU,4))]);
StrPDU := RightStr(StrPDU,Length(StrPDU)-4);
end;
Inc(i);
end;
result := StrASCII;
end; { TSMSCODEC.PDU16BIT2ASCII }
{
--------------------------------------------------------------------------------
function ASCII2PDU7BIT
-> Convert par StrASCII (string ASCII) to 7-bit PDU
-> parameter:
strASCII: string; -> the ASCII string
-> Return value: string (7-bit PDU)
--------------------------------------------------------------------------------
}
function TSMSCODEC.ASCII2PDU7BIT(StrASCII : string) : string;
var i,x,z : integer;
ArrPDU : array of string;
Arr7Bit : array of string;
StrPDU : string;
begin
for i := 1 to Length(StrASCII) do
begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
case Ord(StrASCII[i]) of
12 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(10),7);
end;
94 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(20),7);
end;
123 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(40),7);
end;
125 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(41),7);
end;
92 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(47),7);
end;
91 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(60),7);
end;
126 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(61),7);
end;
93 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(62),7);
end;
124 : begin
SetLength(Arr7BIT,Length(Arr7BIT)+1);
Arr7BIT[High(Arr7BIT)-1] := RightStr(Binerkan(27),7);
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(64),7);
end;
else
begin
Arr7BIT[High(Arr7BIT)] := RightStr(Binerkan(EQASCII27BIT[Ord(StrASCII[i])]),7);
end;
end; { case }
end; { for }
i := 1;
x := 1;
z := 0;
SetLength(ArrPDU,z+1);
while i <= High(Arr7BIT) do
begin
if (i > 1) and ((i) mod 8 = 0) then
begin
x := 1;
inc(i);
end
else
begin
ArrPDU[z] := RightStr(Arr7BIT[i],x) + Arr7BIT[i-1];
SetLength(Arr7BIT[i],Length(Arr7BIT[i])-x);
inc(z);
SetLength(ArrPDU,z+1);
Inc(x);
Inc(i);
end;
end;
ArrPDU[High(ArrPDU)] := Arr7BIT[High(Arr7BIT)];
for i := 0 to High(ArrPDU) do
StrPDU := StrPDU + IntToHex(Bin2Long(ArrPDU[i]),2);
ArrPDU := nil;
Arr7Bit := nil;
{if RightStr(StrPDU,2) = '00' then
StrPDU := LeftStr(StrPDU,Length(StrPDU)-2);}
Result := StrPDU;
end; { TSMSCODEC.ASCII2PDU7BIT }
{
--------------------------------------------------------------------------------
procedure DecodeSMS
-> Decode the SMSPDU then parse the element (such as the sender and the message) to be returned.
-> Return value: stringlist (length: 2, index 0: sender number, index 1: the message
--------------------------------------------------------------------------------
}
function TSMSCODEC.DecodeSMS(StrSMS : string) : TStringList;
var i, j, x, y, z, PanjangUDH, PanjangData : integer;
StrBiner, StrPDU, StrPengirim, s : string;
PakeUDH, Alpha : boolean; Elemen : TStringList;
zDCS : integer; zDCSBinIdx23 : string;
begin
Elemen := TStringList.Create;
i := 1;
PakeUDH := False;
Alpha := False;
x := StrToInt('$' + Copy(StrSMS,i,2));
i := i + 2;
i := i + (x * 2);
x := StrToInt('$' + Copy(StrSMS,i,2));
StrBiner := Binerkan(x);
if StrBiner[2] = '1' then
begin
PakeUDH := True;
end;
i := i + 2;
x := StrToInt('$' + Copy(StrSMS,i,2));
y := x;
i := i + 2;
z := StrToInt('$' + Copy(StrSMS,i,2));
StrBiner := Binerkan(z);
if Copy(StrBiner,2,3) = '101' then
Alpha := True;
i := i + 2;
if x mod 2 <> 0 then
x := x + 1;
s := Copy(StrSMS,i,x);
for j := 1 to Length(s) do
begin
if j mod 2 = 0 then
begin
StrPengirim := StrPengirim + s[j] + s[j-1];
end;
end;
if Alpha = True then
begin
StrPengirim := PDU7BIT2ASCII(s,0,Length(s));
StrPengirim := StringReplace(StrPengirim,'@','',[rfReplaceAll]);
end
else
StrPengirim := Copy(StrPengirim,1,y);
Elemen.Add(StrPengirim);
i := i + x + 2;
// Data Coding Schemes (DCS)
z := StrToInt('$' + Copy(StrSMS,i,2));
StrBiner := Binerkan(z);
zDCSBinIdx23 := Copy(StrBiner,5,2);
zDCS := 0;
if zDCSBinIdx23 = '00' then
zDCS := 0; // 7-bit
if zDCSBinIdx23 = '01' then
zDCS := 1; // 8-bit
if zDCSBinIdx23 = '10' then
zDCS := 2; // UCS2
if zDCSBinIdx23 = '11' then
zDCS := 0; // reserved (pake 7-bit)
i := i + 2;
x := 14; // abaikan SCTS
i := i + x;
PanjangData := StrToInt('$' + Copy(StrSMS,i,2));
i := i + 2;
StrPDU := Copy(StrSMS,i,Length(StrSMS));
if PakeUDH then
PanjangUDH := StrToInt('$' + Copy(StrSMS,i,2))
else
PanjangUDH := 0;
case zDCS of
0 : Elemen.Add(PDU7BIT2ASCII(StrPDU, PanjangUDH, PanjangData));
1 : Elemen.Add(PDU8BIT2ASCII(StrPDU, PanjangUDH, PanjangData));
2 : Elemen.Add(PDU16BIT2ASCII(StrPDU, PanjangUDH, PanjangData));
else
Elemen.Add(PDU7BIT2ASCII(StrPDU, PanjangUDH, PanjangData));
end;
Result := Elemen;
end; { TSMSCODEC.DecodeSMS }
{
--------------------------------------------------------------------------------
procedure EncodeSMS
-> Compose an SMS message
-> Paramaters:
strTujuan = string; -> The destination number
strPesan = string; -> Your message to be sent
-> Return value: SMS-PDU
--------------------------------------------------------------------------------
}
function TSMSCODEC.EncodeSMS(StrTujuan, StrPesan: string): string;
var zTujuan, zPesan, Gabung: string;
i, pjTujuan : integer;
begin
pjTujuan := Length(StrTujuan);
// If length of StrTujuan is odd, add "F" to the end
if Length(StrTujuan) mod 2 = 1 then
StrTujuan := StrTujuan + 'F';
// The reversing process of destination number (swapped nibble)
for i := 1 to Length(StrTujuan) do
begin
if i mod 2 = 0 then
begin
zTujuan := zTujuan + StrTujuan[i] + StrTujuan[i-1];
end;
end;
// We use internasional format here, add 91 in front of the destination number
zTujuan := IntToHex(pjTujuan,2) + '91' + zTujuan;
if Length(StrPesan) > 0 then
zPesan := ASCII2PDU7BIT(StrPesan); // We use 7Bit encoding here
// Add the hexadecimal reperesentation of the PDU length (1/2 of the number of chars) in front of the PDU
zPesan := IntToHex(Length(StrPesan),2) + zPesan;
// We use the SMSC number in the cellphone/gsmmodem, no status report, no UDH
Gabung := '000100' + zTujuan + '0000' + zPesan;
result := Gabung;
end; { TSMSCODEC.EncodeSMS }
end.
4使用代码示例
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := SMSCODEC1.ASCII2PDU7BIT(Edit1.Text);
Edit6.Text := Edit2.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text := SMSCODEC1.PDU7BIT2ASCII(Edit6.Text,0,Length(Edit2.Text));
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','http://www.averagecoder.com','','',SW_SHOWNORMAL);
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Label1.Font.color := clBlue;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.color := clBlack;
end;
procedure TForm1.Button3Click(Sender: TObject);
var ResultList: TStringList;
begin
ResultList := SMSCODEC1.DecodeSMS(Edit4.Text);
Edit5.Text := ResultList.Strings[0]; // sender number
Memo1.Text := ResultList.Strings[1]; // The message
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit8.Text := SMSCODEC1.EncodeSMS(Edit7.Text,Memo2.Text)
end;
发表评论
相关推荐
短信PDU编码规则是短消息服务（Short Message Service, SMS）中的一种核心技术，它涉及到如何将我们日常使用的文本信息转化为二进制数据，以便于在移动通信网络中传输。这一编码方式使得短信可以在不同的手机和网络...
PDU编码，全称为Protocol Data Unit编码，是短信服务（SMS）中的一种编码方式，尤其在处理非ASCII字符，如中文短信时尤为重要。PDU模式提供了比Text模式更丰富的功能，能够支持多种编码方式，包括7-bit、8-bit以及...
【SMS的PDU编码规则详解】 短信服务（SMS）在通信中扮演着重要角色，尤其在传输简短信息时。为了支持多种字符集，包括中文，短信采用了PDU（Protocol Data Unit，协议数据单元）编码规则。PDU模式相较于Text模式，...
该工具可以解析这两种编码的PDU短信，使得开发者无需深入了解复杂的编码规则，就能轻松解读短信内容。 在短信编程中，生成PDU编码串是一项技术挑战，因为它涉及到短信的多个组成部分，如：服务中心地址（SCA）、...
PDU编码是GSM 7位编码规则和16位Unicode编码的扩展，用于在短信中心（SMSC）和手机之间传输短信。短信内容首先会被转换为7位的GSM 7位编码集，然后根据需要添加奇偶校验位和长度信息，形成PDU格式。这种编码方式...
**SMSPDU（短信PDU）详解** 在无线通信领域，短信服务（Short Message Service，SMS）是手机用户最常用的信息传递方式之一。而在短信传输过程中，为了在不同设备间保持兼容性和高效性，短信会被编码成二进制格式，...
短信PDU编码主要包括7位的GSM 7-bit Default Alphabet编码、8位UCS2编码以及16位的Unicode编码。在PDU模式下，短信的每个字符都会被映射到一个特定的16进制数字，形成一串可以由网络解析的二进制数据。 接下来，...
PDU短信编码格式.doc文件很可能是对PDU编码规范的详细文档，涵盖了如何解析和构建PDU编码的信息。它可能包含以下内容： 1. **编码结构**：PDU消息由一系列16进制字节组成，每个字节代表特定的参数，如SCA、短信中心...
GSM短信的PDU编码是GSM（Global System for Mobile Communications）系统中短消息服务（Short Message Service, SMS）的一种编码方式，它用于在GSM网络中传输短信数据。PDU（Protocol Data Unit）编码是一种二进制...
在这个压缩包中，"GSM0340_740.doc"可能是一个关于这个规范的详细文档，包含了PDU编码的规则和超长短信处理的具体步骤。另一方面，"www.pudn.com.txt"可能是一个示例或者参考资料，可能包含了一些实际的PDU编码实例...
标题中的"PDU.zip_PDU编码_java 短信猫 pdu_pdu"表明这是一个关于PDU编码在Java环境下，特别是在使用短信猫设备时的应用的资源包。PDU（Protocol Data Unit，协议数据单元）是GSM（全球系统移动通信）中用于短信服务...
SMS PDU编码** 在编码过程中，手机号码、短信内容等信息会被转换成二进制形式。例如，国际电话号码会按照E.164标准进行编码，短信内容则可能通过GSM 7位编码集或其他编码方式进行编码。 **3. 解码SMS PDU** 接收...
- 在PDU编码过程中，短信内容会根据7位或16位的GSM 7位扩展字符集进行编码，以便适应二进制的传输。对于非ASCII字符，需要使用UCS2编码。 4. **PDU解码**： - 解码PDU需要理解每个字段的意义，例如，提取出电话...
通过对GSM数字移动通信技术中的SMS规范的研究和探讨，本文详细分析了PDU格式的编码规则，为无线通讯领域的应用项目提供了坚实的理论基础。PDU模式作为最常用的短信编码方式之一，不仅支持多种字符集，还能容纳丰富的...
本文将详细解释PDU编码格式，并通过具体实例帮助理解其结构与编码规则。 #### 二、PDU编码格式 PDU编码格式主要包括以下几个部分： 1. **SMSC地址**：发送方的短消息服务中心地址。 2. **目的地址**：接收方的...
2. **长度计算**：根据编码规则，计算出编码后的短信长度，因为SMS有160个7位字符（或70个16位字符）的限制。 3. **分段和重组**：如果短信内容超过单条短信的容量，需要进行分段并添加特殊的尾部标记以便接收端能...
6. **学习资源**：对于想要深入了解PDU编码和解码的读者，可以参考GSM 03.38标准文档，这是定义短信PDU编码的官方规范。同时，网上也有许多开源库和教程可以帮助理解并实现PDU处理。 通过"PDU.c"这样的源代码，...
在“短信PDU编码规则”中，会详细讲解如何将ASCII字符转换为7位编码，以及如何组织这些编码以适应PDU格式。例如，一个7位的编码可能需要通过插入额外的0来填充到8位，这被称为“左移位”编码。 “GSM短信编码与协议...
1. **SMS协议**：包括GSM 03.40（SMS协议规范）和GSM 07.05（SMS-PDU编码规则）。 2. **串口配置**：设置波特率、数据位、停止位、校验位等参数以适应GSM模块的要求。 3. **PDU编码**：学习如何将文本转换为PDU格式...
PDU编码规则** - **短信类型**：短信类型通常用一个字节表示，包括服务中心地址指示位、短信提交报告请求位、编码方案等信息。 - **编码方案**：短信内容可以使用7位或8位编码。7位编码适用于ASCII字符集，8位...