D-Link DSL-G684T Instrukcja Użytkownika Pobierz pdf (Strona 101)

101

photo:=1;

end;

wait(2000);

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

if (not checkbox1.Checked) then servo := 1

else serv := 1;

end;

procedure TForm1.Settings1Click(Sender: TObject);

begin

panele_false();

if (login = 1) then panel_settings.Visible := true;

if IdTelnet1.Connected then

begin

if photo = 1 then

begin

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

photo := 0;

wait_1();

command_ok := 0;

end;

if ((servo = 1)or(serv = 1)) then

begin

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

servo := 0;

serv := 0;

wait_1();

command_ok := 0;

end;

refresh_basic();

refresh_advanced();

refresh_stat();

refresh_app();

end

1 2 ... 96 97 98 99 100 101 102 103 104 105 106 ... 117 118

Brak uwag

D-Link DSL-G684T Instrukcja Użytkownika Strona 101