Nicht genügend Arbeitsspeicher Win XP vs Win 7

[kschit]

Gibt's schon was neues? Habe ähnliche Probleme. Allerdings hab ich einen Teil in eine DLL ausgelagert. Verwende bereits die FastMM neueste Version. Unter Windows XP kein Problem, unter Windows 7 schmiert das Teil ab. Könnte auch an dem blöden Quickreport liegen, dass der zusätzlich noch irgendwelche Speicherleaks hat, die unter Windows 7 zuschlagen. Auf jedenfall würde ich mich sehr freuen, wenn Du Dein Ergebnis hier nochmal posten könntest. Danke!

[hoika]

Hallo,

bei der BDE solltest du explizit Prepare/UnPrepare bei den Queries benutzen (es gab da mal nen Mem-Leak).
Ausserdem explizite Transaktionen (StartTransaction/Commit) benutzen,
und alle x Datensätze /(z.B. alle 1000) ein Commit machen.
Dass das dann nicht in einer Transaktion läuft, tja ...


Heiko

So 4000 ist erreicht

[himitsu]

Wenn ihr dieses in euer Programm einbaut, was zeigt denn dieses jeweils im XP/7 an?

Delphi-Quellcode:

var GMS: TMemoryStatusEx;

GMS.dwLength := SizeOf(TMemoryStatusEx);
GlobalMemoryStatusEx(GMS);
Label1.Caltion := Format('%.2n MB verfügbar', [GMS.ullAvailVirtual / 1048576]);

@Luckie: Hab hier garde nur 2 GB im System verfügbar, also was zeigt denn Folgendes an?

Code:

program Project3;

{$APPTYPE CONSOLE}

uses
  Windows;

//{$SetPeFlags IMAGE_FILE_LARGE_ADDRESS_AWARE}

var
  GMS: TMemoryStatusEx;

begin
  GMS.dwLength := SizeOf(TMemoryStatusEx);
  GlobalMemoryStatusEx(GMS);
  WriteLn('used (system):                ', GMS.dwMemoryLoad, ' %');
  WriteLn;
  WriteLn('physical memory - total:      ', GMS.ullTotalPhys      / 1048576 :4:2, ' MB');
  WriteLn(' (system)        - available: ', GMS.ullAvailPhys      / 1048576 :4:2, ' MB');
  WriteLn;
  WriteLn('page file        - total:      ', GMS.ullTotalPageFile  / 1048576 :4:2, ' MB');
  WriteLn('                 - available: ', GMS.ullAvailPageFile / 1048576 :4:2, ' MB');
  WriteLn;
  WriteLn('virtual memory   - total:      ', GMS.ullTotalVirtual   / 1048576 :4:2, ' MB');
  WriteLn(' (this program) - available: ', GMS.ullAvailVirtual   / 1048576 :4:2, ' MB');
  ReadLn;
end.

PS: Wer mehr als 4 GB in einem Win32-Programm nutzen will, der muß erstmal Large-Address-Aware im System aktiviert haben und sollte sich dann im MSDN mal wie AWE-Funktionen ansehn.

@Mods: Ja, ich hab absichtlich [CODE] verwendet, wehe ihr editiert das ... bitte repariert endlich mal das Delphi-Tag.

[Luckie]

Unter 32-Bit hast du nur einen Adressraum von 4 GB. Davon belegt das Betriebssystem 2 GB. Mir einem Schalter kann man den Adressraum der Anwendung auf 3 GB erhöhen. Davon ist aber abzuraten, da selbst 2 GB für das Betriebssystem schon ziemlich knapp sind.

[Bernhard Geyer]

Zitat von Luckie:

Mir einem Schalter kann man den Adressraum der Anwendung auf 3 GB erhöhen.

Das wirkt aber auch nur bei Anwendungen die per PE-Flag 3GB Adressraum unterstützen.

Zitat von Luckie:

Davon ist aber abzuraten, da selbst 2 GB für das Betriebssystem schon ziemlich knapp sind.

Das Problem sind eher Treiber die oft nicht damit zurecht kommen. Dieser kann dan Problemlos eine BSOD auslösen.

Für 64-Windows kann man Problemlos 32-Bit Apps mit dem 3GB-Flag laufen lassen.