HI,

ich hab jetzt ein Programm geschrieben, dass ein Bild übertragen soll. Jetzt ist mir im Langzeittest aufgefallen, dass das Programm unmengen Arbeitsspeicher braucht. Nach der Komprimierung nach JPEG ist die Speicherübernutzung zwar nicht weg, aber immer noch da. Nach rund 100 Zugriffen beendet sich das Programm wegen Speicherüberlauf. Ich hab schon versucht alle Variablen zu zerstören, aber das hilft nicht.

Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

    Bild := TBitmap.Create;
    MS := TMemoryStream.Create;
    MakeScreenShot(Bild);

    JPEGBild := TJPEGImage.Create;
    JPEGBild.CompressionQuality := 90;
    JPEGBild.Assign(Bild);
    JPEGBild.Compress;

    Bild.Destroy;

    JPEGBild.SaveToStream(MS);
    JPEGBild.Destroy;

    MS.Write('ENDE', 4);
    MS.Position := 0;

    ServerSocket1.Socket.Connections[0].SendStream(MS);

    MS.Clear;
    MS.Destroy;

Wie sich wohl ahnen lässt, ist das ein Schnipsel aus einer ServerSocket1-ClientRead Prozedur.

Bild: TBitmap(lokal);
MS: TMemoryStream(lokal);
JPEGBild: TJPEGImage(lokal);

Vielen Dank im Vorraus für eure Hilfe
rollstuhlfahrer

Rufe mal anstatt Variable.Destroy --> Variable.Free auf.
Bei Destroy wird afaik kein Speicherplatz freigegeben...

Da denkst du falsch, Lars. Free ruft Destroy auf, falls die Variable nicht nil ist.
@rollstuhlfahrer: Dürfen wir auch MakeScreenShot sehen?

Zitat von quendolineDD:

Rufe mal anstatt Variable.Destroy --> Variable.Free auf.
Bei Destroy wird afaik kein Speicherplatz freigegeben...

Doch. Nur bei Destroy wird Speicher freigegeben.

Wie schnell hintereinander rufst du denn den Code auf?

Zitat von quendolineDD:

Rufe mal anstatt Variable.Destroy --> Variable.Free auf.
Bei Destroy wird afaik kein Speicherplatz freigegeben...

doch... nur free überprüft ob das überhaupt notwendig ist (ob die instanz also wirklich existiert) und ruft dann destroy auf.
noch besser ist natürlich FreeAndNil(Klasse), dort wird der Objektzeiger noch zusätzlich auf NIL gestellt.

wie sieht MakeScreenShot aus?

Zitat von quendolineDD:

Bei Destroy wird afaik kein Speicherplatz freigegeben...

Du meinst wohl "afaidk". Destroy gibt den Speicher auch frei. Nur soll man Destroy nicht direkt aufrufen und das schon seit Delphi 1. Das steht so auch in der Hilfedatei. Für die genauen Gründe kann man sich ja mal Allen Bauers (CodeGear) Blog anschauen.

Beim Code fehlen nicht nur die try/finally Blöcke, sondern wird auch unnötig der Stream geleert bevor er freigegeben wird. Das erinnert mich an folgenden Code:

markieren

Delphi-Quellcode:

var
  List: TStringList;
begin
  List := TStringList.Create;
  List.Clear; // Die Liste könnte ja schon nach dem Erzeugen gefüllt sein, man weiß ja nie :-)
  ...
  List.Clear; // Es könnte ja sein, dass der Destruktor nur zur Gaudi vorhanden ist.
  List.Free;
end;

klar dürft ihr makescreenshot sehen. er ist von dsdt.

zusammenfalten · markieren

Delphi-Quellcode:

procedure MakeScreenShot(const ATarget: TBitmap);
var
  DesktopDC: HDC;
begin
  DesktopDC := CreateDC('DISPLAY', nil, nil, nil);
  try
    ATarget.PixelFormat := pfDevice;
    ATarget.Width := Screen.Width;
    ATarget.Height := Screen.Height;
  
    BitBlt(ATarget.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DesktopDC, 0, 0, SRCCOPY);
  finally
    DeleteDC(DesktopDC);
  end;
end;

rollstuhlfahrer

PS: Ich hab jetzt öfter mit dem Fehler: 'Ungültige Zeigeroperation' zu tun

Ich würde einfach mal FastMM reinhängen um zu sehen was der sagt. Evtl. ist ja der Speicherverlust ganz woanders.

Hast du eventuell irgendwo ein Array, dessen größte du andauernd änderst?

mal ne ganz dumme frage: wie installiere ich fastMM?

@quendolineDD: In dem Programm gibt es kein einziges Array.

rollstuhlfahrer