TSemaphore

[youuu]

Hi,

ich möchte mehrere Threads starten, allerdings soll bei 10 gleichzeiigen Threads schluss sein, bis wieder einer abgearbeitet wurde und der nächste starten kann.

Nun habe ich gelesen das geht mit TSemaphore, kann mir jemand dazu ein Beispiel zeigen?

[gsh]

Du solltest nicht immer die Threads anlegen und dann nach der Aufgabe zerstören. Wenn du einmal 10 Threads erzeugst und die dann in einem Pool die Arbeiten erledigen lässt sparst du dir viel Overhead.

Schau dir mal das an: http://www.delphipraxis.net/93835-wo...ntergrund.html

[youuu]

Habe ich mir gerade angesehen und schaut sehr gut aus, habe allerdings noch eine Frage dazu und zwar wie kann ich dem Thread eine Variable mit geben, beim OnCreate Ereignis?

[SirThornberry]

genau, fast richtig. natürlich nicht im OnCreate sondern beim Create (Constructor-Aufruf). Einfach einen neuen Constructor anlegen und dem die Parameter übergeben. Im Constructor kannst du die übergebenen Parameter dann in private-Varialben etc. speichern.

[youuu]

Ach stimmt, oh man ich Pfeiffe

[youuu]

Ach stimmt, oh man ich Pfeiffe

Edit: Hm irgendwie klappt das nicht.

Ich bekomm dann immer als Fehler: E2008 Inkompatible Typen Hier:

Delphi-Quellcode:

Constructor TSampleJob.Create(kat: integer; sl2: THashedStringList; slOld2: THashedStringList);
Begin
  Inherited;            // <<<----- E2008 Inkompatible Typen
  Synchronized := False;
  o := kat;
  sl.AddStrings(sl2);
  slOld.AddStrings(slOld2);
End;

HauptThread sieht dann so aus

Delphi-Quellcode:

  TWorkerThreadJob = Class
  private
    fSynchronized: Boolean;
    fUsesCOMObjects: Boolean;
    fo: integer;
    fsl, fslOld: THashedStringList;
  protected
    Procedure Execute(aThread: TWorkerThread); virtual; abstract;
    Property UsesCOMObjects: Boolean read fUsesCOMObjects write fUsesCOMObjects default False;
    Property Synchronized: Boolean read fSynchronized write fSynchronized default True;
    Property o: Integer read fo write fo;
    Property sl: THashedStringList read fsl write fsl;
    Property slOld: THashedStringList read fslOld write fslOld;
  End;

Damit wollte ich es testen, aber wie gesagt bekam ich diese Fehlermeldung.

[idefix2]

Dein Konstruktor hat andere Parameter als der Konstruktor Create der Vorfahrklasse, da kannst Du nicht einfach inherited schreiben. Versuch es mit:

inherited create (Parameter für geerbte Createroutine)

[youuu]

E2034 Zu viele Parameter

kommt dabei raus.

[idefix2]

Was ist der Vorfahr von TSampleJob? Wie schaut die Deklaration der entsprechenden (geerbten) Create Routine aus? Und welche Parameter hast Du jetzt an inherited create übergeben?

[youuu]

Delphi-Quellcode:

Type
// Beispiel, das die Verwendung der synchronize-Methode demonstriert,
// um Ausgaben unter Verwendung der VCL threadsicher vorzunehmen.
  TSampleJob = Class(TWorkerThreadJob)
    fMessage: String;
    Procedure DoShow;
  public
    Constructor Create(kat: integer; sl2: THashedStringList; slOld2: THashedStringList);
    Procedure Execute(aThread: TWorkerThread); override;
  End;

Delphi-Quellcode:

  TWorkerThreadJob = Class
  private
    fSynchronized: Boolean;
    fUsesCOMObjects: Boolean;
    fo: integer;
    fsl, fslOld: THashedStringList;
  protected
    Procedure Execute(aThread: TWorkerThread); virtual; abstract;
    Property UsesCOMObjects: Boolean read fUsesCOMObjects write fUsesCOMObjects default False;
    Property Synchronized: Boolean read fSynchronized write fSynchronized default True;
    Property o: Integer read fo write fo;
    Property sl: THashedStringList read fsl write fsl;
    Property slOld: THashedStringList read fslOld write fslOld;
  End;

sollte der vorfahre sein.