Problema Con DLL en ASP

[ildelian]

Buenos dias.

Tengo que agregar a mi ASP una función que comprima los anexos que se suben al FTP de la misma.
Para ello hago uso de las DLL Zip32.dll y UnZip.dll mediante otra DLL de ActivX que he desarrollado con VB6 y añadida y registrada en el servidor mediante un método COM.

El problema es que, en el ASP, creo el objeto, llamo a la función que comprime los anexos, pero no hace nada, ni comprime ni pinta en el log ni nada de nada.

Pongo el código para que se pueda ver:

1º El código de la DLL intermedia ActiveX

Código vb:

Public Sub Comprimir(FichEntrada)
 
On Error GoTo Errores
Dim Resultado As Long
Dim FuncionesZip As ZIPUSERFUNCTIONS
Dim OpcionesZip As ZPOPT
Dim NombresFicherosZip As ZIPnames
 
'*********************************'
Open App.Path & "\Log.txt" For Input As #1
 
Dim Linea As String
Print #1, Now & "-_-" & "El fichero de entrada es: " & FichEntrada
 
'*********************************'
 
FuncionesZip.DLLComment = DevolverDireccionMemoria(AddressOf FuncionParaProcesarComentarios)
FuncionesZip.DLLPassword = DevolverDireccionMemoria(AddressOf FuncionParaProcesarPassword)
FuncionesZip.DLLPrnt = DevolverDireccionMemoria(AddressOf FuncionParaProcesarMensajes)
FuncionesZip.DLLService = DevolverDireccionMemoria(AddressOf FuncionParaProcesarServicios)
 
NombresFicherosZip.s(0) = FichEntrada
 
Resultado = ZpInit(FuncionesZip)
Resultado = ZpSetOptions(OpcionesZip)
Resultado = ZpArchive(0, FichEntrada & ".Zip", NombresFicherosZip)
 
Print #1, Now & "-_-" & "Se ha producido el error Nº: " & Err.Number
Print #1, Now & "-_-" & "Se ha producido el error descripcion: " & Err.Description
 
Close #1
Exit Sub
Errores:
Close #1
End Sub
 

2º El codigo del ASP que llama a dicha función de la DLL que comprime:

Código ASP:

Set AGZIP = Server.CreateObject("AGZIP.Class1")
CALL AGZIP.Comprimir (Ruta & NombreFichero)
NombreFichero = NombreFichero & ".zip"
Set AGZIP = Nothing
 

Gracias de Antemano.

[Myakire]

Creo ya te había recomendado esto mismo: Quita el en Error y ve qué ocurre

[ildelian]

Iniciado por Myakire

Creo ya te había recomendado esto mismo: Quita el en Error y ve qué ocurre

No tengo ningun 'On Error resume Next', de echo, si la DLL da algun error si que salta por pantalla (Ejemplo si no puede abrir el fichero de log) y si hay errores de ASP tambien me saltan por pantalla.

El problema es que, parecer que si todo va bien no hace nada (rarisim, si hay error peta, pero si va bien no hace nada), no se si me explico.

[Myakire]

Por On Error me refería a la línea 3 (On Error GoTo Errores), no tanto a un resume next.

Pero ok, en el caso de que sea como dices, yo probaría esa DLL en otro programa, puede ser en otro ASP o en Delphi o en cualquier otro entorno de desarrollo. En casos como el tuyo es muy difícil asesorar si no hay más información o algo con lo cual poder reproducir el fallo.

Saludos

[ildelian]

Hola. Pues le he puesto que me pinte los errores tal que:

Public Sub Comprimir(FichEntrada)

Código:

On Error GoTo Errores
Dim Resultado As Long
Dim FuncionesZip As ZIPUSERFUNCTIONS
Dim OpcionesZip As ZPOPT
Dim NombresFicherosZip As ZIPnames

'*********************************'
Open App.Path & "\Log.txt" For Append As #1

Dim Linea As String
Print #1, Now & "-_-" & "El fichero de entrada es: " & FichEntrada

'*********************************'

FuncionesZip.DLLComment = DevolverDireccionMemoria(AddressOf FuncionParaProcesarComentarios)
FuncionesZip.DLLPassword = DevolverDireccionMemoria(AddressOf FuncionParaProcesarPassword)
FuncionesZip.DLLPrnt = DevolverDireccionMemoria(AddressOf FuncionParaProcesarMensajes)
FuncionesZip.DLLService = DevolverDireccionMemoria(AddressOf FuncionParaProcesarServicios)

NombresFicherosZip.s(0) = FichEntrada

Resultado = ZpInit(FuncionesZip)
Resultado = ZpSetOptions(OpcionesZip)
Resultado = ZpArchive(0, FichEntrada & ".Zip", NombresFicherosZip)

Print #1, Now & "-_-" & "Se ha producido el error Nº: " & Err.Number
Print #1, Now & "-_-" & "Se ha producido el error descripcion: " & Err.Description
Print #1, Now & "-_-" & "El resultado es: " & Resultado

Close #1
Exit Sub
Errores:
Close #1
Response.Write "<h1>Se ha prodocido un error</h1>"
Response.Write "<b><font color='red'>" & FichEntrada & "</font></b>"
Response.Write "<b><font color='red'>" & Err.Number & "</font></b>"
Response.Write "<b><font color='red'>" & Err.Description & "</font></b>"
End Sub

Tras resolver un par de ellos que daba me sale de la funcion con el codigo de error 0 (sin errores) pero no me comprime nada de nada.

[Myakire]

Y esa DLL realmente funciona? cómo lo haz comprobado?

Yo ese problema lo resolvería de tres formas, la primera es la que realizaste es decir, hacer una DLL en un lenguaje X y utilizarla en ASP, pero claro que esa DLL debe de funcionar y debo tener el código fuente para lanzar mensajes de error o de estado, además hay que darle permisos al usuario IUSR sobre esa DLL.
El segundo sería similar al manipuleo de imágenes, como sabes ASP clásico es un lenguaje ya sin soporte por lo que existió hasta la fecha en que lo abandonaron es lo que hay y tiene muchas carencias frente a otros como PHP o .NET, pero la ventaja es que desde ASP puedes utilizar a estos otros lenguajes, si quieres comprimir imágenes, pues haces un script .NET que lo haga, lo llamas desde ASP y listo, lo mismo con esto; si buscas hay muchos códigos para comprimir desde .NET:

http://www.ms-news.net/f1125/comprim...t-6944319.html
http://blogdesarrollo.com/codigo/200...zip-en-aspnet/

y la tercera es ejecutando un compatador desde la linea de comando mediante WScript.Shell, información en esta liga.

Si quieres que hagamos funcionar la parte de la DLL necesitaría que me dijeras qué hace y cómo lo hace esa DLL, es decir, ocupo ver si código. Por que si tuvieras problemas de otro tipo, como que no esta registrada o permisos, te marcaría error definitivamente.

Saludos