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
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
OmniThreadLibrary die sowas schon direkt alles mitbringt (glaube ich).
Sowas baue ich aber lieber selber
