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

← →
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]

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

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

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

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