Cobol Foro
Página 2 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Obtener una ruta en Red (https://www.cobolforo.es/showthread.php?t=92)

Rapinto 12 de abril de 2015 15:19
Roger,

Desculpa-me mas então não entendo o que pretendes.

No post acima, enviei a rotina para obter o nome da máquina local.
(GetComputerName)
Em seguida, entendi que poderias querer o caminho a partir do qual executaste o EXE.
(ocx para obter Caminho completo do EXE em execução).

Não entendo o que pretendes fazer.

Cuidado com o "path" OF CmFolder1. Esta instrução dá-te "Default PATH" e não o caminho do Executável.
Isto é, se mudares o "path" of cmfolder1 em run-time para outro caminho, deixas de saber qual o caminho do executável.

Saludos,
Rui

Roger 12 de abril de 2015 15:42
Rui
Si en cmfolder tengo que tener cuidado con el path , esta ruta lo tomo al iniciar el proyecto en el opened y lo envio a un archivo .

Josber eso es lo que buscaba el nombre del equipo "GetComputerNameA" estoy simplificando tus codigos creo con eso ya tengo armado la ruta red.
:apl:

Roger 1 de mayo de 2015 03:33
Josber
Cuando pego tus codigos a un boton
Código COBOL:
  1. 01 PATH-ARCHIVO PIC X(400).
  2.  01 RUTA PIC X(400).
  3. * ---- VARIABLE PARA EL NOMBRE DEL ORDENADOR
  4. *
  5.  01  RESULT             PIC S9(009) COMP-5 IS GLOBAL EXTERNAL.
  6.  01  COMPUTERNAME       PIC X(032)         IS GLOBAL EXTERNAL.
  7.  01  COMPNAME           PIC X(032)     VALUE SPACE.
  8.  01  LENCOMPNAME            PIC S9(009) COMP-5.
  9. *
  10. *
  11.  01  POW-PCMLIST            OBJECT REFERENCE POW-CLISTITEM.
  12.  01  WK-IDX             PIC S9(9) COMP-5 VALUE 0.
  13. *
  14. *
  15.  01  HWINDOW            PIC S9(009)     COMP-5 VALUE ZERO.
  16.  01  FOLDER             PIC S9(009)     COMP-5 VALUE 38.
  17. *
  18.  01  WDSPTITLE          PIC X(040).
  19.  01  WNULL          PIC X(001)  VALUE LOW-VALUES.
  20. *
  21.  01  PIDL           PIC S9(009)     COMP-5 VALUE ZERO.
  22.  01  PSZPATH            PIC X(512)  VALUE SPACE.
  23.  01  SELFOLDER          PIC X(512)  VALUE SPACE.
  24.  PROCEDURE DIVISION.
  25. *
  26. * ----- * SACAMOS EL NOMBRE DEL ORDENADOR
  27. *
  28.        MOVE 32 TO LENCOMPNAME.
  29. *   
  30.        CALL "GetComputerNameA" WITH STDCALL LINKAGE 
  31.             USING
  32.                BY REFERENCE COMPNAME
  33.            BY REFERENCE LENCOMPNAME
  34.             RETURNING RESULT
  35.        END-CALL.
  36.     
  37.      INSPECT COMPNAME REPLACING ALL LOW-VALUES BY SPACE.
  38.        CANCEL "GetComputerNameA".

me bota error LNK2001:unresolved external symbol _GETCOMPUTERNAMEA@8
Funciones exe:Fatal error LNK 1120: 1 unresolved externals

inserte en el proyecto advapi32.lib ¿Cual es el problema? :perdon:

Josber 1 de mayo de 2015 09:35
Creo que te falta poner la opción ALPHAL(WORD)

Un saludo

Roger 1 de mayo de 2015 16:38
Josber
He revisado tu form y no encuentro donde esta ALPHAL(WORD) serias tan amable de "desasnar" a este usuario.:)

Rapinto 1 de mayo de 2015 19:41
1 Archivos Adjunto(s)
Roger,

Ve a imagem anexa.

Saludos,
Rui

Roger 1 de mayo de 2015 22:40
Rui y Josber
Cada dia me ilustro mas estaba recontra escondido era lo que faltaba.

Añadido despues de 20 horas 36 minutos
Rui
Al final despues de tanto trastear en una red local logre que sea automatico el envio de la ruta y fue con el ocx de rui :hi:


La franja horaria es GMT +2. Ahora son las 17:05.
Página 2 de 2 1 2
Mostrar 40 mensajes desde este tema en una página

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