Buona giornata a tutti,
sono alla ricerca di un (forse piccolo) piccolo aiutino per fare un upload di immagini con resize. Non conosco asp net, ma qualche amico proprio qui mi ha consigliato di usarlo perchè meglio di asp.
Cmq, ho trovato un codice che mi sono adattato per fare un semplice upload di immagini:
private sub Upload(sender as object, e as system.eventargs)
Dim sFile as String
Dim sSplit() as string
Dim sFileType as String
Dim sPath as String

sPath = Server.MapPath("\xpr\public\") 'Percorso dove Uploadare l' immagine

'Prelevo il Nome del File
sFile = FileUpload.PostedFile.FileName
sSplit = Split(sFile, "\")
sFile = sSplit(uBound(sSplit))

'Controllo se è un File Immagine
if len(sFile) <> 0 then

sFileType = sFile.Split(".")(1).ToString
sFileType = uCase(sFileType)

'Condizione in cui verifico il tipo di Formato supportato per l' upload
if (sFileType = "GIF") or (sFileType = "JPG") or (sFileType = "JPEG") then
lblmsg.text = "Immagine"
sPath = sPath & "\"
sPath = sPath & sFile
Try
'Carico l' immagine
FileUpload.PostedFile.SaveAs(sPath)
lblmsg.text = "Immagine Caricata Correttamente"

Catch Ex as Exception
'Errore durante il Caricamento
lblmsg.text = "Errore durante l' upload<br>Errore: " & E
il problema che mi piacerebbe fare anche un resize, o prima o dopo il caricamento. E' possibile farlo?
Se qualcuno può aiutarmi, grazie ...

Gianluigi DI BELLA (grande passione per l'informatica)
Grazie, purtroppo avevo già visto l'articolo, ma non sono riuscito ad inserir e il resize nel mio codice.

Ho provato e riprovato, ma nulla.

Gianluigi DI BELLA (grande passione per l'informatica)
270 messaggi dal 17 settembre 2006
gianluigi73 ha scritto:
Buona giornata a tutti,
sono alla ricerca di un (forse piccolo) piccolo aiutino per fare un upload di immagini con resize. Non conosco asp net, ma qualche amico proprio qui mi ha consigliato di usarlo perchè meglio di asp.
Cmq, ho trovato un codice che mi sono adattato per fare un semplice upload di immagini:
private sub Upload(sender as object, e as system.eventargs)
Dim sFile as String
Dim sSplit() as string
Dim sFileType as String
Dim sPath as String

sPath = Server.MapPath("\xpr\public\") 'Percorso dove Uploadare l' immagine

'Prelevo il Nome del File
sFile = FileUpload.PostedFile.FileName
sSplit = Split(sFile, "\")
sFile = sSplit(uBound(sSplit))

'Controllo se è un File Immagine
if len(sFile) <> 0 then

sFileType = sFile.Split(".")(1).ToString
sFileType = uCase(sFileType)

'Condizione in cui verifico il tipo di Formato supportato per l' upload
if (sFileType = "GIF") or (sFileType = "JPG") or (sFileType = "JPEG") then
lblmsg.text = "Immagine"
sPath = sPath & "\"
sPath = sPath & sFile
Try
'Carico l' immagine
FileUpload.PostedFile.SaveAs(sPath)
lblmsg.text = "Immagine Caricata Correttamente"

Catch Ex as Exception
'Errore durante il Caricamento
lblmsg.text = "Errore durante l' upload<br>Errore: " & E
il problema che mi piacerebbe fare anche un resize, o prima o dopo il caricamento. E' possibile farlo?
Se qualcuno può aiutarmi, grazie ...


Puoi provare cosi:

commenti

'Carico l' immagine
          'FileUpload.PostedFile.SaveAs(sPath)


e scrivi

 ResizeAndSave(FileUpload.PostedFile.InputStream, 100, 100, sPath)


Che richiama il metodo

Private Sub ResizeAndSave(imgStr As Stream, Width As Integer, Height As Integer, FileName As String)
        'creo il bitmap dallo stream
        Dim bmpStream As System.Drawing.Image = System.Drawing.Image.FromStream(imgStr)
        'creo un nuovo bitmap ridimensionandolo
        Dim img As New Bitmap(bmpStream, New Size(Width, Height))
        'salvo l'immagine ridimensionata
        img.Save(FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

        Response.Write("fatto!")
    End Sub

Modificato da Gionet il 12 settembre 2011 17.29 -

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.