AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

procedure of object Threadsafe?

Ein Thema von alleinherrscher · begonnen am 3. Dez 2013 · letzter Beitrag vom 4. Dez 2013
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#1

procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:05
Delphi-Version: XE2
Hi@all!

Ich habe eine Funktion Integrate, der ich eine (wenn ich es richtig verstanden habe) function of Object übergeben kann, um diese quasi mathematisch zu integrieren:

Delphi-Quellcode:
       TCommonFunction = function(x: double; Parameters:TFunctionParameters): double;

//[...]
       function Integrate(FunctionToIntegrate:TCommonFunction; Parameters:TFunctionParameters; From:double; Too:double;dx:double):double;
       begin
         //tu etwas
       end;
Damit ich mein Problem schneller berechnen kann, wollte ich es über mehrere Threads laufen lassen. Jeder Thread muss einige hundert mal eine Funktion integrieren. Allerdings ist die Funktion "integrate" nicht teil meines TThreads, sondern global in meinem Projekt definiert. Beim Ausführen bekomme ich immer Access Violations in dem Bereich der Integration. Daher meine Frage: Ist mein Verfahren nicht Thread-Safe und wie kann ich dies am besten Thread-safe lösen? Muss die Integrationsfunktion in meinen TThread?

Besten Dank und viele Grüße,
Michael
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.713 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:10
Wo ist da eine function of object? TCommonFunction ist schonmal keine. Die Definition von TFunctionParameters lässt du weg.

"In meiner Methode X bekomme ich Zugriffsverletzungen". Ohne die Methode X zu zeigen ist diese Information weitgehend wertlos
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
8.093 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:20
Ist mein Verfahren nicht Thread-Safe und wie kann ich dies am besten Thread-safe lösen? Muss die Integrationsfunktion in meinen TThread?
Soweit du es gepostet hast (also quasi nichts vom eigentlichen Code) ist es threadsafe.

Wenn es ein Problem dabei gibt, dann greifst du auf etwas zu, das auch in anderen Threads benutzt wird. Zum Beispiel gemeinsame Objekte oder ähnliches.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#4

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:20
TFunctionParameters ist nur ein Record. Okay dann ist es keine procedure of Object. Wie nennt man es denn, wenn ich als Parameter eine Funktion übergebe?

Delphi-Quellcode:
       function Integrate(FunctionToIntegrate:TCommonFunction; Parameters:TFunctionParameters; From:double; Too:double;dx:double):double;
       var width,dummy:double;
           i,steps:cardinal;
           vz:integer;
       begin
          if (dx=0) or (Too=From) then
            begin
              result:=0;
              exit;
            end;
          width:=Too-From;
          dx:=abs(dx)*(Too-From)/abs(Too-From);
          if width/dx>high(steps) then
             begin
               output('Integration-Error: dx is set too small. Using smallest acceptable dx = '+floattostr(width/high(steps)));
               dx:=width/high(steps);
             end;
          steps:=round(width/dx);
          result:=0;

          for i := 1 to steps do
              result:=result+FunctionToIntegrate(From+(i-0.5)*dx, Parameters)*dx;
       end;
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)

Mein Netzwerktool: Lan.FS
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.803 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#5

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:24
Wie nennt man es denn, wenn ich als Parameter eine Funktion übergebe?
Callback!
http://www.michael-puff.de/Programmi...Callback.shtml
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.713 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:36
Eventuell auch Closure
Das kommt dem "Function of object" auch noch ein Stückchen näher.
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.325 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:43
Die Funktion "Integrate" ist threadsicher wenn:

- die intern genutzte Funktion "output" threadsicher ist
- die übergebene und intern genutzte Funktion "FunctionToIntegrate" threadsicher ist
- der Parameter "Parameters" keine Objekte, Zeiger, Arrays enthält, oder die dadurch referenzierten Inhalte nicht aus anderen Threads angesprochen werden
  Mit Zitat antworten Zitat
Benutzerbild von BUG
BUG

Registriert seit: 4. Dez 2003
Ort: Cottbus
2.094 Beiträge
 
#8

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 17:52
Ich denke, Output könnte man im Zweifelsfall durch einen Mutex schützen; die Funktion sollte eh nicht so oft aufgerufen werden.
Es wird wahrscheinlicher irgendwas an FunctionToIntegrate sein. Ist das eine Funktion im mathematischen Sinne oder hat sie Seiteneffekte?

Außerdem: Es kann sein, das der Fehler schon vorher auftritt aber erst in Integrate zu einer Exception führt.
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#9

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 18:07
Du musst dein Problem in so viele Teile zerlegen wie dein Rechner CPU-Kerne hat.
Mehr Threads als CPUs vorhanden sind wirken bei reinen Berechnungen bremsend auf die Gesamtleistung.
Pro CPU startest du dann einen Thread.
Der Thread (TThread-Klasse) bekommt von Aussen vor dem Start alle Parameter die für die Berechnung nötig sind.
Diese Parameter können durchaus auch eine Funktion (Zeiger auf eine Funktion/Methode) enthalten.
Wichtig ist nur, dass die Funktion nicht schreibend auf einen gemeinsamen Status zugreift.
Nur lesender Zugriff auf einen gemeinsamen Status der sich nicht ändert ist kein Problem.
(= Funktion ohne Seiteneffekte)
Das Ergebnis der Berechnungen wird in Variablen/Properties des Thread-Objekts gespeichert.
Nachdem alle Threads durchgelaufen sind sammelt der Hauptthread die Ergebnisse ein und fügt sie zusammen.

Ein Problem könnte sein, dass die Threads unterschiedlich viel Zeit brauchen und der langsamste Thread die Gesamtdauer bestimmt.
Um dies zu entschärfen kannst du das Problem auch in mehr Teile als Threads vorhanden sind zerlegen.
Wenn ein Teilproblem von einem Thread gelöst ist bekommt er vom Hauptthread ein weiteres Teilproblem zugeteilt.
(ggf. den alten Thread beenden und neuen Thread starten)
fork me on Github
  Mit Zitat antworten Zitat
grl

Registriert seit: 5. Feb 2007
174 Beiträge
 
FreePascal / Lazarus
 
#10

AW: procedure of object Threadsafe?

  Alt 3. Dez 2013, 21:58
Wo bekommst du denn genau deine AV? Wo steht der Debugger danach?

Was tut deine FunctionToIntegrate?

GRL
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 22:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf