Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.17;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
2-1238783224
Enum
2009-04-03 22:27
2009.05.17
Перехват события


15-1236783730
Empleado
2009-03-11 18:02
2009.05.17
Pointer to records


2-1238668101
Den
2009-04-02 14:28
2009.05.17
Туплю с ini-файлом. Чтение значений


15-1236807005
Юрий
2009-03-12 00:30
2009.05.17
С днем рождения ! 12 марта 2009 четверг


15-1237192980
asafr
2009-03-16 11:43
2009.05.17
2D barcodes