Ich habe einen Thread welcher sämtliche Sende Und empfangs aufgaben erledigen soll:

zusammenfalten · markieren

Delphi-Quellcode:

TEvent = procedure of Object;

  tLeseThread = class(TThread)
    private
      fReadData : TEvent;
      fWriteData : TEvent;
      fDeleteData : TEvent;
    public
      procedure Execute; override;
      property ReadData : TEvent read fReadData write fReadData;
      property WriteData : TEvent read fWriteData write fWriteData;
      property DeleteData : TEvent read fDeleteData write fDeleteData;
  end;
...

procedure tLeseThread.Execute;
begin
 while NOT(Terminated) do
   Begin
     if Not(Terminated) then if Assigned(fWriteData) then fWriteData;
     if Not(Terminated) then if Assigned(fReadData) then (fReadData);
     if Not(Terminated) then if Assigned(fDeleteData) then fDeleteData;
   End;
end;

senden klappt auch super nur beim Lesen schmiert der thread nach dem 1. read timeout ab.... weis einer woran das leigen könnte?

Greifen alle Deine Event-Procedures auf das gleiche Indy Object zu?

ja greifen sie

Ganz dumme Vermutung: Indy Timeout wird doch als Exception geworfen. In deinem Thread bubbelt die ganz nach oben, niemand fängt sie. Somit ist der Thread zu Ende.

ok danke für den Tip jetzt geht es....