Gelöst: Screenshot (JPG) frisst Speicher

[petermännchen]

Code: Alles auswählen

procedure CreateScreenShot(AWinControl: TWinControl; AFileName: String);
var
  JPEG: TJPEGImage;
begin
  if not directoryexists(extractfiledir(AFilename)) then
    createdir(extractfiledir(AFilename));
    JPEG := TJPEGImage.Create;
    JPEG.Assign(_FSMAin.GetFormImage);
    JPEG.SaveToFile(AFileName);
    JPEG.clear;
    JPEG.Free;
end;

Hallo beisammen:
also mit clear wird ungefähr ein Drittel des Speichers wiederfreigegebn. Der Rest ist weg.
Passiert unter Windows. Free hat keine Auswirkungen auf den Speicher!

Was mache ich da falsch?

VIelen Dank

Peter

[theo]

Wenn du dir die Mühe machen würdest zu schauen was in der Funktion GetFormImage passiert, kämst du selber drauf.

[petermännchen]

Wenn du dir die Mühe machen würdest zu schauen was in der Funktion GetFormImage passiert, kämst du selber drauf.

OK, kannst du mir helfen, wo ich diese Info finde?

Mir war immer so, dass wenn ich eine Komponente frei gebe, dann auch alle gebundenen Resourcen. Muss also noch etwas anderes passieren oder?

Danke dir

Gruß

Peter

[theo]

OK, kannst du mir helfen, wo ich diese Info finde?

Du weisst das wirklich nicht oder?
Dann lernst du jetzt gleich was für's Leben

Setze den Eingabecursor auf das Wort "GetFormImage".
Dann rufe das Kontextmenu (Rechtsklick) auf und wähle "Deklaration suchen".
Dann hüpft er auf die Deklaration. Von dort aus drücke Shift+Ctrl+Down und so kommst du auf die Implementation.
Mit Shift+Ctrl+Up wieder auf die Deklaration.

Erleuchtend, nicht wahr?

[carli]

Von dort aus drücke Shift+Ctrl+Down und so kommst du auf die Implementation.
Mit Shift+Ctrl+Up wieder auf die Deklaration.

Hey cool! so was hab ich schon immer mal gebraucht.

[petermännchen]

Ich komm nicht drauf

Ich seh was passiert. Aber wie bekomme ich nun den Speicher wieder frei?

Wenn ich's recht verstehe:
Ich bekomme eine Kopie vom Bitmap (aktueller Screen). Die Kopie wird von mir wieder freigegeben. Das Original bleibt?

Vielen Dank übrigens für den Tip

Gruß

Peter

[theo]

Ich bekomme eine Kopie vom Bitmap (aktueller Screen). Die Kopie wird von mir wieder freigegeben. Das Original bleibt?

Afaics wird In der Funktion ein Bitmap erstellt, welches von dir freigegeben werden müsste.
Also:

var Bmp:TBitmap;
...
Bmp:=_FSMAin.GetFormImage;
JPEG.Assign(Bmp);
Bmp.free;

[am2]

Ich komm nicht drauf

Ich seh was passiert. Aber wie bekomme ich nun den Speicher wieder frei?

Wenn ich's recht verstehe:
Ich bekomme eine Kopie vom Bitmap (aktueller Screen). Die Kopie wird von mir wieder freigegeben. Das Original bleibt?

Vielen Dank übrigens für den Tip

Gruß

Peter

Nein, ohne, dass ich das nachvollzogen habe: Du fertigst eine Kopie von etwas an, das eigens für Dich erzeugt und Dir übergeben wurde.

Also bildlich: Du sagst jemandem, er soll für Dich ein Dokument anfertigen.
Dieser tut das und gibt es Dir und geht weg.
Du kopierst es und läßt dann das extra für Dich erstellte Dokument zu Boden fallen.

Wenn ich die Postings richtig verstanden habe, müßtest Du das Create und das Assign weglassen und stattdessen irgend etwas schreiben, wie
MyJPeg:=_FSMAin.GetFormImage;
und bei MyJPeg.Free wird dann, wie erwartet, das eigens für Dich angelegte vernichtet.

Aber das ist wirklich nur aus den Postings abgeleitet, die ich vielleicht völlig falsch verstanden habe.

[theo]

MyJPeg:=_FSMAin.GetFormImage;

Fast, nur dass die Fkt. halt kein TJPEGImage sonder ein TBitmap created.
So wie ich oben geschreiben habe müsste es klappen.

[Socke]

Fast, nur dass die Fkt. halt kein TJPEGImage sonder ein TBitmap created.
So wie ich oben geschreiben habe müsste es klappen.

Dann könnte man jetzt nur noch darüber streiten, ob JPEG eine geeignete Komprimierung für Zeichnungen wie Bildschirmfenster darstellt. PNG bietet ebenfalls eine gute Komprimierung ohne jegliche Artefakte.

[carli]

Fast, nur dass die Fkt. halt kein TJPEGImage sonder ein TBitmap created.
So wie ich oben geschreiben habe müsste es klappen.

Dann könnte man jetzt nur noch darüber streiten, ob JPEG eine geeignete Komprimierung für Zeichnungen wie Bildschirmfenster darstellt. PNG bietet ebenfalls eine gute Komprimierung ohne jegliche Artefakte.

Im RAM werden übrigens weder JPEG noch PNG verwendet, sondern die Pixel entpackt, damit man damit arbeiten kann. Das Grafikformat ist nur von Relevanz, falls man das Bild abspeichert.

[Socke]

Im RAM werden übrigens weder JPEG noch PNG verwendet, sondern die Pixel entpackt, damit man damit arbeiten kann. Das Grafikformat ist nur von Relevanz, falls man das Bild abspeichert.

Ja schon, aber im ersten Post habe ich auch ein SaveToFile() entdeckt.

[petermännchen]

Hallop Theo,

du hast recht. Deine Lösung funktioniert
Vielen Dank dafür!

Im Nachhinein betrachtet war es logisch. Ich kam trotzdem nicht drauf.

Gruß
Peter

[Bauer321]

daszu möchte ich nochmal anmerken, das das ganze bei mir nicht geklappt jat zumindestens nicht bei jpg wenn ich das ganze mit png mache bekomme ich eine speicherersparnis von 200kb was dann dich schon einige prozente sind wenn man bedenkt das die datei vorher 500kb groß war