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;