AspImage: ridimensionare e mandare al client senza salvare

**longline** · 25-03-2010, 19:10

Ciao a tutti.
Come da titolo, vorrei mandare al client delle immagini ridimensionate al volo con AspImage, senza doverle per forza salvare la miniatura sul disco.

Ho provato con questo codice:

codice:

<html>
<head>
<title> ASPImage - Resize test </title>
</head>
<body>
<%
Set Image = Server.CreateObject("AspImage.Image")
  Image.LoadImage server.MapPath("/") & "/test/1.jpg"
  Response.Write "[img][/img]
"
  larghezza = Image.MaxX
  altezza = Image.MaxY
  maxaltezza = 100
  maxlarghezza = 200
  rapporto1 = larghezza / maxlarghezza
  rapporto2 = altezza / maxaltezza
  if rapporto1 > rapporto2 then 
    rapporto = rapporto1 
  else 
    rapporto = rapporto2 
  end if
  nuovalarghezza = int(larghezza / rapporto)
  nuovaaltezza = int(altezza / rapporto)
  Image.ResizeR nuovalarghezza,nuovaaltezza
  Response.BinaryWrite Image.Image
Set Image = nothing
%>
</body>
</html>

Quello che ottengo è l'immagine originale, ma dopo invece di vedere l'immagine rimpicciolita vedo una lunga sfilza di caratteri tipo questi:

[...]xZëNÓìo®eñ$V¢mfÂî4G°’N[...]

Dove sbaglio?

p.s.: salvando la miniatura funziona tutto correttamente

**Roby_72** · 25-03-2010, 21:46

togli i tag html

Roby

**longline** · 28-09-2010, 19:20

Uppo questa discussione perché, oltre a ringraziare per il giusto suggerimento, ho un altro problema con lo stesso script: dovrei fare in modo che, in un particolare caso, lo script mi restituisca il percorso e il nome dell'immagine, invece dell'immagine stessa.

codice:

<%
strImgName = "1.jpg"
strImgPath = "db-img"

If blnAspImageOk Then

  Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage server.MapPath("/") & "/" & strImgPath & "/" & strImgName
    larghezza = Image.MaxX
    altezza = Image.MaxY
    maxaltezza = 100
    maxlarghezza = 200
    rapporto1 = larghezza / maxlarghezza
    rapporto2 = altezza / maxaltezza
    if rapporto1 > rapporto2 then 
      rapporto = rapporto1 
    else 
      rapporto = rapporto2 
    end if
    nuovalarghezza = int(larghezza / rapporto)
    nuovaaltezza = int(altezza / rapporto)
    Image.ResizeR nuovalarghezza,nuovaaltezza
    Response.BinaryWrite Image.Image
  Set Image = nothing

Else

  Response.BinaryWrite "/" & strImgPath & "/" & strImgName

End If
%>

Discussione: AspImage: ridimensionare e mandare al client senza salvare

Strumenti discussione

Ricerca discussione

Visualizza

AspImage: ridimensionare e mandare al client senza salvare

Permessi di invio