Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/01/2008, 16:49
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 8 meses
Puntos: 88
Re: Crear un DLL para incluirlo en Codigo ASP

sera algo asi???

Abrimos un proyecto nuevo, seleccionamos un "EXE ActiveX"
en la pantalla podemos utilizar algo similar a esto como contenido de prueba
Código:
'------------------------------------------------------------------------------
Option Explicit

Public Function Saludo() As String
    Saludo = "Hola desde la DLL Prueba"
End Function

Public Function Suma(ByVal n1 As Double, ByVal n2 As Double) As Double
    Suma = n1 + n2
End Function
bien, eso seria un contenido simple

En el explorador de objetos(normalmente en la parte derecha superior, si es que no hemos movido nuestra forma visual), hay que recordar cambiar los nombres predeterminados tanto del proyecto como de la clase que se anexa automaticamente

esto debido a que en el uso, no recordamos (que se llaman "proyecto1" y "Class1") los nombres que tendra nuestro modulo...

Ahora, ya una ves que nosotros guardamos el proyecto y renombrado la clase, podemos proceder a generar nuestra DLL, para esto:
Cita:
Menu Archivo
"Generar Proyecto1.Dll" <---- cambiara dependiendo del nombre de su proyecto
despues les pregunta, en que directorio desean guardarlo, una ves seleccionado todo listo....

Siguiente paso, una ves terminada la compilacion de nuestro DLL, procederemos a realizar la copia a nuestro directorio WEB, y tambien al registro de la misma de la siguiente forma:

Cita:
Regsvr32 [/u] [/s] <nombre del fichero>
Por ejemplo:
REGSVR32 c:\windows\system\Dao350.dll
Los parámetros opcionales [/u] [/s] significan lo siguiente:
[/u] - lo utilizamos cuando queremos "desregistrar" una DLL (o un .ocx en vez de registrarlo).
[/s] - modo "silencioso" - no despliega los mensajes durante la operación.
ya realizado este segundo procedimiento, las pruebas de uso


Describamos como llamaremos los procedimientos

primero:
creamos el objeto que contendra la clase
Cita:
set Funciones = server.CreateObject("Proyecto.clase")
Funciones <-- variable que contendra las funciones
proyecto <---nombre que le dieron a su proyecto
clase <-- La Clase que deseas usar

segundo: parametrizacion del entorno
segun el ejemplo arriba escrito debemos enviar 2 variables, para realizar la operacion de suma, he aqui un ejemplo

Cita:
A=5
B=10
resultado = Funciones.Suma(A, B)
response.Write "Suma: " & resultado
esto resulta interesante una ves que recuerdas como se utilizan tus programas.....

bueno solo fue una simple guia, despues anexare un DLL de encriptacion sencilla nada fuera de otro mundo, pero de algo nos ha de servir

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra

Última edición por Shiryu_Libra; 24/01/2008 a las 11:33 Razón: edicion de esta parte: resultado = Funciones.Suma(A, B) As Double no lleva lo ultimo