Einzelnen Beitrag anzeigen

Benutzerbild von s.h.a.r.k
s.h.a.r.k

Registriert seit: 26. Mai 2004
3.159 Beiträge
 
#1

PostMessage: Objekte "verschicken" führt zu Access Violation

  Alt 4. Mär 2011, 02:41
Gute Nacht,

ich steh gerade glaub übelst auf dem Schlauch und hoffe, dass ihr mir helfen könnt. Hintergrund: Ich schreibe gerade eine Logging-Klases in der eine Add-Methode ein Objekt erzeugt, also die Message die geloggt werden soll. Via PostMessage schicke ich dann die Referenz auf das Objekt an verschiedene Module. Hier mal der Auszug, der das Erzeugen und Versenden beinhaltet:
Delphi-Quellcode:
procedure TApLog.Add(const AMessage: String; const ACategory: TApLogCategory);
var
  OriginalMsg : TApLogMessage;
begin
  OriginalMsg := TApLogMessage.Create(AMessage, ACategory);
  try
    SendToModules(OriginalMsg);
  finally
    OriginalMsg.Free();
  end;
end;

procedure TApLog.SendToModules(Source: TApLogMessage);
var
  i : Integer;
  ClonedMsg : TApLogMessage;
begin
  // Clone and send message to each module
  for i := 0 to FModuleHandles.Count - 1 do
  begin
    ClonedMsg := TApLogMessage.Create(Source);
    PostMessage(FModuleHandles[i], APM_LOG_MESSAGE, Integer(@ClonedMsg), 0);
  end;
end;
So, nun zum Empfängercode -- hier wird der Pointer dereferenziert (also das "Objekt") in eine Queue gespeichert:
Delphi-Quellcode:
procedure TApLogCustomModule.APMRecieveMessage(var Msg: TMessage);
var
  p : ^TApLogMessage;
begin
  try
    p := Pointer(Msg.WParam);
    FMessageQueue.Enqueue(p^);
    while (Cardinal(FMessageQueue.Count) > FMaxBufferElements) do
      FMessageQueue.Dequeue().Free();
  finally
    Msg.Result := 1;
  end;
end;
Der Pointer wird korrekt verschickt und stellt somit nicht das Problem dar. Allerdings erhalte ich eine Zugriffsverletztung, wenn die Enqueue()-Methode aufgerufen wird. Zudem habe ich mit der Überwachung festgestellt, dass sicher hinter p kein TApLogMessage verbirgt, also als wäre es freigegeben worden. Aber das geschieht nirgends! Ich habe das mind. 5 mal geprüft.

Nun drängt sich mir die Frage auf: Wird Speicher vom Delphi-Speichermanager überschrieben, wenn keine Referenz mehr darauf exisitert? So weit ich weiß, ist das aber doch nicht der Fall?! Anders kann ich mir aber nicht erklären, warum ich sonst die Zugriffsverletztung erhalte.

PS: Nein, ich werde und will kein SendMessage verwenden.
»Remember, the future maintainer is the person you should be writing code for, not the compiler.« (Nick Hodges)
  Mit Zitat antworten Zitat