DUzun's Web
Programare, proiecte personale, divertisment

Unit Pack;

interface

Uses Funcs;

​

Type

  TPack = class

   private

    procedure SetBAr(Value: TBArray);

    function GetBAr: TBArray;

   public

     cmd, len, tgt, src, p:  byte;

     l:  word;

     SID: integer;

     Data: TBArray;

​

     Property Frame: TBArray  read GetBAr write SetBAr;

​

     constructor Create(BAr: TBArray);

   end; 

​

implementation

​

​

{ TPack }

​

constructor TPack.Create(BAr: TBArray);

begin

  inherited Create;

  Frame := BAr;

end;

​

function TPack.GetBAr: TBArray;

var d: TBArray;

begin

  if(l=0)then begin

    d := Data;

    Insert(cmd, d);

    Result := FormFrame(d, l, src, tgt);

  end else begin

    Result := FormFrame(Data, l, src, tgt);

  end;

end;

​

procedure TPack.SetBAr(Value: TBArray);

var r: boolean;

begin

   p   := 0;

   r   := SplitFrame(Value, p, len, src, tgt)=0;

   SID := BAr2Int(Value, p+len+1, 4);

   if not r then begin

     cmd   := 0;

     Data  := 0;

     SID   := 0;

   end else begin

     Data  := Copy(Value, p+1, len);

     cmd   := Value[p];

   end;

   l := 0;

end;

​

end.

​

​