procedure TAppProgBench.WVW_ADD_COMMANDHANDLERS;
var
NewCmd: TIdCommandHandler;
procedure WVW_ADD(S:String);
begin
NewCmd := IdCmdTCPServer.CommandHandlers.Add;
NewCmd.Command := S;
NewCmd.ExceptionReply.NumericCode := 550;
NewCmd.Description.Text := 'Description '+S; { do not localize }
NewCmd.Disconnect := False;
NewCmd.ParseParams := True;
NewCmd.CmdDelimiter := #32;
NewCmd.ParamDelimiter := '|';
end;
begin
//******************************************************************************
WVW_ADD('SYSTEMERASECH1');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_ERASE_CH1;
WVW_ADD('SYSTEMERASECH2');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_ERASE_CH2;
//******************************************************************************
WVW_ADD('SYSTEMCOMPILECH1');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_COMPILE_CH1;
WVW_ADD('SYSTEMCOMPILECH2');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_COMPILE_CH2;
//******************************************************************************
WVW_ADD('SYSTEMPROGRAMCH1');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_PROGRAM_CH1;
WVW_ADD('SYSTEMPROGRAMCH2');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_PROGRAM_CH2;
//******************************************************************************
WVW_ADD('SYSTEMREADSETTINGSCH1');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_READ_SETTINGS_CH1;
WVW_ADD('SYSTEMREADSETTINGSCH2');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_READ_SETTINGS_CH2;
//******************************************************************************
WVW_ADD('SYSTEMWRITESETTINGSCH1');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_WRITE_SETTINGS_CH1;
WVW_ADD('SYSTEMWRITESETTINGSCH2');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_WRITE_SETTINGS_CH2;
//******************************************************************************
WVW_ADD('SYSTEMAVRDUDELIST');
NewCmd.OnCommand := @WVW_HANDLER_SYSTEM_AVRDUDE_LIST;
//******************************************************************************
end;