Форум: "Начинающим";
Текущий архив: 2009.05.17;
Скачать: [xml.tar.bz2];

Вниз

Опять "Неверный дескриптор"   Найти похожие ветки 

← →
worldmen   (2009-04-04 19:51) [0]

При выполнении этого кода, выводит ошибку : "Неверный дескриптор"
Процедура 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:32) [1]

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

---

← →
Сергей М. ©   (2009-04-04 20:45) [2]

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


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

---

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

Форум: "Начинающим";
Текущий архив: 2009.05.17;
Скачать: [xml.tar.bz2];

Наверх

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