Alles schon vorhanden...
Delphi-Quellcode:
Procedure TReadThread.Execute;
Begin
SetName;
Try
While Not Terminated Do Begin
MyTIdTCPclient.ReadTimeout := 0;
If Assigned( FOnRead ) Then FOnRead( MyTIdTCPclient, MyTIdTCPclient.CurrentReadBuffer );
End;
Except
//Da Fehlt noch was ganz ganz Wichtiges, die Fehlerbehandlung!
End;
End;
Problem ist, dass CurrentReadBuffer solange was macht bis was im Speicher ist...
Da das mein Main-Programm immer Frezzed hab ichs im Thread ausgelagert, aber nu will ich den Thread aber zerstören, aber es ist nix im Speicher, also hängt er an der stelle scheinbar....
Und nu?
