Hola Juan
Utilizo el ezVidC60.ocx primero lo registro incrusto en el programa el ocx
puedes poner en un boton este codigo:
Código COBOL:
WORKING-STORAGE SECTION.
01 RETURNVALUE PIC S9(9) COMP-5.
01 foto.
02 RUTA PIC X(50) VALUE "D:\FOTOS\0001.bmp".
PROCEDURE DIVISION.
INVOKE EZVIDCAP1 "SaveDIB" USING FOTO INVOKE EZVIDCAP1 "CaptureEnd" RETURNING ReturnValue.
images son solo en .bmp
Funciona en modo de ejecución, mas no en programa.