Mal wieder Threads

**Sir Rufo**

Da habe ich dann die nummer auf dem record, der "zu mir" gehört. Der Record ist Global und da stehen dann alle sachen drinne die ich in dem moment brauche. Strings,Integer usw..

Hmmm, warum nimmst du keine TCollection und definierst dir ein passendes TCollectionItem dazu.
Von dem neuen TCollectionItem übergibst du per PostMessage oder SendMessage die ID (nicht den Index!) und schickst das auf die Reise. Der Empfänger kann nun aus dieser Collection sich das passende Item (mit der ID) herausnehmen und hat auch alle Informationen.

Generell würde ich auch die Jobs nicht als Thread definieren, sondern die Jobs durch einen WorkThread ausführen lassen.
Der WorkThread wird über einen WorkManager gestartet und dieser verwaltet passenderweise auch noch die Collection mit den Nachrichten.

Hier mal ein schnell hingetippeltes Projekt

zusammenfalten · markieren

Delphi-Quellcode:

			type

IWorkManager = interface

procedure SendMessage(<ParameterListe anpassen>);

procedure PostMessage(<ParameterListe anpassen>);

end;

// Interface für den WorkJob

IWorkJob = interface

procedure SetWorkManager( aWorkManager : IWorkManager );

procedure DoExecute;

end;

TWorkThread = class( TThread )

private

  fWorkJob : IWorkJob;

protected

  procedure Execute; override;

public

  constructor Create( CreateSuspended : Booelan; aWorkJob : IWorkJob );

end;

TWorkManager = class( TInterfacedObject, IWorkManager )

public

  procedure AddJob( aWorkJob : IWorkJob );

end;

procedure TWorkManager.AddJob( aWorkJob : IWorkJob );

begin

  aWorkJob.SetWorkManager( Self );

  with TWorkThread.Create( True, aWorkJob ) do

  begin

    FreeOnTerminate := True;

    Resume;

  end;

end;

Es gibt auch noch diese Bei Google suchen

OmniThreadLibrary die sowas schon direkt alles mitbringt (glaube ich).
Sowas baue ich aber lieber selber

Mal wieder Threads

AW: Mal wieder Threads

Forumregeln