Okay die
Exception vom Counter wird nie geworfen. Die ThreadList selbst scheint nicht das Problem zu sein. Der Code in meinem Progress Event war vorher so:
Delphi-Quellcode:
Item := TListItem(Transfer.Data);
TAsyncCalls.VCLSync(procedure
begin
Item := TListItem(Transfer.Data);
Item.SubItems[1] := IntToStr(Round(Transfer.CurrentDataSize /
Transfer.TotalDataSize * 100));
Item.SubItems[2] := IntToStr(Round(100 - (Transfer.CompressedDataSize /
Transfer.CurrentDataSize * 100)));
end);
Das Problem war scheinbar, dass die Anzeige einfach zu schnell aktualisiert wurde (jede 8KiB). Hab dann jetzt zufällig den Code geändert, damit das ListView nicht mehr flackert und jetzt ist auch mein Deadlock weg
Hier ist der neue Code:
Delphi-Quellcode:
Progress := Round(Transfer.CurrentDataSize / Transfer.TotalDataSize * 100);
Item := TListItem(Transfer.Data);
if (Integer(Item.Data) < Progress) then
begin
Item.Data := Pointer(Progress);
TAsyncCalls.VCLSync(procedure
begin
Item := TListItem(Transfer.Data);
Item.SubItems[1] := IntToStr(Round(Transfer.CurrentDataSize /
Transfer.TotalDataSize * 100));
Item.SubItems[2] := IntToStr(Round(100 - (Transfer.CompressedDataSize /
Transfer.CurrentDataSize * 100)));
end);
end;
Vom verstehen dieses Problems bin ich zwar noch meilenweit entfernt, aber wenigstens funktioniert nun alles auch ohne meine eher quick'n'dirty Lösung. Danke euch allen
