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

edit13.Text :=

Decrypt(INI.ReadString('Main','login',''));

edit14.Text :=

Decrypt(INI.ReadString('Main','password',''));

edit15.Text :=

Decrypt(INI.ReadString('Main','password',''));

finally

FreeLibrary(DLL);

end;

procedure TForm1.refresh_basic();

var

auth: string;

begin

Memo2.Clear;

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

IdTelnet1.IOHandler.Writeln('get wlan');

IdTelnet1.IOHandler.Writeln('exit');

wait(500);

edit2.Text := find_str('SSID=', memo2.Lines.Text);

edit3.Text := find_str('Passphrase=', memo2.Lines.Text);

edit20.Text := find_str('Key=', memo2.Lines.Text);

edit4.Text := find_str('Chan=', memo2.Lines.Text);

auth := find_str('Auth=', memo2.Lines.Text);

if auth = 'OPEN' then ComboBox1.ItemIndex := 0

else if auth = 'WEP' then ComboBox1.ItemIndex := 1

else if auth = 'WPA1' then ComboBox1.ItemIndex := 2

else if auth = 'MIXED' then ComboBox1.ItemIndex

:= 3

else if auth = 'WPA2' then

ComboBox1.ItemIndex := 4

1 2 ... 89 90 91 92 93 94 95 96 97 98 99 ... 117 118

Keine Kommentare

D-Link DSL-G684T Bedienungsanleitung Seite 94