Alzaimar's Workerthread und Stringübergabe ?

[th_bone]

Hi,

ich habe eine Frage zu "Alzaimar's Workerthread - Diener im Hintergrund"

Workerthread

interessanter code... aber was sich mir in dem Zusammenhang nicht erschließt ist, wie ich richtig einen job erstelle
und dabei einen string an den job übergebe...

Bei der Datenübergabe und threads habe ich immer ein wenig Bauchschmerzen.

Danke für die Tips

Ralf

ich habe das jetzt mal so gelöst - aber ist das wirklich eine gute Lösung ?

Delphi-Quellcode:

Type
  TAddDataJob = Class(TWorkerThreadJob)
    fDataStr: String;
    Procedure AddData;
  protected
    Constructor Create;
    Procedure Execute(aThread: TWorkerThread); override;
  End;

//******

Procedure TAddDataJob.Execute(aThread: TWorkerThread);
Begin
  Inherited;
  fDataStr := UDPstr;
  Sleep(10);
  AddData;
  //aThread.Synchronize(DoShow);
End;

//******

  UDPstr := StrPas(Buffer);
  // Schicke UDPstring in die Warteschleife
  PendingJobs.AddJob(TAddDataJob.Create);

[alzaimar]

Ahoi,

Übergebe den String einfach im Konstruktor, so etwa:

Delphi-Quellcode:

Type
  TMyJob = Class(TWorkerThreadJob)
    fDataStr: String;
    Procedure AddData;
  protected
    Constructor Create (Const aDataStr : String);
    Procedure Execute(aThread: TWorkerThread); override;
  End;

Constructor TMyJob.Create (Const aDataStr : String);
Begin
  Inherited;
  fDataStr := aDataStr;
  ...
End;
...

PendingJobs.AddJob (TMyJob.Create('Foobar'));