104
wait(200);
IdTelnet1.IOHandler.WriteLn('');
IdTelnet1.IOHandler.WriteLn('servo=0');
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
command_ok := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IDTelnet1.Connected then
IdTelnet1.IOHandler.WriteLn('pos='+label50.Caption);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
0 : refresh_basic();
1 : refresh_advanced();
2 : refresh_stat();
3 : ;
4 : refresh_app();
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
INI : TINIFile;
DLL : THandle;
Encrypt : function (Password : string) : String;
begin
Kommentare zu diesen Handbüchern