| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Опять "Неверный дескриптор" [D7, XP]

worldmen ©   (2009-04-04 19:51:00) 

При выполнении этого кода, выводит ошибку : "Неверный дескриптор"
Процедура tmTimer выполняется по таймеру.


procedure TForm1.tmTimer(Sender: TObject);
Var
 bmp : TBitmap;
Begin
...
 PrintScreen(x, y, w, h, bmp);
...

bmp.Free;
End;

procedure TForm1.PrintScreen(x,y,w,h: integer; var bmp : TBitmap);
Begin    
 try
   bmp := TBitmap.Create;
   Bmp.PixelFormat := pf16Bit;
   bmp.Width := w; //Screen.Width;
   bmp.Height:= h;
   StretchBlt(bmp.Canvas.Handle,0,0, w,h, GetDC(0),x,y, w,h, SRCCOPY);
 except
   on E: Exception do  Writeln(FLog,TimeToStr(Now)+ E.Message);
 end;
End;


---

Сергей М.   (2009-04-04 20:45:00) [1]

> При выполнении этого кода, выводит ошибку


И чего ?
Ну выводит себе и выводит.
Что, и опять отладчик молчит ?

---

Тын-Дын   (2009-04-04 20:32:00) [2]

А уничтожать за собой объекты разве не нужно?

---

Наверх