Em varios posts verifiquei que a maioria esta encontrando dificuldades em como resolver.. e meio chato de explicar... mas se resume basicamente assim..
1 - tera que ser instalando uma api chamada videocapdemosetup.exe
2 - depois de ter realizado a instalacao devera procurar a dll ( d2kwut60.dll ) e jogar o arquivo na pasta c:/oracle/oradev/bin
3 - criar no forms um campo tipo ocx e link com a classe videocap control object
4 - esse comando abaixo e pra executar a webcam
declare
numero number;
height number;
width number;
begin
COMMIT_FORM;
set_block_property('pessoas', default_where, 'id_pessoa ='||:pessoas.id_pessoa);
go_block('pessoas');
execute_query;
if get_item_property('controle.activex_control1117',visible) = 'FALSE' then
set_item_property('controle.activex_control1117',visible,property_true);
go_block('controle');
:parameter.p_camera :=:item('controle.activex_control1117').interface;
numero := videocap_dvideocap.ole_Start(:parameter.p_camera);
end if;
if get_item_property('pessoas.foto_camera',visible) = 'TRUE' then
set_item_property('pessoas.foto_camera',visible,property_false);
end if;
end;
declare
salva number;
begin
select caminho||'\'||:pessoas.id_pessoa||'.jpg'
into :pessoas.foto
from usrpop.por_diretorio;
--:pessoas.foto := 'C:\'||:pessoas.id_pessoa||'.jpg';
salva:= VIDEOCAP_DVideoCap.SnapShotJPEG (:parameter.p_camera, :pessoas.foto ,'90');
VIDEOCAP_DVideoCap.Stop(:parameter.p_camera);
READ_IMAGE_FILE(:pessoas.foto,'JPG','pessoas.foto_camera');
if get_item_property('pessoas.foto_camera',visible) = 'FALSE' then
set_item_property('pessoas.foto_camera',visible,property_true);
end if;
if get_item_property('controle.ACTIVEX_CONTROL1117',visible) = 'TRUE' then
set_item_property('controle.ACTIVEX_CONTROL1117',visible,property_false);
end if;
commit_form;
go_block('pessoas');
execute_query;
set_block_property('PESSOAS', default_where, '');
commit;
end;
Bem pessoal, quem tiver duvidas ainda em resolver o problema eu passo o forms como exemplo..