Problema Com Aspjpeg

[Gnomo]

e aí galera..

to com um problema que não consigo resolver

e não encontro nenhuma solucao para este problema.

seguinte..

tenho um upload usando o componente persists upload..

ele faz o upload todo certo e tal.. so que eu inseri um codigo

com o componente AspJpeg para limitar o upload para imagens

com o tamanho 67x67px so que ele faz o upload sem verificar

se é maior que 67x67px... segue o codigo:

Dim Uploader
Set Uploader = New FileUploader

If Uploader.Form("aco") = "inserir" Then
    Dim rstAvatar, rstAvatarRel, rstAdmin, strNome, lngadm, intCont, intNumCampos, FOXM_PASTA_AVATAR_VIRTUAL, FOXM_PASTA_AVATAR_FISICO
    Set rstAvatar = Server.CreateObject("ADODB.Recordset")
    Set rstAdmin = Server.CreateObject("ADODB.Recordset")
    Set rstAvatarRel = Server.CreateObject("ADODB.Recordset")
    'SET File = Uploader.Files(1)
    Set Jpeg = Server.CreateObject("Persits.Jpeg")
    FOXM_PASTA_AVATAR_VIRTUAL = "img/avatar/"
    FOXM_PASTA_AVATAR_FISICO = "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar"

    If Uploader.Form("adm") = "" Or Not isNumeric(Uploader.Form("adm")) Then lngadm = 0 Else lngadm = Uploader.Form("adm")
        strNome = "imagem" & intCont
        If Uploader.Files.Exists(strNome) Then
            rstAvatar.Open "Avatar", conn, adOpenKeyset, adLockOptimistic, adCmdTable
            rstAvatarRel.Open "AvatarRelacionamentos", conn, adOpenKeyset, adLockOptimistic, adCmdTable
            rstAvatar.AddNew()
            rstAvatar("AdminCodigo") = lngadm
            rstAvatar("Descricao") = Uploader.Form("desc" & intCont)
            rstAvatar("Tamanho") = Uploader.Files(strNome).FileSize()
            rstAvatar("Tamanho") = Uploader.Files(strNome).FileSize()
            rstAvatar.Update()
            lngAvatarCodigo = rstAvatar("Codigo")
            rstAvatar.Close()

            rstAvatar.Open "SELECT * FROM Avatar WHERE Codigo = " & lngAvatarCodigo, conn, adOpenKeyset, adLockOptimistic
            strNomeArquivo = rstAvatar("Codigo") & Mid(Uploader.Files(strNome).FileName, InStrRev(Uploader.Files(strNome).FileName, "."))
            rstAvatar("URL") = FOXM_PASTA_AVATAR_VIRTUAL & strNomeArquivo
            Uploader.Files(strNome).FileName = strNomeArquivo
            Uploader.Files(strNome).SaveToDisk FOXM_PASTA_AVATAR_FISICO
            rstAvatar.Update()
            rstAvatarRel.AddNew()
            rstAvatarRel("Avatar") = rstAvatar("Codigo")
            rstAvatarRel("AdminCodigo") = lngadm
            rstAvatarRel.Update()
            rstAvatarRel.Close()
            rstAvatar.Close()
        End If
        Set Jpeg = Server.CreateObject("Persits.Jpeg")
        Jpeg.Open "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo
            largura = Jpeg.OriginalWidth
            altura = Jpeg.OriginalHeight
            if largura <> 67 And altura <> 67 then
        
        Set rstRemover = Server.CreateObject("ADODB.Recordset")
        rstRemover.Open "SELECT * FROM Avatar WHERE Codigo=" & lngAvatarCodigo, conn
        If Not rstRemover.EOF Then
            If rstRemover("URL") <> "" Then DelArquivo(rstRemover("URL"))
        End If
        rstRemover.Close()
        conn.Execute("DELETE FROM Avatar WHERE Codigo=" & lngAvatarCodigo & ";")
        Set rstRemover = Nothing

        response.write("<script>alert('A imagem que você inseriu é  maior que 67x67 pixels!'); { window.close(); }</SCRIPT>")
            else
                Jpeg.Save "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo
                end if
        Jpeg.close

            rstAdmin.Open "SELECT Avatar FROM Administradores WHERE Codigo = " & lngadm, conn, adOpenKeyset, adLockOptimistic
            rstAdmin("Avatar") = lngAvatarCodigo
            rstAdmin.Update()
            rstAdmin.Close()

    Set rstAvatar = Nothing
    Set rstAvatarRel = Nothing
    Set rstAdmin = Nothing

Response.End
End If

alguém sabe o porque disso?

Desde já Agradeço.

[dark0]

cara

não tenho a solução pra você.

Mas eu tentaria antes .. descobrir onde está o problema.

A Começar assim:

- Limparia o codigo .. rodava só o codigo do ASPJPEG .. e testaria se a função que verifica os pixels está funcionando.

Depois .. com uma resposta para essa pergunta em mãos.. daria pra ir direto no ponto onde não funciona.

acho que ficaria mais facil de saber onde se encontra o problema.. afina agora .. você tem a parte de upload . .e a parte de verificação ..

MAs qual dos dois não esta funcionando ..?

Tendeu?

Primeiro vê isso.. e depois posta aí

Abraço

[Gnomo]

e aí darko..

é o seguinte.. o codigo esta funcionando..

não aparece erro nenhum.. tinha um erro

aparecendo antes.. mais já consertei..

o erro era porque o valor de Jpeg.Open tava errado

ele não tava encontrando a imagem para fazer

a verificaçao... so que agora não aparece nada

so faz o upload mais não roda o codigo do aspjpeg...

e agora o que eu faço?! to quase desisitindo disso

aeoihahoieioaeoiahoieae vlw..

Desde já agradeço

[Henderson]

Ó, eu não sei muito bem porque nunca usei esse componente

Mas pelo que vi, você verifica o tamanho da imagem nessa linha:

if largura <> 67 And altura <> 67 then

Só que do jeito que está ele verifica se a altura é DIFERENTE de 67 e se a altura é DIFERENTE de 67 E você quer que verifique se é maior né? Então tem que ser assim:

if largura > 67 And altura > 67 then

Eu não sei se só isso resolve o seu problema, porque mesmo estando com o código desse jeito, ele não deveria nem estar fazendo o upload da imagem.

Mas teste aí, vê no que dá.

[Gnomo]

e aí.. po fiz o que o dark0 indicou.. sobre executar

os codigos separadamente.. o AspJpeg Funcionou tranquilo...

Aqui esta:

imagem maior que 67x67pixels:

http://www.foxmdesigner.com.br/admin3/jpeg.asp?img=10

imagem menor que 67x67pixels:

http://www.foxmdesigner.com.br/admin3/jpeg.asp?img=8

Codigo que usei:

<%
dim strNomeArquivo, rstAvatar

        Set Jpeg = Server.CreateObject("Persits.Jpeg")
        Set rstAvatar = Server.CreateObject("ADODB.Recordset")

rstAvatar.Open "SELECT * FROM Avatar WHERE Codigo = " & Request("img") & ";", conn, adOpenKeyset, adLockOptimistic
    If rstAvatar.EOF Then 
    response.write("Não existe imagem com esse codigo")
    Else
          strNomeArquivo = rstAvatar("NomeArquivo")
End If
rstAvatar.Close()

        Jpeg.Open "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo
            largura = Jpeg.OriginalWidth
            altura = Jpeg.OriginalHeight
            if largura <> 67 And altura <> 67 then
        response.write("<BODY><IMG SRC=""img/avatar/" & strNomeArquivo & """ BORDER=0><BR><FONT FACE=VERDANA SIZE=2 COLOR=RED><B>A imagem é  maior que 67x67 pixels!</FONT></BODY>")
            else
                Jpeg.Save "d:\Inetpub\Domains\foxmdesigner.com.br\www\admin3\img\avatar\" & strNomeArquivo
        response.write("<BODY><IMG SRC=""img/avatar/" & strNomeArquivo & """ BORDER=0><BR><FONT FACE=VERDANA SIZE=2 COLOR=RED><B>A imagem é menor que 67x67 pixels!</FONT></BODY>")
                end if
        Jpeg.close
%>

E agora.. o que pode ser? Os dois codigos estao funcionando tranquilo...

Não intendo porque quando junto os dois (upload e aspjpeg) o asp jpeg

não verifica as dimensões da imagem...

Desde já agradeço!