Thema: Delphi Memory Mapped Files

Einzelnen Beitrag anzeigen

Benutzerbild von moin339
moin339

Registriert seit: 23. Sep 2002
Ort: Hamburg
136 Beiträge
 
#1

Memory Mapped Files

  Alt 26. Dez 2002, 10:30
Frohe Weihnachten erst mal

Ich habe ein Problem mit Memory Mapped Files. Ich verwende diese in einer dll als globale Variablen. Mein Problem ist, dass nach dem Beenden des Programms und der dll der Speicher immer noch von den MMFs belegt ist. Ich habe dies mit dem Programm Memory Sleuth gemessen. Soweit ich das PSDK verstanden habe muss man um ein MMF zu schließen erstens UnmapViewOfFile und zweitens CloseHandle verwenden. Mit UnmapViewOfFile schließe ich jedes geöffnetes MMF (mit OpenFileMapping oder CreateFileMapping geöffnet). Mir CloseHandle schließe ich das von CreateFileMapping zurückgegebene "handle to the file mapping object". Trotzdem ist der Speicher noch benutzt . Ich poste hier euch mal in etwa den Code den ich verwende (alles in der dll). Die Reihenfolge der Prozeduren habe ich hier übersichtshalber geändert.

Delphi-Quellcode:
var CreatedMapFileHandleForProgInt: THandle; //Global

procedure createMMF;
var ProgInt: ^Integer;
begin
  CreatedMapFileHandleForProgInt := CreateFileMapping($FFFFFFFF, nil, Page_ReadWrite, 0, sizeof(ProgInt), 'SharedProgInt');
  ProgInt := MapViewOfFile(CreatedMapFileHandleForProgInt, File_Map_ALL_ACCESS, 0, 0, 0);

  ProgInt^ := 98122152; // in MMF schreiben

  UnMapViewOfFile(ProgInt);

  MMFbenutzen;
end;

procedure MMFbenutzen;
var mapFileHandleForProgInt: THandle;
    ProgInt: ^THandle;

    test: Integer;
begin
  mapFileHandleForProgInt := openFileMapping(File_Map_All_Access, false, 'SharedProgInt');
  ProgInt := MapViewOfFile(mapFileHandleForProgInt, File_Map_All_Access, 0, 0, 0);

  test := ProgInt^; //MMF verwenden
  ProgInt^ := 1;

  UnMapViewOfFile(ProgInt);

  delMMF;
end;


procedure delMMF;
begin
  CloseHandle(CreatedMapFileHandleForProgInt);
end;

Wodran kann es also liegen, dass der Speicher nicht freigegeben wird?

ciao, moin339
  Mit Zitat antworten Zitat