probleme mit sockets

[guste]

Als potentielle Fehlerquelle fällt mir spontan nur das auf.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var nachricht:string;
begin
  timer2.Enabled:=true;
  nachricht:=socket.ReceiveText;
  nachricht:='['+thetime+' '+copy(nachricht,2,length(nachricht));
  send_text(nachricht,0);
end;

Wenn nachricht = '' ist dürfte es krachen.


Ich würde beim Server Haltepunkte setzen, und zwar in ServerSocket1ClientRead, ServerSocket1ClientDisconnect und ServerSocket1ClientError, den Client disconnecten und dann mal schauen ...