Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Power Cobol ActiveX using with VB6,C++, etc. hbetancur PowerCOBOL (ActiveX, v4 - v11) 1 5 de julio de 2018 16:42
[Sintaxis] Ejecutar programa externo como Administrador Fito PowerCOBOL (ActiveX, v4 - v11) 5 7 de junio de 2018 19:55
[Información] Insertar imagen GIF Javierfrancog PowerCOBOL (ActiveX, v4 - v11) 1 4 de diciembre de 2017 16:03
[Compilador] Ejecutar un programa RM Cobol Matias RM/COBOL 2 14 de julio de 2016 01:54
[Información] Insertar imagen en documento Word Xavier PowerCOBOL (ActiveX, v4 - v11) 7 2 de febrero de 2016 22:15
Respuesta
 
Herramientas

  #11
Antiguo 20 de abril de 2017, 09:08
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad15.10.2019 14:27
PROCEDURE DIVISION
PostsPosts: 1.416
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

FabioYeyo, toma te he creado la DLL para Windows.

Para poder llamarla desde PowerCOBOL tienes hacer como se dice aquí: [Aporte] CALL de cualquier DLL sin *.LIB ni "LoadLibrary" - COBOL Foro

La sintaxis de llamada a esta función será:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  WS-FunctA      PIC X(250).
  3.  01  WS-Format      PIC X(250).
  4.  01  WS-PlainText   PIC X(250).
  5.  01  WS-Key         PIC X(250).
  6.  01  WS-CipherText  PIC X(250).
  7.  01  RESP           PIC S9(9) COMP-5.
  8.  
  9.  01  DES            PIC X(3) VALUE "DES".
  10.  PROCEDURE DIVISION.
  11.      
  12.      CALL DES WITH STDCALL USING WS-FunctA
  13.                                  WS-Format
  14.                                  WS-PlainText
  15.                                  WS-Key
  16.                                  WS-CipherText
  17.                            RETURNING RESP
Archivos Adjuntos
Tipo de Archivo: zip DES.zip (24,4 KB, 1 descargas)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
cobol , obj , object , powercobol , unix


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 19:56.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.