Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 PATH-EZFOTO PIC X(256).
PROCEDURE DIVISION.
MAIN SECTION.
MAIN-00.
INVOKE EZVIDCAP1 "CapSingleFrame".
IF "TEXT" OF CmPathFOTO = SPACE GO TO MAIN-99-EXIT.
MOVE "TEXT" OF CMPATHFOTO TO PATH-EZFOTO.
INVOKE EZVIDCAP1 "SaveDIB" USING PATH-EZFOTO.
INVOKE POW-SELF "ThruEvents".
MOVE POW-TRUE TO "Preview" OF EZVIDCAP1.
MOVE "FOTO GRAVADA!" TO "CAPTION" OF CMEMTRATAMENTO.
INVOKE POW-SELF "DEACTIVATE".
MAIN-99-EXIT.
EXIT PROGRAM.
estos codigos son de RUI tal vez te sirva de algo yo tambien uso ese ocx en win 10 me va bien.
tenia problemas con las laptop que tiene camara en un primer instante funciona pero al segundo intento no lo solucione con una rutina que tambien saque del ejemplo de RUI no se si subio el en el foro el ejemplo seria bueno que lo revises.