Hallo,
ich versuche im Moment in meinem Chat Streams zu empfangen, ich weiß aber nicht ob das so richtig ist da manchmal noch fehler auftreten.
Delphi-Quellcode:
var
ReadStream: TStream;
begin
if IdTCPClient1.Connected then
begin
ReadStream:= TMemoryStream.Create;
try
try
IdTCPClient1.IOHandler.ReadStream(ReadStream, -1, false);
ReadStream.Seek(0,0);
ReadData(ReadStream);
Except
end;
finally
ReadStream.Free;
end;
end
else
begin
Timer1.Enabled:=false;
ShowError('Verbindung unterbrochen!');
end;
end;
Das ganze läuft in einem Timer und immer wenn nichts zum empfangen da ist wird das Except ausgelöst.
Kann man das auch irgendwie eleganter lösen?
Ich weiß einfach nicht ob ich das so richtig mache, wäre nicht schlecht wenn sich das mal jemand anschauen würde.