Подскажите , где грабли ! Пожалуйста

← →
Polluks © (2002-12-20 13:48) [0]

Этот код работает на таймере и спустя 125 циклов валится ошибка недостаточно памяти.
var
bmp: TBitmap;
jpgImg: TJPEGImage;
begin
bmp := TBitmap.Create;
try
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Clipboard.Assign(bmp);
finally
bmp.Free;
end;
Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
jpgImg := TJPEGImage.Create;
jpgImg.Assign(Image1.Picture.Bitmap);
jpgImg.SaveToFile(‘c:\screen+".jpg");
end;

← →
Digitman © (2002-12-20 13:55) [1]

На пара граблей ты уж точно наступаешь)

1. Нет ReleaseDC() после GetDC()
2. Нет jpgImg.Free после jpgImg := TJPEGImage.Create;

← →
Polluks © (2002-12-20 15:03) [2]

Спасибо брателло.

← →
Diamond Cat © (2002-12-21 14:20) [3]

да вобщем и tbitmap надо освобождать, и вообще надо взять за правило , что все что насоздавал сам , сам и рушишь

ой звиняй битмап ты освобождаешь

Подскажите , где грабли ! Пожалуйста Найти похожие ветки