Parameter Übergabe bei CreateThread

[Desmulator]

Guten Morgen,

nachdem ich mir gestern die ganze Nacht um die Ohren geschlagen habe um dieses Problem zu lösen, dachte ich, da frag ich mal euch. Das Problem ist folgendes, der Parameter, der an eine ThreadProc übergeben wird ist bei mir nil, obwohl ich ihn gesetzt habe. Das der Speicher aufgeräumt wurde, kann nicht sein, da ich vorher welchen über GetMem reserviert habe und diesen erst wieder im gestarteten Thread freigebe. Weite Details in Quellcode:

Delphi-Quellcode:

{ Threadstarter. }
procedure TBaseSoundNotify.RegisterNotifyEvent(Proc : TBaseSoundNotifyProcedure; Position : Cardinal);
var
  NotifyDesc : TBaseSoundNotification;
  NotifyDescPtr : PBaseSoundNotification;
  ThreadID : Cardinal;
begin
  // Ich fülle einen Record mit Werten. Es geht auch alles wunderbar.
  NotifyDesc.Position := Position;
  NotifyDesc.Proc := Proc;
  NotifyDesc.EventHandle := CreateEvent(nil, false, false, nil);
  NotifyDesc.Buffer := self.Buffer;

  // Ich reserviere in NotifyDescPtr genug Speicher um NotifyDesc rein zu schieben.
  GetMem(NotifyDescPtr, SizeOf(TBaseSoundNotification));
  // Was ich dann letzendlich auch mache.
  Move(NotifyDesc, NotifyDescPtr^, SizeOf(TBaseSoundNotification));

// WriteLn(Cardinal(NotifyDescPtr));

  // Nun übergebe ich den Pointer NotifyDescPtr an die CreateThread Funktion.
  CreateThread(nil, 0, @EventThread, NotifyDescPtr, 0, ThreadID);
  // Laut MSDN müsste dieser nun dan die ThreadFunktion als einziger Parameter übergeben werden.

  WaitForInputIdle(self.NotifyThreads[High(self.NotifyThreads)], Windows.INFINITE);
end;

{ Threadfunktion. }
procedure TBaseSoundNotify.EventThread(NotificationPtr : Pointer); stdcall;
var
  Notification : TBaseSoundNotification;
begin
  // NotificationPtr sollte auf ein Record vom Type TBaseSoundNotification zeigen. 
  Notification := PBaseSoundNotification(NotificationPtr^)^;
  // Hier wird der Speicher erst wieder freigegeben.
  FreeMem(NotificationPtr, SizeOf(TBaseSoundNotification));
  
  ... // Schleife mit Events und so... bis dahin kommt er ja garnicht^^

end;

Ich bin ratlos. Vorallem weil NotificationPtr in EventTherad nil ist.
Ich hoffe ihr könnt mir helfen. Was mir grade noch einfällt. Als ich oben in RegisterNotifyEvent noch ein WriteLn(Cardinal(NotifyDescPtr)) stehen hatte, wurde der richtige Pointer übergeben und nicht nil.

[Mr_G]

Mir fallen da zwei Sachen auf:
1) Du benutzt CreateThread. Ich meine gelesen zu haben man solle besser mit BeginThread arbeiten.
2) Deine ThreadProc ist eine Methode. Das könnte die Probleme evtl. auslösen. Schau dazu einfach mal in diesem Thread nach. Da wird zum einen eine Lösung geboten und zum anderen erklärt wo das Problem liegt (afaik wird bei Methoden noch eine Referenz auf Self übergeben...).

[Desmulator]

Okay, Fehler gefunden. Auf dem Stack werden ja die Parameter der Funktion übergeben. Allerdings hat der Compiler den ersten Stack Eintrag als Referenz des Objektes interpretiert. Dadurch wurde der erste Funktionparameter, der zweite auf dem Stack. Dieser ist nil und somit kamm es zu dem Fehler. CreateThread oder BeginThread: Ich finde beide machen das selber und ich sehe keine direkten Vorteile gegenüber CreateThread.

[Luckie]

Der Unterschied ist der, das BeginThread die globale Variable IsMultithreaded auf True setzt und so den Heap threadsicher macht. Deswegen sollte man BeginThread nehmen.