D-Link DSL-G684T Manual do Utilizador descarregar pdf (Página 115)

115

serv := 0;

rst := 0;

command_ok := 0;

// checking if file exists

if not FileExists(ExtractFilePath(Application.ExeName) +

'setup.ini') then

begin

INI :=

TINIFile.Create(ExtractFilePath(Application.ExeName) +

'setup.ini');

try

INI.WriteString('Main', 'login', '');

INI.WriteString('Main', 'password', '');

INI.WriteString('Main', 'ip', '');

INI.WriteString('Main','optpswd','');

finally

INI.Free;

end;

procedure TForm1.IdTelnet1Connected(Sender: TObject);

begin

label10.Caption := 'Connected!';

button2.Enabled := true;

button3.Enabled := true;

Connected2.Caption := 'Connected!';

end;

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;

const Buffer: string);

begin

memo2.Lines.Add(Buffer);

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

Sem comentários

D-Link DSL-G684T Manual do Utilizador Página 115