Текущий архив: 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
