Einzelnen Beitrag anzeigen

Benutzerbild von Desmulator
Desmulator

Registriert seit: 3. Mai 2007
Ort: Bonn
169 Beiträge
 
#1

Parameter Übergabe bei CreateThread

  Alt 21. Feb 2009, 09:56
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.
Lars
There are 10 kinds of people in the world:
those who get binary, and those who don’t.
  Mit Zitat antworten Zitat