endec.pas

This source code in Delphi 7.0. Have function to decoding and encoding PDU format to ASCII and from

unit Endec;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SMSCODEC;

type
  TPDUCONV = class(TForm)
    isisms: TMemo;
    NoPengirim: TEdit;
    HasilPDU: TEdit;
    encodeSMS: TButton;
    SMSCODEC: TSMSCODEC;
    InputPDU: TEdit;
    HslisiSMS: TMemo;
    HslNoPengirim: TEdit;
    decodeSMS: TButton;
    hslPDU: TMemo;
    Button1: TButton;
    aschii: TEdit;
    hslAschii: TMemo;
    pdu: TEdit;
    Button2: TButton;
    Label1: TLabel;
    procedure encodeSMSClick(Sender: TObject);
    procedure decodeSMSClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PDUCONV: TPDUCONV;

implementation

{$R *.dfm}

procedure TPDUCONV.encodeSMSClick(Sender: TObject);
begin
if  NOpengirim.Text = '' then
  begin
  NOpengirim.Text := '6281328828042';
  end else
  if isisms.Text='' then
  begin
  isisms.Text:='Herlambang.InC' ;
  end else
  hASILpDU.Text := SMSCODEC.EncodeSMS(NoPengirim.Text,isisms.Text)
end;

procedure TPDUCONV.decodeSMSClick(Sender: TObject);
var ResultList: TStringList;
begin
if  InputPDU.Text=''then
    begin
    InputPDU.Text:='06912618010000040D91261823888240F200008060615031958255C8B29C1D6E8BC3EE3328284F8BDFF7B70B449C8192EE395D5E6F97DDF4F03C0D2287DDA022BBBCA6CBDFEEF43A0CAABAD3F6B27C9EA687E720621AFE7697CF6FF91B342DB7C3F2B0FBEC02'
    end;
    ResultList := SMSCODEC.DecodeSMS(InputPDU.Text);
    HslNoPengirim.Text := ResultList.Strings[0]; // sender number
    HslisiSMS.Text :=ResultList.Strings[1]; // The message

end;

procedure TPDUCONV.Button1Click(Sender: TObject);
begin
if aschii.Text=''then
  begin
  aschii.Text := 'aschii harus di isi ya...!';
  end else
  hslPDU.Text := SMSCODEC.ASCII2PDU7BIT(Aschii.Text);
  PDU.Text := hslPDU.Text;
end;

procedure TPDUCONV.Button2Click(Sender: TObject);
var
temp:string;
temp2:string;
temp3:string;
panjang:integer;
begin
  if PDU.Text=''then
  begin
  PDU.Text := '506215840ECBEB7310390D4ACFD3A07CD8E5728500';
  end else
  temp:=SMSCODEC.PDU7BIT2ASCII(PDU.Text,0,Length(PDU.Text));
  panjang:= Length(Temp);
  temp2:= Copy(Temp,panjang-1,Length(Temp)-0);
  temp3:= Copy(Temp,panjang,Length(Temp)-0);
  if temp2='@@' then
  begin
  hslAschii.Text := Copy(Temp, 1, Length(Temp)-2);
  end else
  if temp3='@' then
  begin
  hslAschii.Text := Copy(Temp, 1, Length(Temp)-1);
  end else
  hslAschii.Text := Copy(Temp, 1, Length(Temp)-0);
end;

end.