Скачать: CL | DM;

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

← →
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 надо освобождать, и вообще надо взять за правило , что все что насоздавал сам , сам и рушишь

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c