Crear una DLL ActiveX partiendo de mi codigo ASP

[JuanRAPerez]

Bueno antes que nada está es una pequeña guía para hacerlo, la encontré por ahí y pues pensé en que quizás pueda ser usada por algunas personas

que porque no la puse en las FAQ ¿?, pues pretendo poner mas funciones y cosas hasta tener terminada una DLL que.

+ se conecte a una base de datos
+ pagine resultados
+ use un CSS para verse "decente" la tabla
+ entre otras ideas



Iniciando la DLL en Visual Basic:
EDITO: Microsoft Visual Basic 6.0
+ Nuevo proyecto
+ Seleccionamos "DLL ActiveX"


+ Una vez creado el proyecto le damos clic derecho a “Proyecto”, seleccionamos “Propiedades de proyecto”.


+ Una vez entramos al las propiedades le cambiamos nombre a “ForosDelWebDLL”.

+ Damos clic a “Aceptar”

+ Luego seleccionamos “class1”, y cambiamos el nombre y colocamos de nombre “funciones”.


+ Luego Menú “Proyecto” opción “Referencias”,

++ Adicionamos
+++ Microsoft Active Server Pages Object Library
+++ Microsoft Active Server Pages Object Context Object Library


+++ COM+ 1.0 Admin Type Library
+++ COM+ Services Type Library


+++ Microsoft ActiveX Data Objects 2.8 Library
+++ Microsoft ActiveX Data Objects Recordset 2.8 Library


+ Damos clic en “aceptar”.
+ Creamos en c:\ un directorio llamado MIDLLASP (con el fin de hacer la prueba completa de este ejemplo) - c:\ MIDLLASP
+ Guardamos en ese directorio nuestro Proyecto y Clase
Pegamos en nuestra Clase llamada Funciones el siguiente código:

NOTA IMPORANTE: favor tomar en cuenta que algunos saltos de línea son provocados por el programa que utilizo para la redacción.

Código asp:

Option Explicit
 
Private ScriptingContext As ScriptingContext
Private Application As Application
Private Request As Request
Private Response As Response
Private Server As Server
Private Session As Session
 
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
     Set ScriptingContext = PassedScriptingContext
     Set Application = ScriptingContext.Application
     Set Request = ScriptingContext.Request
     Set Response = ScriptingContext.Response
     Set Server = ScriptingContext.Server
     Set Session = ScriptingContext.Session
End Sub
 
Public Sub OnEndPage()
     Set ScriptingContext = Nothing
     Set Application = Nothing
     Set Request = Nothing
     Set Response = Nothing
     Set Server = Nothing
     Set Session = Nothing
End Sub
 
Public Sub Mensaje(Texto As String)
     Response.Write "<b><font color='red'>" & Texto & "</font></b>"
End Sub
 

+ Guardamos el proyecto una vez más.
+ Clic derecho al “Proyecto”, Clic a la opción “Publicar”, y luego seleccionamos “Generar resultados…”


+ Si los pasos se han hecho como se ha explicado en este proceso (guardando antes de generar, en el fólder que indicamos se ha creado la DLL correspondiente a este proyecto)


+ Si no esta en el fólder puede ser por 1 sola razón no guardaron antes de “generar el resultado”



Cargando la DLL

Antes que nada un par de aclaraciones.

Hay que registrar la DLL, una vez que la DLL esta registrada, cada vez que deseemos actualizar la DLL tenemos que reemplazar la DLL, cuando la DLL se ha utilizado una vez (se ha probado en el web), da error a la hora de reemplazar asi que lo que yo hice para poder estar seguro que se estaba reemplazando es lo siguiente

+ Detener el servicios de publicación WWW
+ Des registramos la DLL
+ Eliminar la DLL en el directorio que la instale
+ Copiamos la DLL
+ Registramos la DLL
+ Iniciar el servicio de publicación WWW

Basados en mi maquina (Windows XP realice el siguiente proceso)
Cree un directorio dentro del “wwwroot” llamado “PruebaDLL”, dentro de el copiamos creamos otro llamado “DLL”.

En mi directorio MiDLLASP cree un BAT para evitar estar haciendo este proceso a cada rato y así hacerlo un poco más dinámico.

NOTA: al registrar la DLL el bat enviara un mensaje de que se ha registrado correctamente.

registrar.bat

@echo off
echo Deteniendo IIS
C:\Windows\System32\net stop w3svc
echo .
del C:\Inetpub\wwwroot\PruebaDLL\ForosDelWebDLL.dll
echo Eliminado DLL
echo .
copy "C:\MIDLLASP\ForosDelWebDLL.dll" "C:\Inetpub\wwwroot\PruebaDLL\DLL"
echo Copiando DLL
echo .
C:\Windows\System32\regsvr32 C:\Inetpub\wwwroot\PruebaDLL\DLL\ForosDelWebDLL.dl l
echo Registrado DLL
echo .
C:\Windows\System32\net start w3svc
echo Iniciando IIS
echo .

Creando el ASP para mostrar el contenido de la DLL
+ Abrimos nuestro programa para diseño de Paginas Web y pegamos el siguiente código. (yo usare Notepad++
+ Guardamos la página en c:\inetpub\PruebaDLL\default.asp.

default.asp

Código asp:

<html>
<head>
    <title>Mi DLL ASP</title>
</head>
<body>
    <&#37;
    Dim PobarMiDLL
    On Error Resume Next
        Set PobarMiDLL = Server.CreateObject("ForosDelWebDLL.funciones")
    If Err <> 0 then
        response.write "<h2>Error cargando DLL</h2>"
        response.end
    else
        PobarMiDLL.Mensaje "Este sera el mensaje que se imprimira" 
        Set PobarMiDLL = Nothing
    End If
    %> 
</body>
</html>
 

+ Muestro navegador nos mostrara esto:


Regresando al código nuestro sub utilizado es el siguiente:

Código asp:

Public Sub Mensaje(Texto As String)
     Response.Write "<b><font color='red'>" & Texto & "</font></b>"
End Sub
 

En el cual vemos como se imprime el texto enviado al sub, en color rojo y negrito.

Espero que a alguien le sea de ayuda:

Enlace del recurso original:
http://www.elguruprogramador.com.ar/...ar-con-asp.htm


suerte

EDITO:

para esta guía Microsoft Visual Basic 6.0 :)