AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Memory Leaks bei Verwendung von System.JSON

Ein Thema von TheSledgeHammer · begonnen am 12. Feb 2020 · letzter Beitrag vom 12. Feb 2020
Antwort Antwort
TheSledgeHammer

Registriert seit: 22. Mai 2019
Ort: Mulfingen
13 Beiträge
 
Delphi 10.3 Rio
 
#1

Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 13:10
Delphi-Version: 10.3 Rio
Hallo Community,

aus aktuellem Anlass mal eine Frage in die Runde bzgl. Memory Leaks verursacht durch Objekte aus der System.JSON.

Da gab es die letzten Jahre ja immer mal wieder Threads zu, auch hier im Forum. So richtig gelöst hat sich das aber nie so wirklich. Aktuell geht's in meinem Fall um Memory Leaks, wie sie im Anhang gezeigt werden. Laut den Meldungen soll irgendwo ein TJSONObject erzeugt worden sein, das wiederum TJSONPair-Objekte enthält und die wiederum TJSONSTring-Objekte. Soweit, so gewöhnlich.

Das Ding ist nur: ich erzeuge im Code 1 TJSONObject und erzeuge zwar TJSONStrings, die aber wiederum an das eine TJSONObject angehängt werden. Am Ende (= Destruktor) wird das eine TJSONObject brav zerstört und damit sollten sich eigentlich auch alle TJSONString-Objekte zerstören. Korrigiert mich bitte, wenn ich da falsch liege.

Offenbar klappt das auch, wenn ich den Code EINmal ausgeführt habe und dann die Anwendung schließe. Dann kommt kein MemLeak-Report. Führe ich den Code ZWEImal hintereinander aus, erhalte ich den Report wie im Anhang "2mal.png" gezeigt, bei einer DREIfachen Ausführung entsprechend dem Anhang "3mal.png". Ich denke, es wird klar, wie das weitergehen wird...

Doch was wird in dem Code genau gemacht? Kurz umrissen ist das ein TWebModule das auf HTTP-Post-Messages reagiert; ein lokaler Webserver also, den man via "http://localhost:3000/Pfad/zum/handler" abfragen kann. Die Abfrage bzw. der Body der Message ist eine JSON-Datei, die von der Struktur her wie folgt aussieht:
{
"selectedDataset": {
"idno": "1532",
"id_db": "1",
"db": "main"
},
"getValues": {
"projekt": "",
"appl": ""
}
}

Diese Datei enthält ein JSONObject, das wiederum aus 2 JSONObjects besteht. In diesen beiden Objekten befinden sich einfache JSONPairs. Das erste Objekt "selectedDataset" ist mal außen vor, worum es hier geht ist das zweite: "getValues". Jedes TJSONPair besteht ja aus dem JsonString und dem JsonValue. Wenn die HTTP-Anfrage zum Webserver kommt, ist der JsonValue immer empty (s.o.). Der Webserver füllt diesen Wert aber entsprechend aus. Und an dieser Stelle kommt der Konstruktor für einen TJSONString ins Spiel:

Delphi-Quellcode:
var
  TmpPair: TJSONPair;
  JsonObjectGetValues: TJSONObject;
// ...
for TmpPair in JsonObjectGetValues do
  TmpPair.JsonValue := CallbackReadFromSelectedDataset(Idno, IdDb, TmpPair.JsonString.Value);
Der Callback macht im Prinzip das hier:
Result := TJSONString.Create('irgendwas');
Wer sich fragt, wo denn das TJSONObject erzeugt wird, der findet die Antwort nachfolgend. Das ist quasi die allererste Zeile im Handler-Ereignis für die POST-Message:
FMainJsonObj := TJSONObject.ParseJSONValue(Request.Content) as TJSONObject;
Das "FMainJsonObj" hängt an dem TWebModul-Derivat als private-Attribut. Dieses Attribut wird im WebModuleDestroy-Ereignis dann wie folgt zerstört:
Delphi-Quellcode:
if FMainJsonObj <> nil then
  FreeAndNil(FMainJsonObj);
Also nur, um es nochmal klar zu fragen: wo kommen diese Memory Leaks her? Mir erschließt sich das überhaupt nicht, wenn man meinen Kenntnisstand voraussetzt, dass durch das Zerstören des Main-JSON-Objekts auch alle TJSONValue-Objekte automatisch zerstört werden. Und ganz besonders irritiert mich, dass das erst ab dem ZWEITEN Aufruf passieren soll.
Miniaturansicht angehängter Grafiken
2mal.png   3mal.png  
Tobias

Geändert von TheSledgeHammer (12. Feb 2020 um 13:12 Uhr)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.120 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 13:30
wenn man meinen Kenntnisstand voraussetzt, dass durch das Zerstören des Main-JSON-Objekts auch alle TJSONValue-Objekte automatisch zerstört werden
Nicht immer. Wird irgendwo an der Owned-Eigenschaft etwas geändert? Ein standardmäßig erzeugter TJsonString hat GetOwned() = True , das sorgt eigentlich dafür dass er von seinem Parent freigegeben wird wenn es selbst endet. Ist das nicht der Fall, wird er auch nicht freigegeben.


Ansonsten solltest du unbedingt FastMM4 in der vollen Version einbauen, der kann dir bei Speicherlecks genau anzeigen wo es erstellt wurde.

Geändert von Der schöne Günther (12. Feb 2020 um 13:33 Uhr)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.120 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 13:43
Die konkrete Antwort ist wahrscheinlich folgende Zeile:

TmpPair.JsonValue := ... Die Implementation von TJsonPair.SetJsonValue(..) sieht nur so aus:

Delphi-Quellcode:
procedure TJSONPair.SetJsonValue(const Val: TJSONValue);
begin
  if Val <> nil then
    FJsonValue := Val;
end;
Heißt: Er biegt einfach nur seine Referenz FJsonValue um. Richtig wäre wahrscheinlich erst zu schauen ob das bisherige FJsonValue.GetOwned() = True hat und dieses dann erst einmal freizugeben. Das tut er nicht, und das alte JsonValue verbleibt als Speicherleck. Zumindest in meinem Delphi 10.0 Seattle.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
35.217 Beiträge
 
Delphi 10.3 Rio
 
#4

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 13:49
Die komplette JSON-Implementation von Delphi ist ein rießiger Graus, wenn es darum geht "selbst" JSON erstellen oder verändern zu wollen. (JSON lesen oder automatisch zu serialisieren und zu deserialisieren ist noch nutzbar)
Da kann man nur empfehlen die Komponenten anderer Hersteller zu nutzen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (12. Feb 2020 um 14:08 Uhr)
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
5.120 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 13:55
Wir kommen leicht vom Thema ab, aber ich glaube ich habe schon schlimmeres gesehen.

Kennst du den TJsonObjectBuilder?
https://www.delphipraxis.net/198874-...-funktion.html

Oder analog von diesem guten Mann hier etwas in der Richtung:
https://github.com/flobernd/delphi-u...Utils.JSON.pas
  Mit Zitat antworten Zitat
TheSledgeHammer

Registriert seit: 22. Mai 2019
Ort: Mulfingen
13 Beiträge
 
Delphi 10.3 Rio
 
#6

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 15:51
Also erstmal vielen Dank für die Posts und Nachfragen.

An der Owned-Eigenschaft ändere ICH nichts, also wenn dann macht das Delphi im Hintergrund glaube ich an der Stelle aber nicht

Dass das Ganze ein Grauß ist, das haben mir andere Kollegen auch schon bestätigt, aber was soll ich sagen: es ist ja eigentlich nichts Großes zu implementieren und extra Komponenten dafür zu installieren, halte ich schon für recht übertrieben. Zumal da es eigentlich im Interesse des Herstellers sein sollte, dass die eigenen System-Komponenten nicht dazu führen, dass Speicherlecks enstehen.

Also zusammengefasst: dass Speicherlecks entstehen ist (leider) normal?!
Tobias
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
7.349 Beiträge
 
Delphi 10.3 Rio
 
#7

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 15:54
Kannst du ein minimales Beispielprojekt anhängen, mit dem du das reproduzieren kannst? Ich finde, hier gibt zur Zeit es noch recht viel Spekulation.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
TheSledgeHammer

Registriert seit: 22. Mai 2019
Ort: Mulfingen
13 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: Memory Leaks bei Verwendung von System.JSON

  Alt 12. Feb 2020, 16:41
Kannst du ein minimales Beispielprojekt anhängen, mit dem du das reproduzieren kannst? Ich finde, hier gibt zur Zeit es noch recht viel Spekulation.
Hab ich versucht, hab ich an sich auch hin bekommen, bloß hat sich damit heraus gestellt, dass nicht das JSON der Übeltäter war, sondern das TWebModule. Aus Gründen, die ich noch untersuchen muss, wird dieses Modul zwei Mal instanziiert (und auch zerstört, das passt also an sich). Warum allerdings zweimal ist herauszufinden.

Fakt ist - und damit erklärt sich der Mem-Leak - dass das geparste Main-JSON-Objekt nur einmal freigegeben wird. D.h. nach EINmal aufrufen ist korrekt zerstört, nach ZWEImal aufrufen bleibt eine Instanz im Speicher usw. Was ich jetzt eben rausfinden muss, ist, wieso das TWebModule sich mehrmals erzeugt. Das ist der eigentliche Fehler.

Wobei ein Kollege von mir das gleiche Phänomen bestätigen kann, der macht allerdings was ganz was anderes mit JSON, da gibt's kein TWebModule oder ähnliches

Daher meine ursprüngliche Vermutung, dass es am JSON liegt -> falsch gedacht, mea culpa
Tobias
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf