topic-38929

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Librerias linkadas
Posted: Thu May 07, 2020 10:08 PM

Amigos.
Existe alguna function que en tiempo de ejecución devuelva array con las librerías linkadas?
Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Librerias linkadas
Posted: Thu May 07, 2020 10:17 PM

Así ves todos los nombres de funciones y classes que tienes enlazados en el EXE

Code (fw): Select all Collapse

function Main()

   local n
   
   for n = __DynsCount() to 1 step -1
      if __DynsIsFun( n )
         ? n,  __DynsGetName( n )
      endif      
   next      

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Librerias linkadas
Posted: Fri May 08, 2020 03:13 PM

Antonio.

Gracias por tu atención. Lo pruebo y comento.

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Librerias linkadas
Posted: Fri May 08, 2020 05:31 PM

Antonio.

Tu código funciona bien. Obtengo los nombres de todas las funciones enlazadas.

Partiendo de eso, se me vino la idea de crear una funcion Dummy dentro de uno de los prgs componentes de la libreria.lib y asi puedo identificar si uso, o no, esa libreria.

Code (fw): Select all Collapse

function FuncLink()
   local n, aData:={}
   
   for n = __DynsCount() to 1 step -1
      if __DynsIsFun( n )
        ** ? n,  __DynsGetName( n )
         aadd( aData,{ __DynsIsFun( n ), __DynsGetName( n ) } )
      endif      
   next      
   xBrowse(aData)
return nil

Muchas gracias.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion