D-Link DSL-G684T Bedienungsanleitung PDF herunterladen (Seite 96)

Edit11.Text := copy(find_str('IP=', memo2.Lines.Text), 0

,length(find_str('IP=', memo2.Lines.Text))-5);

Edit5.Text := copy(find_str('IP=', memo2.Lines.Text),

length(find_str('IP=', memo2.Lines.Text))-3

,length(find_str('IP=', memo2.Lines.Text)));

Edit15.Text := find_str('DNS=', memo2.Lines.Text);

Edit16.Text := find_str('Name=', memo2.Lines.Text);

Edit17.Text := find_str('Backup=', memo2.Lines.Text);

Edit21.Text := find_str('Password=', memo2.Lines.Text);

IdTelnet1.IOHandler.Writeln('exit');

ComboBox4Change(ComboBox4);

end;

procedure TForm1.refresh_stat();

var

hex : string;

begin

Memo2.Clear;

IdTelnet1.IOHandler.Writeln('$$$');

IdTelnet1.IOHandler.Writeln('show connection');

IdTelnet1.IOHandler.Writeln('exit');

wait(500);

if find_str('8',memo2.Lines.Text) <> '' then

begin

hex := HexToBin(find_str('8',memo2.Lines.Text));

case BinToInt(copy(hex, 9,4)) of

begin

label31.Font.Color := clWindowText;

label31.Caption := 'Idle';

end;

begin

label31.Font.Color := clGreen;

1 2 ... 91 92 93 94 95 96 97 98 99 100 101 ... 117 118

Keine Kommentare

D-Link DSL-G684T Bedienungsanleitung Seite 96