TThread und kein Ende in Sicht...

[Schokohase]

Ich habe deinen Source mal etwas überarbeitet (hier nur die geänderten Teile):

Delphi-Quellcode:

procedure TCustomThread.SetCancel(const Value: Boolean);
begin
  if (FCancel <> Value) then
  begin 
    FCancel := Value;
    if Value then
      Terminate;
  end;
end;

procedure TCustomThread.Execute;
var
  I : Integer;
begin
  Stream := TFileStream.Create(FFileName, fmOpenRead);
  try
    FIsOpen:= Stream.Handle <> INVALID_HANDLE_VALUE;
    if FIsOpen then
    begin
      StreamSize := Stream.Size;
      I := 10;
      while (StreamSize div I) > MaxInteger do
        I := I * 10;
      iSize := StreamSize div I;
    end;
    Extract;
  finally
    Stream.Free;
  end;
end; 

procedure TCustomThread.Extract;
var
  iRead : Int64;
begin
  if FIsOpen then
  begin
    while (ReadSize <> StreamSize) and (not Terminated) do
    begin
      iRead:= iSize;

      Inc(ReadSize, iRead);

      if (StreamSize - ReadSize) < iSize then
        iSize := StreamSize - ReadSize;

      if Assigned(FOnProgress) then
        Synchronize(DoProgress);

      Sleep(50);
    end;
  end;
end;

procedure TCustomThread.TerminatedSet;
begin
end;

[Alter Mann]

Moin,

habe den Denkfehler gefunden:

Zitat:

Delphi-Quellcode:

Delphi-Quellcode:

procedure TForm1.TerminateEvent(Sender : TObject);
begin
  CT.Free;
  Log('TerminateEvent');
end;

Das CT.Free; ist hier Falsch, da der Thread sich ja schon beenden will. Ein erneuter Aufruf verhindert aber die Beendigung, sodass es zu einer Schleife kommt. Anfängerfehler.
Danke an allen für die Hilfe und Entschuldigung.

[TiGü]

Jup, stand schon in Beitrag #4.

[Alter Mann]

Aber nicht warum= super:twisted: