D-Link DSL-G684T Manuel d'utilisateur télécharger pdf (Page 98)

begin

label28.Font.Color := clWindowText;

label28.Caption := 'Contracted';

end

else

begin

label28.Font.Color := clRed;

label28.Caption := 'ERROR';

end;

if copy(hex, 5,1) = '1' then

begin

label27.Font.Color := clWindowText;

label27.Caption := 'Resolved';

end

else

begin

label27.Font.Color := clRed;

label27.Caption := 'ERROR';

end;

label26.Caption := inttostr(BinToInt(copy(hex, 1,4)));

end;

procedure TForm1.rst1Click(Sender: TObject);

begin

rst := 1;

if IdTelnet1.Connected then

begin

IdTelnet1.IOHandler.WriteLn('photo=off');

wait(3000);

application.MessageBox('Photocell turned off','OK',

MB_OK);

IdTelnet1.IOHandler.WriteLn('servo=off');

1 2 ... 93 94 95 96 97 98 99 100 101 102 103 ... 117 118

Pas de commentaire

D-Link DSL-G684T Manuel d'utilisateur Page 98