aspimage e resize

[tizyjayd]

ciao a tutti, volevo fare un ridimensionamento di alcune immagini una volta che queste vengono uploadate sul mio sito.

ho trovato questo script

' Dimensiono le variabili
Dim myImg, w, h, maxw, maxh, myw, myh

' Imposto i valori massimi delle dimensioni della nuova immagine
maxw = 200 ' Larghezza massima
maxh = 100 ' Altezza massima

' Creo l'oggetto
Set MyImg = Server.CreateObject("AspImage.Image")

' Carico l'immagine originale (da ridimensionare)
' specificando il giusto percorso
MyImg.LoadImage server.MapPath("/pics") & "/" & filenameNEW & ""

' Recupero le dimensioni originali dell'immagine caricata
w = MyImg.MaxX
h = MyImg.MaxY

' Faccio un po' di calcoli per individuare il rapporto da utilizzare
' nel processo di miniaturizzazione
if (w/maxw) > (h/maxh) then 
  k = w/maxw 
else 
  k = h/maxh 
end if

' definisco la nuove dimensioni dell'immagine
myw = CInt(w/k) ' Larghezza miniatura
myh = CInt(h/k) ' Altezza miniatura

' Utilizzo il metodo resizer specificando larghezza e altezza
MyImg.ResizeR myw, myh

' Salviamo il tutto indicando il percorso fisico ed il nome del nuovo file
myImg.FileName = server.MapPath("/pics/thumb") & "/T_" & filenameNEW & ""


if myImg.SavemyImg then

  Response.Write ""

else
  ' se si è verificato un errore nel salvataggio dell'immagine 
  ' stampo a video il relativo messaggio
  Response.Write "Si è verificato un errore!"
end if


' Faccio pulizia
Set MyImg = nothing

ma come risultato mi da

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'SavemyImg'

/pics/upload.asp, line 185

che problema è ? aspimage è installato...

grazie a tutti.

[Roby_72]

Il metodo che hai usato non esiste. Controlla la guida relativa alla tua versione.

Roby

[tizyjayd]

ciao e grazie per la risposta

adesso mi hanno installato la nuova versione (questo hosting è fantastico, ma non farò il nome)

adesso mi crea il file con il nome giusto, nel posto giusto,ma di dimensioni 0 byte..

ho controllato il discorso del ridimensionamento e me lo fa corretto, cioè mi crea un file di 200x31 (su una immagine di 1651x254) ma di dimensione 0.
(avevo pensato che forse mi sbagliava il ridimensionamento e me lo faceva di 0x0). invece l'immagine è di 200x31 e 0byte (anche se non riesco a capire come sia possibile.

da cosa può essere dovuto ?

il nuovo codice

<%

' Dimensiono le variabili
Dim myImg, w, h, maxw, maxh, myw, myh

' Imposto i valori massimi delle dimensioni della nuova immagine
maxw = 200 ' Larghezza massima
maxh = 100 ' Altezza massima

' Creo l'oggetto
Set MyImg = Server.CreateObject("AspImage.Image")

' Carico l'immagine originale (da ridimensionare)
' specificando il giusto percorso
MyImg.LoadImage server.MapPath("/pics") & "/" & filenameNEW & ""

' Recupero le dimensioni originali dell'immagine caricata
w = MyImg.MaxX
h = MyImg.MaxY

' Faccio un po' di calcoli per individuare il rapporto da utilizzare
' nel processo di miniaturizzazione
if (w/maxw) > (h/maxh) then 
  k = w/maxw 
else 
  k = h/maxh 
end if

' definisco la nuove dimensioni dell'immagine
myw = CInt(w/k) ' Larghezza miniatura
myh = CInt(h/k) ' Altezza miniatura

' Utilizzo il metodo resizer specificando larghezza e altezza
MyImg.ResizeR myw, myh

' Salviamo il tutto indicando il percorso fisico ed il nome del nuovo file
myImg.FileName = server.MapPath("/pics/thumb") & "/T_" & filenameNEW & ""

myimg.saveimage

if myImg.SaveImage then

  Response.Write ""

else
  ' se si è verificato un errore nel salvataggio dell'immagine 
  ' stampo a video il relativo messaggio
  Response.Write "Si è verificato un errore!"
end if


' Faccio pulizia
Set MyImg = nothing

[tizyjayd]

faccio un rapido up perchè non riesco a venirne a capo.