Quote:
Originally Posted by MobSol  get 'em uploaded so many mates avail on it  |
ok
Code:
procedure TFormMain.Btn_ReadLockClick(Sender: TObject);
var pck : t_intvect;
i : integer;
begin
if not(FormMain.InitializeCOM) then exit;
setlength(pck,133);
pck[0] := $26;
pck[1] := $52;
for i:=2 to 133 do
pck[i] := $00;
DO_CMD(pck,True,True,False);
pck := ReadCMD;
if pck[0] = $13
then
else EdtUSER_CODE.Text := Char(pck[3])+Char(pck[4])+Char(pck[5])+Char(pck[6]);
end;
Code:
procedure TFormMain.Btn_WriteLockClick(Sender: TObject);
var pck : t_intvect;
i : integer;
begin
if not(FormMain.InitializeCOM) then exit;
setlength(pck,133);
pck[0] := $27;
pck[1] := $52;
for i:=2 to 133 do
pck[i] := $00;
pck[3] := Integer(EdtUSER_CODE.Text[1]);
pck[4] := Integer(EdtUSER_CODE.Text[2]);
pck[5] := Integer(EdtUSER_CODE.Text[3]);
pck[6] := Integer(EdtUSER_CODE.Text[4]);
DO_CMD(pck,True,True,False);
pck := ReadCMD;
end;