D-Link DSL-G684T Manuel d'utilisateur télécharger pdf (Page 113)

113

begin

IdTelnet1.Connect;

if ((pswd <> '') and (pswd <> '0')) then

IdTelnet1.IOHandler.WriteLn(pswd);

end

else IdTelnet1.Disconnect;

end;

procedure TForm1.Edit7Exit(Sender: TObject);

var

INI : TINIFile;

begin

INI := TINIFile.Create(ExtractFilePath(Application.ExeName)

+ 'setup.ini');

try

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

finally

INI.Free;

end;

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key:

Char);

begin

if Key = #13 then Button6Click(Sender);

end;

procedure TForm1.Exit1Click(Sender: TObject);

begin

if IdTelnet1.Connected then

begin

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

wait(500);

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

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

Pas de commentaire

D-Link DSL-G684T Manuel d'utilisateur Page 113