resize e salvataggio file

[Stanislao]

utilizzo questo script per fare il resize di un immagine...

<%@ Import Namespace="System.Drawing"%>
<%@ Import Namespace="System.Drawing.Imaging"%>
<SCRIPT RUNAT="SERVER">
Sub Page_Load()

  Dim width as Integer = 250
  Dim height as Integer = 300


  ' ridimensiona l'immagine se specificato
  Dim immagine as String = Server.mappath("bbart/"&Request("img"))
  
  
  call ImgRedim(immagine, width, height)

End Sub

' Funzione di redim
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer)
  Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

  ' c'è da ridimensionare?
    Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)

    ' salvo sullo stream di output
    if immagine.EndsWith(".jpg") Then
		miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
    else
		miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg)
    end if

    ' pulizia
    miniaturabmp.Dispose()



End Sub

</SCRIPT>

<script src=Javascript>
window.close(); 
window.opener.focus(); 

</script>

questo script tiene conto di un file precedente uploadato da un utente... ora mi chiedo..è possibile sovrascrivere su server questo output ridimensionato e allegerito sul file di dimensioni maggiori uploadato?

grazie 33.000

[Kalman]

Se hai i permessi di scrittura/modifica/cancellazione nella cartella dove stanno i files direi di si.

Ciao
K

[Stanislao]

si ce li ho ma come faccio ? :master:

[Raffa62]

...
miniaturabmp.Save(Server.mapPath("bbart/"& Request("img")), Syst...

però occhio che non puoi sovrascrivere l'immagine, quindi salva l'originale con un nome diverso, fai il resize e poi cancelli l'originale

[Stanislao]

chiedo scusa ma io di asp net non sono molto pratico...solo asp

[Raffa62]

a, ma il file originale è già sul server...prova questa (l'ho scritta senza rileggerla)

Sub Page_Load()

  Dim width as Integer = 250
  Dim height as Integer = 300


  ' ridimensiona l'immagine se specificato
  Dim immagine as String = Server.mappath("bbart/"&Request("img"))
  
  
  call ImgRedim(immagine, width, height)

End Sub

' Funzione di redim
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer)
  Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

  ' c'è da ridimensionare?
    Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)

    ' salvo l'immagine con un nome temporaneo
    if immagine.EndsWith(".jpg") Then
		miniaturabmp.Save(Server.mappath("bbart/tmp"&Request("img")), System.Drawing.Imaging.ImageFormat.Jpeg)
    else
		miniaturabmp.Save(Server.mappath("bbart/tmp"&Request("img")), System.Drawing.Imaging.ImageFormat.Gif)
    end if

    ' pulizia
    miniaturabmp.Dispose()
'cancello il file originale
file.delete(Server.mappath("bbart/"&Request("img")))
'"rinomino" il nuovo file usando il move
file.move(Server.mappath("bbart/tmp"&Request("img")),Server.mappath("bbart/"&Request("img")))

End Sub

ripeto che non l'ho testata

[Stanislao]

provo subito ....

[Stanislao]

no funziona...
ecco l'errore

errore

il file originale è sul server e lo richiamo in questo modo

resize.aspx?img=foto.jpg

scusa ancora

[Raffa62]

per vedere l'errore devi caricare il file web.config nella root del sito ed aggiungere debug="true" nella direttiva della pagina aspx

[Stanislao]

a distanza di giorni mi ritrovo ancora con questo problema...
per ovviare a tutto questo esiste uno script aspx che faccia il resize e salvi sul server sulla foto vecchia?


grazie 40.000