was heist diese Fehlermeldung genau
ReceiveHeader: Net packets out of order: received[0], expected[1]
Ich habe einen idTCPServer damit Connecten sich mehrere Clients (idTCPClient)
wenn jetzt (vermutlich) 2. Client gleichzeitig eine Funktion ausführen kommt diese Meldung,
Ich habe scho alles nach geguckt aber nicht (von meinem Code) gefunden was das auslösen kann.
Jetzt zu meinem Thread
Delphi-Quellcode:
procedure TPlugin_Zeiterfassung.CheckData(
const Liste: TStringList;
AContext: TIdContext);
Var
Query : TMyQuery;
Buffer :
String;
DBuf : TDateTime;
i,MaNr : Longint;
J,M : Word;
da : Boolean;
PrNr1,PrNr2 : Longint;
LastAB : TLastAbschluss;
gz, ph, pg,sh, eh, sg, eg, fh, fg :
String;
Datum : TDateTime;
SuchFelder :
Array[0..6]
of String;
FUrlaub_Zeiterfassung : TZeiterfassung_Update;
VT : TVirtualTable;
....
IP:=AContext.Connection.Socket.Binding.PeerIP;
If AnsiUpperCase(Liste.Strings[0])=AnsiUpperCase(
Name)
then //Sind die Daten für mich
Begin
VT:=TVirtualTable.Create(
Nil);
FUrlaub_Zeiterfassung:=TZeiterfassung_Update.Create;
FUrlaub_Zeiterfassung.OnStatus:=ShowStatus;
Query:=TMyQuery.Create(
Nil);
Query.Connection:=HostDB;
try
If AnsiUpperCase(Liste.Strings[1])='
GETMA'
then
Begin
With Query do
Begin
ReadOnly:=True;
SQL.Text:='
SELECT nr,name,aktive FROM mitarbeiter WHERE aktive<>0 ORDER BY name';
WriteDebug(
SQL.Text);
Open;
VT.Assign(
Query);
Close;
SendTableEx(VT,AContext);
End;
End;
...
except
on E:
Exception do
Begin
WriteDebug('
ERROR : '+Liste.Text+'
'+E.
Message);
End;
End;
VT.Free;
FreeAndNil(
Query);
FUrlaub_Zeiterfassung.Free;
End;
Hat einer eine Idee was das sein kann