Я использую Delphi XE7. Раньше я никогда не использовал компоненты Indy.TIdCommandHandler: Как создать команды?
Я нашел очень хороший учебник от Embarcadero под названием Developing TCP/IP-based Server Applications using Indy Components. Он показывает очень хороший пример, используя TidCmdTCPServer
и Command Handlers.
Моя проблема в том, что я не понял, как построить команду. Я не мог найти его в файлах справки ни на главной странице Indy.
Смотрите код ниже:
procedure TMyServer.InitializeCommandHandlers;
var
NewCmd: TIdCommandHandler;
begin
NewCmd := FCommandHandlers.Add;
NewCmd.Command := 'HEARTBEAT'; { Do not Localize }
NewCmd.OnCommand := CommandHEARTBEAT;
NewCmd.ExceptionReply.NumericCode := 550;
NewCmd.Description.Text := 'Syntax: HEARTBEAT'; { do not localize }
NewCmd.Disconnect := False;
NewCmd := FCommandHandlers.Add;
NewCmd.Command := 'COLOR'; { Do not Localize }
NewCmd.CmdDelimiter := #$20;
NewCmd.ParamDelimiter := '|';
NewCmd.OnCommand := CommandCOLOR;
NewCmd.ExceptionReply.NumericCode := 550;
NewCmd.Description.Text := 'Syntax: COLOR <sp> "GET | [SET" | color-"blue | red | yellow]"'; { do not localize }
NewCmd.Disconnect := False;
end;
Первая команда HEARTBEAT
, довольно легко, но команда COLOR
нет.
я не понял строку:
NewCmd.Description.Text := 'Syntax: COLOR <sp> "GET | [SET" | color-"blue | red | yellow]"'; { do not localize }
Может кто-нибудь объяснить, как он построен? Или показать мне документ, где я могу это узнать?
Что означает «не локализовать»?
+1000! Отличный ответ !!!! Большое спасибо. –