Nur einmal WriteLn mit IDTCPServer

[RobertS]

Hi habe auf dem Demos von Indy augebaut habe aber jetzt folgendes Problem:

Delphi-Quellcode:

procedure TServer.IdTCPServercom_restartCommand(ASender: TIdCommand);
var
n:integer;
begin
ASender.Thread.Connection.WriteLn('Aktion wir gestartet..');
for n:=0 to 15000 do label1.caption:=Inttostr(n); // eine aktione
ASender.Thread.Connection.WriteLn('Aktion erfolgreich');

Wie man sehen kann schicke ich 2 mal per WriteLn eine message diese kommt aber nur 1. mal an.

Hat jemand eine Idee wieso das so ist?
Hier der Source vom Sendcommand(Client):

Delphi-Quellcode:

procedure TProg.btnSendCommandClick(Sender: TObject);
var
    LCommand, LInString : String;
    LInInteger : integer;
begin
LCommand := cboCommands.Text;
LInInteger := -1;
with IdTCPClient do begin
  try
    WriteLn(LCommand);
    case cboCommands.ItemIndex of
     0: LInString := ReadLn;
     1: LInString := ReadLn;
     2: LInInteger := ReadInteger;
     3: LInString := ReadLn;
    end;
    if LInInteger <> -1 then
     LInString := IntToStr(LInInteger);
     lbCommunication.Items.Insert(0,'We said -> ' + LCommand);
     lbCommunication.Items.Insert(0,'Server said -> ' + LInString);
    except
      on E : Exception do begin
       // LockControls(True);
        ShowMessage(E.Message);
     end;
   end;

end;


end;

Ich danke im voraus
mfg aus köln r

[Luckie]

Zitat:

diese kommt aber nur 1. mal an

Bitte was? :shock:

Welche kommt jetzt an, die erste oder die zweite?

[RobertS]

nur die 1.

[Luckie]

Schon mal daran gedacht zu debuggen? :roll:

[RobertS]

Also es kommt auf jeden Fall keine Fehlermeldung im Debugger!
Er arbeitet auch alle Schritte nacheinander ab nur das das WriteLN nur einmal ankommt.

Vielleicht liegt es ja am Client?!
Wie gesagt ist aus den Demos von Indy