TBitmap Оставляет мусор в памяти

[yan11]

Почему функция CaptureScreenRect ест столько памяти и как правильно освободить Bitmap после выхода из функции ?

Прикрепил скриншот Unexpected Memory Leak

for i := 1 to 500 do
begin

CaptureScreenRect(Rect(0,0,
                0 + 50,
                0 + 50));
end;

function CaptureScreenRect(aRect: TRect): TBitMap;
var
 ScreenDC: HDC;
begin
 Result := TBitMap.Create;
 Result.Width := aRect.Right - aRect.Left;
 Result.Height := aRect.Bottom - aRect.Top;
 ScreenDC := CreateDC(PChar('DISPLAY'), nil, nil, nil);
 try
   SetStretchBltMode(Result.Canvas.Handle, HALFTONE);
   StretchBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, aRect.Left, aRect.Top, Result.Width, Result.Height, SRCCOPY);

//   BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, aRect.Left, aRect.Top, SRCCOPY);
 finally
   ReleaseDC(0, ScreenDC);
 end;
end;

[p51x]

А вы чего хотели - создали 500 битмапов и ниодин не освободили... Free для них кто будет вызывать?

[yan11]

Но как мне его освободить если его возвращает функция ? Мне нужно освобождать внутри функции или как ?

[Аватар]

Функция и возвращает указатель на bitmap. Сохраняй их, например, в массиве. Освобождай когда нужно

[yan11]

Сохранил в массив указатели, но как мне теперь их освободить по указателю ? Dispose видимо что-то не то...

var
mbit: TBitmap;
P: ^TBitmap;
Pointers  : Array[1..100] of Pointer;

---------------

for i := 1 to 10 do
begin

mbit:= CaptureScreenRect(Rect(0,0,
                0 + 50,
                0 + 50));

P:=@mbit;
Pointers[i]:=@mbit;
Memo1.Lines.Add(IntToStr(Integer(Pointers[i])));

end;



for i := 1 to 10 do
begin
//  Dispose(Pointers[i]);
end;

---------------

[Пепел Феникса]

вы не разу не работали с объектами?
не нужны вам указатели.
вообще делайте проще, получили TBitmap, обработали, вызвали Free у него.

[yan11]

Я не пойму как мне освободить TBitmap который возвращает функция CaptureScreenRect.

for i := 1 to 100 do
begin

mbit:=TBitmap.Create;

mbit:= CaptureScreenRect(Rect(0,0,
                0 + 50,
                0 + 50));

mbit.Free;

end;

[Аватар]

var mbit: TBitmap;

mbit:= CaptureScreenRect(Rect(0,0,
                0 + 50,
                0 + 50));
mbit.Free;

mbit:=TBitmap.Create;

это не надо, объект функция создает. А mbit и содержит указатель на созданный битмап

[yan11]

Это гениально