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

[s.h.a.r.k]

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.

[Björn Ole]

Was das Senden angeht: keinen Pointer darauf (doppelt gemoppelt), sondern das Objekt selbst: PostMessage(FModuleHandles[i], APM_LOG_MESSAGE, Integer(ClonedMsg), 0);

[hoika]

Hallo,

ausserdem würde ich nicht wParam, sondern lParam benutzen.
Oder ist Word seit neuestem 32Bit gross ?


Heiko

[implementation]

Was sind das für Module? Befinden sie sich in einem eigenen Prozess?
Dann hat der Empfänger evtl. einfach keinen Zugriff auf den Speicherraum des Senders.

[Blup]

Und natürlich auch den Empfang des Objektes anpassen:

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;

PS.
WParam und LParam sind beide jeweils 32Bit.

[himitsu]

Um den Grund nochmal zu nennen:
Du versendest einen Zeiger auf die Variable und nach Beenden der Prozedur ist diese Variable nicht mehr vorhanden.

PS: Ein Objektzeiger ist, wie der Name vermuten läßt, intern auch "nur" ein Zeiger, weswegen man ihn auch direkt casten kann.

[rollstuhlfahrer]

Versuche es mal mit SendMessage. Da damit die Ausführung direkt durchgeführt wird, sind die lokalen Variablen der aufrufenden Funktion noch vorhanden. Bei PostMessage sind diese meist schon wieder aufgeräumt, da du .Free aufrufst, bevor die Nachricht überhaupt ankam.

Bernhard

[jfheins]

Zitat von s.h.a.r.k:

Delphi-Quellcode:

...
  finally
    OriginalMsg.Free();...

... also als wäre es freigegeben worden. Aber das geschieht nirgends! Ich habe das mind. 5 mal geprüft.

*rofl* An der Stelle musste ich echt lachen

Mit records würde das funktionieren, ansonsten darfst du das Objekt nicht freigaben wenn du es noch verwenden willst! Bist du nen GC gewohnt?

@himi: Wenn man ein Objekt erzeugt, sollte das aber doch eigentlich auf dem Heap geschehen, also sollte das eigentliche Objekt (sofern man es nicht freigibt) doch auch nach der Funktion vorhanden sein, oder?

@hoika: Beide Parameter sind 32 bit groß. Trotz des Namens

[himitsu]

Zitat von jfheins:

@himi: Wenn man ein Objekt erzeugt, sollte das aber doch eigentlich auf dem Heap geschehen, also sollte das eigentliche Objekt (sofern man es nicht freigibt) doch auch nach der Funktion vorhanden sein, oder?

Das Objekt ja, aber die lokale Variable, worin der Objektzeiger abgelegt wurde und worauf der übergebene Zeiger zeigt, die wird natürlich spätestens zum Prozedurende weg sein.

[Bummi]

@jfheins

Zitat:

*rofl* An der Stelle musste ich echt lachen

wieso, er erzeugt doch einen Clone
ClonedMsg := TApLogMessage.Create(Source);