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.