Kann ich meine ListView beschleunigen (Icon laden dauert ewig)

[Schokohase]

Zitat von Uwe Raabe:

Zitat von Schokohase:

Du kannst da übergeben was du möchtest - der Wert wird im Prinzip nicht wirklich verwendet.

Für Synchronize stimmt das, aber bei Queue spielt es schon eine Rolle.

Könntest du erklären wie oder welche Rolle? Ich sehe aktuell nicht, wo diese Information (Instanz von TThread ) auch beim TThread.Queue sinnvoll verwendet wird.

Auch TThread.Queue ruft intern class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord; QueueEvent: Boolean = False; ForceQueue: Boolean = False) auf und das habe ich oben erläutert.

Aber bestimmt übersehe ich da etwas ...

[Uwe Raabe]

Zitat von Schokohase:

Könntest du erklären wie oder welche Rolle? Ich sehe aktuell nicht, wo diese Information (Instanz von TThread ) auch beim TThread.Queue sinnvoll verwendet wird.

Auch TThread.Queue ruft intern class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord; QueueEvent: Boolean = False; ForceQueue: Boolean = False) auf und das habe ich oben erläutert.

TThread.Destroy ruft TThread.RemoveQueuedEvents auf und dort werden alle noch nicht erledigten Queue-Events für diesen Thread gelöscht und somit nicht mehr ausgeführt. Übergibt man beim Queue ein nil, kommen die Events auch noch an wenn der auslösende Thread schon weg ist.

[Schokohase]

Zitat von Uwe Raabe:

TThread.Destroy ruft TThread.RemoveQueuedEvents auf

jetzt wo du es sagst ... stimmt, da war noch was

[KodeZwerg]

Das mit dem TParallel.For() bekomme ich auch nicht wirklich in Gange.
Zum verzweifeln wenn man nicht weiß wie.

Delphi-Quellcode:

procedure TfrmMain.StartIcons3( AListView: TListView; AImageList: TImageList );
var
  LIcon: TIcon;
  dummy: Word;
begin
  dummy := 0;
  LIcon := TIcon.Create;
  LIcon.Transparent := True;
  TParallel.For(0, AListView.Items.Count - 1,
    procedure(Index: Integer; State: TParallel.TLoopState)
    var
      Filename : string;
    begin
      try
        if State.ShouldExit then Exit;
        TThread.Synchronize(nil,
          procedure
          begin
            Filename := AListView.Items.Item[ Index ].Caption;
            LIcon.Handle := ExtractAssociatedIcon( hInstance, PWideChar( Filename ), dummy );
            LIcon.Transparent := True;
            AListView.Items.Item[Index].ImageIndex := AImageList.AddIcon( LIcon );
            DestroyIcon( LIcon.Handle );
          end);
      finally
      end;
    end);
  LIcon.Free;
end;

[EWeiss]

Zitat:

Übergibt man beim Queue ein nil, kommen die Events auch noch an wenn der auslösende Thread schon weg ist.

Ok hilft dir jetzt nicht weiter möchte aber doch noch darauf antworten.

@Uwe Raabe
Du bist Profi ohne frage
Aber das Phänomen konnte ich bisher in realer Anwendungsumgebung bisher so nicht ausmachen.
Wenn der Thread bei mir geschlossen wird dann ist da nix mehr mit Events auch bei Queue nicht.

Wie bei meinem Mixer.. also wie soll dann der System Mixer Events an meinen Thread schicken können wenn er weg ist.
Nun er kann es versuchen, hat aber keine Auswirkung da sie nicht verarbeitet werden können bzw. kommen nicht mehr an.

gruss

[Uwe Raabe]

Zitat von EWeiss:

Aber das Phänomen konnte ich bisher in realer Anwendungsumgebung bisher so nicht ausmachen.
Wenn der Thread bei mir geschlossen wird dann ist da nix mehr mit Events auch bei Queue nicht.

Wie bei meinem Mixer.. also wie soll dann der System Mixer Events an meinen Thread schicken können wenn er weg ist.
Nun er kann es versuchen, hat aber keine Auswirkung da sie nicht verarbeitet werden können bzw. kommen nicht mehr an.

Der Begriff "Event" ist hier nicht im Sinne der Windows-API oder eines Delphi-Methodenzeigers zu verstehen, sondern im wörtlichen Sinne als Ereignis, das von einem Queue-Aufruf im Thread ausgelöst und im Hauptthread abgearbeitet wird.

Wenn du innerhalb eines Threads einen Queue-Aufruf machst, dann wird der erstmal in die Warteschlange gelegt, bis der Hauptthread ihn abarbeitet. Im Gegensatz zu Synchronize arbeitet der Thread aber sofort weiter und kann sich natürlich auch beenden. Sollte das passieren bevor die Warteschlange vollständig abgearbeitet wurde, dann entfernt das TThread.Destroy noch eben schnell alle Queue-Calls aus der Warteschlange, die noch einen Verweis auf den besagten Thread haben.

Es handelt sich natürlich um eine Race Condition, was ein konkretes Beispiel schwer macht. Das Phänomen kann man aber häufig mit dem anhängenden (sinnfreien) Beispiel provozieren. Je nachdem welchen der beiden Queue-Aufrufe man verwendet kommt entweder nur ein Teil oder alle Zahlen im Memo an.

[EWeiss]

Zitat:

sondern im wörtlichen Sinne als Ereignis

Ja nun es sind diese die mir vom System Mixer geschickt werden.
Diese Events nehme ich an und schicke sie zum Mainthread mehr ist da nicht.

Vielleicht verstehe ich dich auch nicht so recht was genau gemeint ist.
Es geht nicht um Threads von meiner Anwendung zu meiner DLL und umgekehrt sondern um Threads vom System zur Anwendung.

Und da kann ich solche Probleme nicht feststellen.

Zitat:

dann wird der erstmal in die Warteschlange gelegt, bis der Hauptthread ihn abarbeitet

Jo nichts anderes als PostMessage im weitläufigen sinne.
Na ja auf jeden fall.. Danke für die Infos.

gruss