I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Luciano69
Luciano69
il 24 novembre 2008 alle 16:40
21 messaggi dal 13 novembre 2008
Salve

- Carico la foto tramite un FileUpload
- La salvo su disco.
- La carico nel controllo Image (MA LUI NON SI AGGIORNA!!!)



Dim photosPath As String = "~/public/user1.jpg"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.imgPhoto.ImageUrl = photosPath
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myFile As HttpPostedFile = Me.FileUpload1.PostedFile

' Memorizza il file in uno stream.
Dim nFileLen As Integer = myFile.ContentLength
Dim myData() As Byte = New Byte(nFileLen) {}
myFile.InputStream.Read(myData, 0, nFileLen)
Dim ms As New IO.MemoryStream(myData, 0, myData.Length)
Dim myBitmap As New Drawing.Bitmap(ms)

' Salva il file.
myBitmap.Save(photosPath, System.Drawing.Imaging.ImageFormat.Jpeg)
myBitmap.Dispose()

Me.imgPhoto.ImageUrl = photosPath
End Sub


Grazie anticipatamente.
RispondiQuoting
pietro09
pietro09
il 24 novembre 2008 alle 21:09
3.939 messaggi dal 28 gennaio 2003
    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim myFile As HttpPostedFile = Me.FileUpload1.PostedFile

        ' Memorizza il file in uno stream. 
        Dim nFileLen As Integer = myFile.ContentLength
        Dim myData() As Byte = New Byte(nFileLen) {}
        myFile.InputStream.Read(myData, 0, nFileLen)
        Dim ms As New IO.MemoryStream(myData, 0, myData.Length)
        Dim myBitmap As New Drawing.Bitmap(ms)

        ' Salva il file. 
        myBitmap.Save(Me.Server.MapPath(photosPath), System.Drawing.Imaging.ImageFormat.Jpeg)
        myBitmap.Dispose()

        Me.imgPhoto.ImageUrl = photosPath & "?guid=" & Guid.NewGuid.ToString("N")

    End Sub


il file si salva in un percorso fisico, non logico:
Me.Server.MapPath(photosPath)

Per evitare problemi di cache:
Me.imgPhoto.ImageUrl = photosPath & "?guid=" & Guid.NewGuid.ToString("N")
Modificato da pietro09 il 24 novembre 2008 21.11 -
RispondiQuoting
Luciano69
Luciano69
il 25 novembre 2008 alle 15:13
21 messaggi dal 13 novembre 2008
Ti ringrazio vivamente.

Funziona!!!!!!!!!!!!


Ciao.

lgiulio
Modificato da Luciano69 il 25 novembre 2008 14.14 -
RispondiQuoting

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.