DSPACK - Componente para capturar WebCam - Dúvida
Bom dia, amigos
com base no Demo("PlayVideoCap") exemplo que veio no componente DsPack2.3.4 acrescentei um botão para salvar o caminho da imagem em .bmp direto para meu banco de dados, que ficou muito bom, o componente é ótimo, porém, gostaria que ao iniciar o form, ao invés de ter que selecionar o Driver da WebCam com um TmainMenu, queria iniciar direto no onshow, o primeiro item do TmainMenu, assim ficaria mais dinâmico, já que não acredito que o usuário tenha mais de uma WebCam fincada na máquina !!!!
Alguém pode me ajudar ?
com base no Demo("PlayVideoCap") exemplo que veio no componente DsPack2.3.4 acrescentei um botão para salvar o caminho da imagem em .bmp direto para meu banco de dados, que ficou muito bom, o componente é ótimo, porém, gostaria que ao iniciar o form, ao invés de ter que selecionar o Driver da WebCam com um TmainMenu, queria iniciar direto no onshow, o primeiro item do TmainMenu, assim ficaria mais dinâmico, já que não acredito que o usuário tenha mais de uma WebCam fincada na máquina !!!!
Alguém pode me ajudar ?
Mauro Monteiro
Curtidas 0
Respostas
Mauro Monteiro
24/09/2014
Depois de olhar bem o código, encontrei uma solução :
coloquei um button no form e joguei o mesmo código do OnSelectDevice:
procedure TVideoForm.Button1Click(Sender: TObject);
begin
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(TMenuItem(Sender).tag);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
end;
aí no OnShow do form coloquei Button2.Click e tirei a visibilidade, deu certo !!!!
coloquei um button no form e joguei o mesmo código do OnSelectDevice:
procedure TVideoForm.Button1Click(Sender: TObject);
begin
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(TMenuItem(Sender).tag);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
end;
aí no OnShow do form coloquei Button2.Click e tirei a visibilidade, deu certo !!!!
GOSTEI 0