Delphi-Quellcode:
try
while assigned(AClient) and (Pos(EOCommand, AClient.Buffer) > 0) do begin
Index := Pos(EOCommand, AClient.Buffer);
DCFrame := Copy(AClient.Buffer, 1, Index + 4);
AClient.Buffer := Copy(AClient.Buffer, Index + 5, Length(AClient.Buffer));
Parse_DCFrame(AClient, DCFrame);
end;
except
Exit;
end;
Zitat von
Cyberaxx:
Meldet sich ein Benutzer ein zweites mal an wird in der Procedure OnClientDisconnet AClient freigegeben, ...
Sorge dafür, dass FreeAndNil() genutzt wird, damit die Abfrage klappt. Ausserdem gehe ich davon aus, dass AClient die gleiche Variable ist wie in dem Code zuvor (nicht Typgleich sondern wirklich die gleiche Variable).