K
Kendo
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用海康的卡开发DVR的简易部分,在开视频窗后进行Preview,但视频总是飘在
外面,无论打开任何东西都被视频覆盖,如何解决这个问题,请各位大侠帮。
代码如下:
function TForm1.StartVideo:integer;
var
VideoRect: TRect;
begin
OpenChannel;
if ChannelHandle<>$FFFFFFFF then
begin
VideoRect := Panel1.ClientRect;
InflateRect(VideoRect, -1, -1);
StartVideoPreview(ChannelHandle,Panel1.Handle,
@VideoRect,False,vdfRGB16,25);
end;
Result :=0;
end;
//启动视频预览
function StartVideoPreview(ChannelHandle: THandle;
WHandle: HWND;
Rect: PRect;
bOverlay: Boolean;
VideoFormat: VideoOutFormat;
FrameRate: integer):integer;stdcall;
外面,无论打开任何东西都被视频覆盖,如何解决这个问题,请各位大侠帮。
代码如下:
function TForm1.StartVideo:integer;
var
VideoRect: TRect;
begin
OpenChannel;
if ChannelHandle<>$FFFFFFFF then
begin
VideoRect := Panel1.ClientRect;
InflateRect(VideoRect, -1, -1);
StartVideoPreview(ChannelHandle,Panel1.Handle,
@VideoRect,False,vdfRGB16,25);
end;
Result :=0;
end;
//启动视频预览
function StartVideoPreview(ChannelHandle: THandle;
WHandle: HWND;
Rect: PRect;
bOverlay: Boolean;
VideoFormat: VideoOutFormat;
FrameRate: integer):integer;stdcall;