Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi warten bis Thread keine Jobs mehr hat..... (https://www.delphipraxis.net/123299-warten-bis-thread-keine-jobs-mehr-hat.html)

sirius 30. Okt 2008 15:16

Re: warten bis Thread keine Jobs mehr hat.....
 
Variablen (also dessen Inhalt) solltest du im Constructor übergeben (Dafür ist er ja da)
Aber so Threadrelevante Dinge, wie Fenster oder Timer erstellen müssen in execute.

Thomas83 30. Okt 2008 15:34

Re: warten bis Thread keine Jobs mehr hat.....
 
jup so habe ich es jetzt auch gemacht.....
jetzt merke ich auch erst das alle Threads gleichzeitig laufen bzw. arbeiten :stupid:

Thomas83 30. Okt 2008 16:05

Re: warten bis Thread keine Jobs mehr hat.....
 
eine frage hätte ich da noch.....

wenn sich ein client beendet wird im thread ondisconnect ausgelöst per syn wird eine methode in der mainform aufgerufen..... wenn ich einen client beende und der inhalt von disconnect wird ausgelöst, friert meine anwendung manchmal ein..... wenn ich den code rausnehme ohne probleme.....

dort werden dann auch daten an einen anderen thread übergeben.... kann es sein das meine threads sich irgend wie stören oder ich zu viele syn methoden eingebaut habe.....

debuggen ist auch nicht gerade einfach.....

Thomas83 31. Okt 2008 05:45

Re: warten bis Thread keine Jobs mehr hat.....
 
vielleicht sind die ganzen TCriticalsection mein Problem....
Maches zur Zeit so ...
Delphi-Quellcode:
TMeinThread1 = class(TThread)
private
  cs : TCriticalsection;
public
  Procedure IrgendEine(str : string);
end;

TMeinThread1.IrgendEine(str : string);
begin
  cs.enter
  try
    flist.add(str); //<- TStringList;
  finally
    cs.leave;
  end;
end;

TMeinThread2 = class(TThread)
private
  meinthread1 : TMeinThread1;
  cs : TCriticalsection;
  fOnProcedure : TProcedure;
public
  Procedure IrgendEine;
  Property OnProcedure : TProcedure read fOnProcedure write fOnProcedure;
  Property MeinThread1 : TMeinThread1 read meinthread1;
end;

TMeinThread2.IrgendEine;
begin
  //mach was
  synchronize(fOnProcedure);
  //mach noch was
end;

//Main
//...
  fMeinThread2.onProcedure := onMeineProcedure;
//...

TFrmMain.OnMeineProcedure;
begin
  fMeinThread2.MeinThread1.add('text');
  //noch irgend was....
end;

Thomas83 31. Okt 2008 06:41

Re: warten bis Thread keine Jobs mehr hat.....
 
habe jetzt noch ein paar test gemacht.....
ich meine ich habe den fehler gefunden.

In einigen Threads deklariere ich die variable für die TCriticalsection unter private der Klasse.
Wenn ich aber in der Methode selber eine cs erstelle und freigebe habe ich keine Probleme, so sieht es nach einem Test zumindestens aus....

sirius 31. Okt 2008 06:45

Re: warten bis Thread keine Jobs mehr hat.....
 
Du darfst nur eine CS für alle Threads haben (bzw. alle die sich zusammen synchronisieren müssen)

Thomas83 31. Okt 2008 06:48

Re: warten bis Thread keine Jobs mehr hat.....
 
:shock: jetzt verstehe ich gar nichts mehr, bzw. habe ich es überhaupt verstanden :)
Das heist ich müste eine globale cs für alle Threads haben....

hmmmm

sirius 31. Okt 2008 06:59

Re: warten bis Thread keine Jobs mehr hat.....
 
Für die Threads, welche du gegenseitig synchronisiewren willst, weil du auf dieselben Variablen zugreifst, ja.

Du kannst natürlich mehrere CS haben. Für jede Variable, die du in mehreren Threads nutzt je eine. Oder eben eine für alle.

Global definieren geht, ist aber nicht ganz OOP. Du kannst sie auch von dem einen Thread zum anderen im Constructor o.ä. übergeben.

alzaimar 31. Okt 2008 07:04

Re: warten bis Thread keine Jobs mehr hat.....
 
Zitat:

Zitat von sirius
Global definieren geht, ist aber nicht ganz OOP. Du kannst sie auch von dem einen Thread zum anderen im Constructor o.ä. übergeben.

Hier wäre eine pragmatische Lösung ('Scheiss auf OOP') allerdings wesentlich einfacher und klarer. :zwinker:

sirius 31. Okt 2008 07:11

Re: warten bis Thread keine Jobs mehr hat.....
 
Zitat:

Zitat von alzaimar
Zitat:

Zitat von sirius
Global definieren geht, ist aber nicht ganz OOP. Du kannst sie auch von dem einen Thread zum anderen im Constructor o.ä. übergeben.

Hier wäre eine pragmatische Lösung ('Scheiss auf OOP') allerdings wesentlich einfacher und klarer. :zwinker:

Ja, schon. Borland hat es ja in seinen Komponenten schön vorgemacht mit den globalen Variablen, gerade bei CS.
Aber was machst du, wenn du mehrere Threads startest (aus verschiedenen Instanzen)?
Ich habe meistens einen kleinen kurzen Thread, den ich starte. Dem übergebe ich sowieso zwei, drei Variablen. Da kann ich ihm auch noch die CS übergeben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:00 Uhr.
Seite 2 von 3     12 3      

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