Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   THreads in ein Array schreiben (https://www.delphipraxis.net/167303-threads-ein-array-schreiben.html)

bernhard_LA 27. Mär 2012 20:40

AW: THreads in ein Array schreiben
 
OK, gestehe das Manual nur halb gelesen zu haben ... man soll also

Delphi-Quellcode:
      Thread.Create(....)
      Thread.Start;
anstelle meiner Lösung

Delphi-Quellcode:
      THread.Create(...)
      Threat.Execute;
Aktuell habe ich zwei Probleme :
a) mit der ersten Lösung rennt mein Programm in < 1 Sekunde durch .... nur kommt kein Array zurück
thread.start ruft thread.execute auf, die Reiehnfolge der Berechnung der Teilmatrizen ist jetzt anders
als wenn execute verwenden....

b) mit meiner Lösung kommt zwar das Richtige Array zurück , aber ohne der Geschwindigkeitsvorteil

meine Lösung mit 2 Threads ~ 15 sec
meine Lösung mit 4 Threads ~ 15 sec
meine Lösung mit 8 Threads ~ 16 sec
meine Lösung mit 8 Threads ~ 17 sec
meine Lösung mit 32 Threads ~ 18 sec
meine Lösung OHNE Threads ~ 16 sec

Klaus01 27. Mär 2012 21:13

AW: THreads in ein Array schreiben
 
Guten Abend,

werden in der execute Routine die Offset Parameter verändert?
Wenn ja, dürfte das ein Problem sein, da ja nun die Thread "parallel" laufen.

Grüße
Klaus

bernhard_LA 27. Mär 2012 22:00

AW: THreads in ein Array schreiben
 
schwierige Geburt für paralleles Schreiben in ein Array :



fehler gefunden !!!!!

Array als Zeiger übergeben und wieder abholen .... dann gehts !!!!

bernhard_LA 29. Mär 2012 08:13

AW: THreads in ein Array schreiben
 
**** Für die Nachwelt ****

DER CODE SPIELT && PERFORMNCE WIE ERWARTET !!!!!!!

vielen Dank für die Inputs zu diesem Thema, ich konnte nur teilweise mit den Posts hier wenig anfange weil sobald ich den Vorschlägen gefogt bin mein Code weniger gespielt hat.

Bei Thread.Create (....) ; Thread.execute kamen ja schon die richtigen Ergebnisse , Bei Thread.Create(....) Threat. Start kamen keine Ergebnisse.

Die Lösung zum Problem besteht auf 3 Themen

a) Bei Thread.Create( var AnyValue ) übergeben und hoffen ich bekomme Änderungen in AnyValue auch in anderen Threads mit geht nicht, ich muss in der CREATE procedure einen Zeige auf AnyValue setzten , dann reden wir in allen Threads über die selbe Variable AnyValue

b) Änderungen in Threat.Execute an AnyValue habe ich über eine Criticalsection beschränkt


c) bei Thread.Create übergebe ich jetzt noch einen INT-Pointer RunningThreads der in EXECUTE zum Schluss noch heruntergezählt wird. Weitermachen im Gesamten Code darf ich erst wenn alle THread fertig sind, ggf. auch beachten


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:17 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz