FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dialogo de otra dll
Posts: 145
Joined: Wed Nov 03, 2010 09:16 AM
Dialogo de otra dll
Posted: Thu Apr 16, 2015 07:31 AM

Hola buenos dias.
¿Cómo puedo cargar un recurso (dialogo) desde diferentes dlls?
Normalmente tengo una dll de donde saco todas las dialogos, pero quisiera distribuirlas en dos o mas. ¿Se puede hacer?
Un saludo

Paco García
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Dialogo de otra dll
Posted: Thu Apr 16, 2015 10:02 AM
Paco, esto lo tengo hace mucho, espero te sirva

Code (fw): Select all Collapse
 For x = 1 to Len( aADlls )
     cDll      := Alltrim(aADlls[x])+".DLL"
     aADlls[x] := Alltrim(aADlls[x])+".DLL"
     if !empty( cDll )
        if x = 1 
           cDll0 := cDll
        endif
        AADD( aHDlls , SetResources(cDll) )
     else
        AAdd( aHDlls , 0 )
     endif
 Next x
 if !empty( cDll0 )
    nHDll := SetResources(cDll0)
 endif
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 145
Joined: Wed Nov 03, 2010 09:16 AM
Re: Dialogo de otra dll
Posted: Thu Apr 16, 2015 03:07 PM

Ok, voy a probarlo.
Muchas gracias.

Paco García
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Dialogo de otra dll
Posted: Mon Apr 20, 2015 08:08 PM
Otra manera
Code (fw): Select all Collapse
// ---------------------
INIT PROCEDURE Inicio()
   SET RESOURCES TO "principal.dll"
   ...
////

// Donde deseo Llamar otra dll

   nOldRes:= GetResources()
   
   SetResources( "OtroRC.dll" )
   
   ...

   // recupero dll principal
   SetResources( nOldRes )
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 145
Joined: Wed Nov 03, 2010 09:16 AM
Re: Dialogo de otra dll
Posted: Mon May 11, 2015 11:18 AM

Muchas gracias. ;)

Paco García

Continue the discussion