有用过TVideoGrabber的没有
答案:1 悬赏:60 手机版
解决时间 2021-03-15 22:11
- 提问者网友：了了无期
- 2021-03-15 05:53
有用过TVideoGrabber的没有
最佳答案
- 五星知识达人网友：笑迎怀羞
- 2021-03-15 06:32
你说的反相的效果吧，试试这个
procedure TForm1.VideoGrabberFrameOverlayUsingDC(Sender: TObject; Dc: HDC; FrameNumber: Cardinal; FrameTime: Int64; FrameId: Integer);
var
TempDc: HDc;
begin
TempDc := CreateCompatibleDc (Dc);
BitBlt (Dc, 0, VideoGrabber.VideoHeight - 50, VideoGrabber.VideoWidth, VideoGrabber.VideoHeight, TempDc, 0, 0, DSTINVERT);
DeleteDc (TempDc);
end;
procedure TForm1.VideoGrabberFrameOverlayUsingDC(Sender: TObject; Dc: HDC; FrameNumber: Cardinal; FrameTime: Int64; FrameId: Integer);
var
TempDc: HDc;
begin
TempDc := CreateCompatibleDc (Dc);
BitBlt (Dc, 0, VideoGrabber.VideoHeight - 50, VideoGrabber.VideoWidth, VideoGrabber.VideoHeight, TempDc, 0, 0, DSTINVERT);
DeleteDc (TempDc);
end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯