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)