Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Componente] EZVIDC60.ocx (webcam) y Windows 10 (https://www.cobolforo.es/showthread.php?t=661)

Josber 7 de julio de 2017 12:32
EZVIDC60.ocx (webcam) y Windows 10
 
¿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 7 de julio de 2017 15:30
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 7 de julio de 2017 16:40
Código COBOL:
  1. ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  PATH-EZFOTO              PIC X(256).
  5.  PROCEDURE       DIVISION.
  6.  MAIN SECTION.
  7.  MAIN-00.
  8.     INVOKE EZVIDCAP1 "CapSingleFrame".
  9.     IF "TEXT" OF CmPathFOTO = SPACE GO TO MAIN-99-EXIT.
  10.     MOVE "TEXT" OF CMPATHFOTO TO PATH-EZFOTO.
  11.     INVOKE EZVIDCAP1 "SaveDIB" USING PATH-EZFOTO.
  12.     INVOKE POW-SELF "ThruEvents".
  13.     MOVE POW-TRUE TO "Preview" OF EZVIDCAP1.
  14.     MOVE "FOTO GRAVADA!"  TO "CAPTION" OF CMEMTRATAMENTO.
  15.     INVOKE POW-SELF "DEACTIVATE".
  16.  MAIN-99-EXIT.
  17.     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 7 de julio de 2017 20:23
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:

Código COBOL:
  1.  01  ReturnValue            PIC S9(5) COMP-5.
  2.  01  WTEX               PIC X(255) VALUE SPACES.
  3.  01  FECHA.
  4.      03  AA         PIC XXXX.
  5.      03  MM             PIC XX.
  6.      03  DD         PIC XX.
  7.      03  HOR            PIC XX.
  8.      03  MIN            PIC XX.
  9.      03  SEG            PIC XX.
  10.  PROCEDURE       DIVISION.
  11.  
  12.      MOVE FUNCTION CURRENT-DATE TO FECHA.
  13.      MOVE FECHA TO "Text" OF CAMPO30.
  14.  
  15.      COMPUTE TAMA = FUNCTION STORED-CHAR-LENGTH (WRPRO) + 1.
  16.      MOVE WRPRO TO WTEX.
  17.      STRING "Imagenes" DELIMITED BY SIZE INTO WTEX WITH POINTER TAMA.
  18.      STRING FECHA       DELIMITED BY SIZE INTO WTEX WITH POINTER TAMA.
  19.      
  20.      MOVE WTEX TO WTEX-WEBCAM.
  21.  
  22.      INVOKE ezVidcap1 "SaveDIB"
  23.             USING WTEX-WEBCAM
  24.             RETURNING ReturnValue
  25.      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.-


La franja horaria es GMT +2. Ahora son las 04:05.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.