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

116

memo1.Lines.Add(Buffer);

if ((pos('photo=',Buffer) <> 0)and(length(Buffer) < 12))

then

begin

trackbar3.Position :=

strtoint(copy(Buffer,7,length(Buffer)-6));

photo := 1;

end;

if ((pos('servo=',Buffer) <> 0)and(not

checkbox1.Checked)and(length(Buffer) < 12)) then

begin

trackbar1.Position :=

strtoint(copy(Buffer,7,length(Buffer)-6));

servo := 1;

end;

if ((pos('servo1=',Buffer) <> 0)and(not

checkbox3.Checked)and(length(Buffer) < 13)) then

begin

trackbar2.Position :=

strtoint(copy(Buffer,8,length(Buffer)-6));

serv := 1;

end;

if pos('command-OK', Buffer) <> 0 then command_ok := 1;

end;

procedure TForm1.IdTelnet1Disconnected(Sender: TObject);

begin

label10.Caption := 'Disconnected!';

button2.Enabled := false;

button3.Enabled := false;

Connected2.Caption := 'Disconnected!';

end;

procedure TForm1.Login1Click(Sender: TObject);

1 2 ... 111 112 113 114 115 116 117 118

Brak uwag

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