[Componente] EZVIDC60.ocx (webcam) y Windows 10

[Josber]

¿Alguien ha utilizado éste ocx en Windows 10?, está perfectamente registrada, sin errores, pero a la hora de grabar la imagen, me da el error:

DIB File not saved

Está programado exactamente igual que en Windows 7, y ahí si que funciona sin problemas.

Muchas gracias.-

[Rapinto]

Josber,
Estou a usar o OCX em Windows 10 e funciona bem.
O Windows 10 não deixa gravar ficheiros em algumas localizações ( gravar em C:\ dá erro).

Verifica o Path do ficheiro a gravar ( Faz display).
Un saludo,

Rui Pinto

[Roger]

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.

[Josber]

Rui, no lo grabo en C:, sino en 'C:\Tiras y Cordones\Imágenes\nonbre_de_archivo....".

La librería está registrada como Administrador sin problemas, pero no hay manera, sin embargo el status-code que me devuelve es 0, (cero), el código que uso es el siguiente:

 01  ReturnValue            PIC S9(5) COMP-5.
 01  WTEX               PIC X(255) VALUE SPACES.
 01  FECHA.
     03  AA         PIC XXXX.
     03  MM             PIC XX.
     03  DD         PIC XX.
     03  HOR            PIC XX.
     03  MIN            PIC XX.
     03  SEG            PIC XX.
 PROCEDURE       DIVISION.
 
     MOVE FUNCTION CURRENT-DATE TO FECHA.
     MOVE FECHA TO "Text" OF CAMPO30.
 
     COMPUTE TAMA = FUNCTION STORED-CHAR-LENGTH (WRPRO) + 1.
     MOVE WRPRO TO WTEX.
     STRING "Imagenes" DELIMITED BY SIZE INTO WTEX WITH POINTER TAMA.
     STRING FECHA       DELIMITED BY SIZE INTO WTEX WITH POINTER TAMA.
     
     MOVE WTEX TO WTEX-WEBCAM.
 
     INVOKE ezVidcap1 "SaveDIB"
            USING WTEX-WEBCAM
            RETURNING ReturnValue
     END-INVOKE.

Es un programa hecho en PWC9, creado como una dll, para poder usarlo en distintos sitios.

Un saludo y gracias.-

---------- Post añadido : 20:23 ---------- Post anterior : 19:24 ----------

¡¡¡ JOERRRR QUE BURROOOOOOO SOYYYYY !!!, me acabo de dar cuenta que j¡he creado el directorio con un acento y en el programa es sin acento, es que es para caparme.

En fin, ya funciona perfectamente, gracias a todos y perdón por las molestias.

Ub saludo.-