fc_gsm.pas

GSM MODEM的收发短信息

unit fc_gsm;

interface
uses SysUtils, dialogs, Classes, Math;

function ConverInfoCenter(CenterNum: widestring): widestring;
function ConverMobileNum(MobileNum: widestring; Flag: integer): widestring;
function ContentToUnicode(ContentStr: widestring): widestring;
function codeaddcode(MobileNum, ContentStr: widestring): widestring;
function inttoBin(i: integer): widestring;
function EncodeChinese(Input: widestring): widestring;
function DecodeChinese(SRC: widestring): widestring;
function InsertLogfile(log_str: widestring): Boolean;
function SplitString(Source, Deli: string): TStringList;
function SpString(SRC, Dl: string): TStringList;
function DecodeInfo(SRC: string): string;
function DecodeDate(SRC: string): string;
function HexToDec(HexData: Integer): Integer;
implementation
//

function ConverInfoCenter(CenterNum: widestring): widestring;
var
  j: integer;
  temp: widestring;
begin
  CenterNum := '91' + ConverMobileNum(CenterNum, 1);
  j := length(CenterNum) div 2;
  if j < 10 then
    CenterNum := '0' + inttostr(j) + CenterNum
  else
    CenterNum := inttostr(j) + CenterNum;
  result := CenterNum;
end;

function ConverMobileNum(MobileNum: widestring; Flag: integer): widestring;
var
  temp: widestring;
  i: integer;
begin
  if ((length(MobileNum) mod 2) = 1) then
    MobileNum := MobileNum + 'F';
  if flag = 1 then
    MobileNum := '86' + MobileNum;
  temp := '';
  i := 0;
  while (i < length(mobileNum)) do
  begin
    i := i + 2;
    temp := temp + copy(MobileNum, i, 1);
    temp := temp + copy(MobileNum, i - 1, 1);
  end;
  result := temp;
end;

function ContentToUnicode(ContentStr: widestring): widestring;
var
  i: integer;
  s4: widestring;
begin
  s4 := '';
  ContentStr := EncodeChinese(ContentStr);
  i := length(ContentStr) div 2;
  s4 := Format('%X', [i]);
  if length(s4) < 2 then
    s4 := '0' + s4;
  result := s4 + ContentStr;
end;

function codeaddcode(MobileNum, ContentStr: widestring): widestring;
var
  str: widestring;
  ml: string;
  molen: integer;
begin
  str := '1100';
  if (copy(MobileNum, length(MobileNum) - 1, 1) <> 'F') then
    molen := length(MobileNum)
  else
    molen := length(MobileNum) - 1;

  ml := Format('%X', [molen]);
  if length(ml) < 2 then ml := '0' + ml;
  str := str + ml;
  if (copy(MobileNum, 1, 2) <> '68') then str := str + '81' else str := str + '91';
  result := str + MobileNum + '000800' + ContentStr;
  //result := '11000D91' + MobileNum + '000800' + ContentStr;
end;

function inttoBin(i: integer): widestring;
begin
  while i <> 0 do
  begin //i mod 2取模,再使用format格式化
    result := Format('%d' + result, [i mod 2]);
    i := i div 2
  end
end;

function EncodeChinese(Input: widestring): widestring; //将信息内容进行PDU编码
var
  i, len: integer;
  cur: integer;
  t: string;
  x: widestring;
begin
  result := '';
  len := length(Input);
  i := 1;
  while i <= len do
  begin
    cur := ord(Input[i]);
    FmtStr(t, '%4.4X', [cur]); //BCD转换
    x := x + t;
    result := x;
    inc(i);
  end;
end;

function DecodeChinese(SRC: widestring): widestring; //中文解码
var i: integer;
  S: widestring;
  D: WideChar;
  ResultW: widestring;
begin
  for i := 1 to Round(length(SRC) / 4) do begin
    S := copy(SRC, (i - 1) * 4 + 1, 4);
    D := WideChar(StrToInt('$' + S)); //此处是重点，用delphi提供的widechar可以转换
    ResultW := ResultW + D;
  end;
  result := ResultW;
end;

function InsertLogfile(log_str: widestring): Boolean;
var
  F: TextFile;
  MyStr: widestring;
  sss: widestring;
  FileHandle: integer;
begin
  result := True;
  try
    sss := 'C:\' + FormatDateTime('yyyy-mm-dd', Now) + '.txt';
    if not FileExists(sss) then begin
      FileHandle := FileCreate(sss);
      FileClose(FileHandle);
    end;
    AssignFile(F, sss);
    Append(F);
    //if log_str = ' ' then MyStr := '' else
    MyStr := FormatDateTime('yyyy-mm-dd hh:mm:ss', Now) + chr(9) + log_str;
    Writeln(F, MyStr);
    Flush(F);
    CloseFile(F);
  except
    result := FALSE;
  end;
end;

function SplitString(Source, Deli: string): TStringList;
var
  EndOfCurrentString: Byte;
  StringList: TStringList;
  xx: string;
begin
  StringList := TStringList.Create;
  Result := StringList;
  if length(Source) < 20 then exit;
  while Pos(Deli, Source) > 0 do
  begin
    EndOfCurrentString := Pos(Deli, Source);
    xx := copy(Source, 1, EndOfCurrentString - 1);
    if length(xx) > 20 then
      StringList.add(copy(Source, 1, EndOfCurrentString - 1));
    Source := copy(Source, EndOfCurrentString + Length(Deli), Length(Source) - EndOfCurrentString);
  end;
  StringList.add(Source);
end;

function SpString(SRC, Dl: string): TStringList;
var
  x: TStringList;
  q: string;
  i: integer;
begin
  x := TStringList.Create;
  while pos(Dl, SRC) > 0 do
  begin
    i := pos(Dl, SRC);
    q := copy(SRC, 1, i - 1);
    x.Add(q);
    SRC := copy(SRC, i + length(Dl), length(SRC) - (i + 1));
  end;
  x.Add(SRC);
  Result := x;
end;

function DecodeInfo(SRC: string): string;
var
  Centerlen, Centerlen2: integer;
  stt, stt2, stt3, stt4: string;
begin
  Centerlen := (strtoint(copy(SRC, 1, 2)) * 2) + 2 + 2;
  stt := copy(SRC, Centerlen + 1, length(SRC) - Centerlen);
  Centerlen := StrToint('$' + copy(stt, 1, 2));
  if Centerlen mod 2 = 1 then Centerlen := Centerlen + 1;
  stt2 := ConverMobileNum(copy(stt, 5, Centerlen), 0);
  stt3 := DecodeDate(ConverMobileNum(copy(stt, 5 + length(stt2) + 4, 10), 0));
  Centerlen2 := (StrToint('$' + copy(stt, 23 + Centerlen, 2))) * 2;
  stt4 := DecodeChinese(copy(stt, 25 + Centerlen, Centerlen2));
  if (copy(stt2, 1, 2) = '13') or (copy(stt2, 1, 2) = '15') then stt2 := copy(stt2, 1, 11);
  result := stt2 + '|_|' + stt3 + '|_|' + stt4;
end;

function DecodeDate(SRC: string): string;
var
  temp: string;
begin
  temp := '20' + copy(SRC, 1, 2) + '-' + copy(SRC, 3, 2) + '-' + copy(SRC, 5, 2) + ' ' + copy(SRC, 7, 2) + ':' + copy(SRC, 9, 2);
  result := temp;
end;

function HexToDec(HexData: Integer): Integer;
var m: Integer;
begin
        //showmessage(inttostr(hexdata));
  Result := 0;
  m := Trunc(Power(10, Length(IntToStr(HexData)) - 1));
  while m > 0 do
  begin
    Result := (Result * 16 + HexData div m);
    HexData := HexData mod m;
    m := m div 10;
  end;
end;

end.