Crear DLL´s en fox
Necesito saber que debo incluir en el fuente para generar un dll y que otros programas puedan utilizar sus funciones
1 Respuesta
Respuesta de marcelocf
1
No tienes que incluir nada en el código fuente.
Si declaras una clase esta debes definirla como OlePublic.
DEFINE CLASS pasarela AS Session OLEPUBLIC
*----------------------------------- * Todo lo que definamos en esta sección, -
* y de esta forma, son las propiedades del objeto. -
*-----------------------------------pn_Propiedad1 && tipo numérica.
pc_Propiedad2 && tipo carácter.
pl_Propiedad3 && tipo lógica.
DIMENSION pa_Propiedad4[1,1] && tipo array.
*
*----------------------------------- * Codificación de los métodos y eventos del objeto. -
*----------------------------------- FUNCTION Init( )
* El evento INIT se produce cuando se crea el objeto.
* Aquí realizamos la codificación correspondiente y
* necesaria.
STORE 0 TO pn_Propiedad1
STORE SPACE( 0 ) TO pc_Propiedad2
STORE .T. TO pl_Propiedad3
STORE SPACE( 0 ) TO pa_Propiedad4
*
RETURN
*
... otros eventos y métodos del objeto...
*
*-------------------------------------------------------
* Creación y codificación de nuestros métodos. -
*-------------------------------------------------------
*
FUNCTION miFuncion( parámetro1, parámetro2, ... )
*
Código de función...
*
RETURN
*
... otras funciones propias...
*
Enddefine
Si declaras una clase esta debes definirla como OlePublic.
DEFINE CLASS pasarela AS Session OLEPUBLIC
*----------------------------------- * Todo lo que definamos en esta sección, -
* y de esta forma, son las propiedades del objeto. -
*-----------------------------------pn_Propiedad1 && tipo numérica.
pc_Propiedad2 && tipo carácter.
pl_Propiedad3 && tipo lógica.
DIMENSION pa_Propiedad4[1,1] && tipo array.
*
*----------------------------------- * Codificación de los métodos y eventos del objeto. -
*----------------------------------- FUNCTION Init( )
* El evento INIT se produce cuando se crea el objeto.
* Aquí realizamos la codificación correspondiente y
* necesaria.
STORE 0 TO pn_Propiedad1
STORE SPACE( 0 ) TO pc_Propiedad2
STORE .T. TO pl_Propiedad3
STORE SPACE( 0 ) TO pa_Propiedad4
*
RETURN
*
... otros eventos y métodos del objeto...
*
*-------------------------------------------------------
* Creación y codificación de nuestros métodos. -
*-------------------------------------------------------
*
FUNCTION miFuncion( parámetro1, parámetro2, ... )
*
Código de función...
*
RETURN
*
... otras funciones propias...
*
Enddefine
