TIdCmdTCPServer: Nachricht an Clients schicken

[Codewalker]

Ich nutze einen TIdCmdTCPServer in meiner Anwendung. Die Verbindung vom Client zum Server klappt recht gut. Jetzt möchte ich aber vom Server eine Nachricht (bzw. ein Kommando) an die Clients senden (z.B. das der Server heruntergefahren wird). Wie mache ich das? Die Indy-Doku ist an dieser Stelle ... sagen wir mal "dürftig".

Grüße

[Codewalker]

Für alle Interessierten, so ist es machbar:

Delphi-Quellcode:

procedure TServerForm.Button1Click(Sender: TObject);
var
  i: integer;
  ActContext: TIdContext;
begin
  for i := TCPServer.Contexts.LockList.Count - 1 downto 0 do
  begin
    ActContext := TCPServer.Contexts.LockList.Items[i];
    if ActContext.Connection.Connected then
      ActContext.Connection.SendCmd('test', [205]);
    ShowMessage(ActContext.Connection.LastCmdResult.FormattedReply.Text);
  end;
end;

Der Client muss natürlich auf das Kommando reagieren und eine Antwort senden, sonst bleibt die Anwendung beim Warten auf die Antwort hängen.