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

103

procedure TForm1.TrackBar4Change(Sender: TObject);

begin

label2.Caption := inttostr(trackbar4.Position);

end;

procedure TForm1.About1Click(Sender: TObject);

begin

panele_false();

panel_about.Visible := true;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

if IdTelnet1.Connected then

begin

IdTelnet1.IOHandler.WriteLn('ph='+label2.Caption);

wait(90);

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

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

wait(90);

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

wait(90);

command_ok := 0;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

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

wait_1();

1 2 ... 98 99 100 101 102 103 104 105 106 107 108 ... 117 118

Brak uwag

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