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