TIdCmdTCPServer: Client merken und irgendwann anschreiben

[Angel4585]

Hallo,

ich habe meinem TIdCmdTCPServer ein paar Commands hinzugefügt und möchte jetzt bei einem(dem Login Kommando) die Verbindung zum Client speichern und irgendwann nutzen um ihn anzuschreiben.

Ich speichere als das TIdContext des TIdCommand welches ich beim Login-Kommando Ereignis übergeben bekomme in eine TList.

Das Problem ist, wenn ich bei der TIdConnection des TIdContext dann SendCmd aufrufe bleibt der Server an dieser Stelle hängen und beim Client kommt nichts an.

Wo habe ich diesmal meinen Denkfehler?

Login Kommando Ereignis:

Delphi-Quellcode:

procedure TsvcTCPDienst.IdCmdTCPServer1TIdCommandHandler0Command(
  ASender: TIdCommand);
var ltype : string;
begin
ASender.Reply.Code:='201';
ASender.Reply.Text.Text:='Logged in';
ASender.SendReply;//Das kommt ganz normal an 
FDisplay.Add(ASender.Context);
end;

Methode die an Displays an alle senden soll:

Delphi-Quellcode:

procedure TsvcTCPDienst.SendToDisplays(AText : string);
var
i : integer;
LC: TIdContext;
begin
for i := 0 to Pred(FDisplay.Count)do
  begin

    LC:=TIdContext(FDisplay.Items[i]);
    if(LC.Connection.Connected)then
      begin
      LC.Connection.SendCmd(AText,[222]);//Da hakts
      end
    else WriteLog('Dienst: Display not connected');

    LC:=nil;
  end;
end;

[Angel4585]

Ich konnte das jetz zurückverfolgen bis in diese Zeile:

Delphi-Quellcode:

unit IdStackWindows
..
    LResult := IdWinsock2.Select(0, AReadSet, AWriteSet, AExceptSet, nil);

In der IdWinsock2 check ich allerdings nichtsmehr, da gibts irgendwie keine Select Methode :gruebel:

[Angel4585]

Weis keiner Rat? :?

[Angel4585]

*push* :shock: