ciao,
ho creato un'applicazione che permettere di "uploadare" delle immagini, cioè di scegliere un immagine dal proprio pc per poterla visualizzare in internet, queste vengono poi salvate ovviamente sul server.
l'applicazione in ambiente windows funzione che è una meraviglia ma se la uso in ambiente mac le immagini non vengono visualizzate. potete aiutarmi per favore, grazie
ti aiuteremmo ben volentieri se tu postassi un po' di codice.. così senza nessuna informazione non si può fare niente..
questo è il codice dove viene scelto il file immagine
Public Class upload
Inherits System.Web.UI.Page
Dim myapp As GestioneTestiBase.Applicazione
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not myapp.Authorized(Session(COSTANTI.SESSION_VARIABLE )) Then
Session.Abandon()
Response.Redirect(COSTANTI.ADDRESS_HOMEPAGE)
End If
myapp = Session(COSTANTI.SESSION_VARIABLE)
End Sub
Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Dim fileditesto As String
Dim strFile As String
Dim nomefile As String
Dim numero As Int32
Dim mia As Int32
Dim sito As GestioneTestiBase.Sito = myapp.Parametri(myapp.PAR_SITO)
Dim contenuto As GestioneTestiBase.Contenuto = myapp.Parametri(myapp.PAR_CONTENUTOCORRENTE)
strFile = Me.File1.PostedFile.FileName()
numero = 0
Do
mia = numero
numero = InStr(numero + 1, strFile, "\")
Loop Until numero = 0
nomefile = Right(strFile, Len(strFile) - mia)
nomefile = Session.SessionID & Now.Year
nomefile &= IIf(Now.Month > 9, Now.Month, "0" & Now.Month) & IIf(Now.Day > 9, Now.Day, "0" & Now.Day) & IIf(Now.Hour > 9, Now.Hour, "0" & Now.Hour) & IIf(Now.Minute > 9, Now.Minute, "0" & Now.Minute) & Right(strFile, Len(strFile) - mia)
myapp.Log("salvataggio " & Now & ":" & sito.st_salvataggio & nomefile)
Me.File1.PostedFile.SaveAs(sito.st_salvataggio & nomefile)
myapp.Log("FILE SALVATO - " & myapp.salvataggiofile & nomefile)
myapp.Log(contenuto.contenutoid)
Select Case myapp.Parametri("contenutodamod")
Case 1
contenuto.con_allegato = nomefile
Case 2
contenuto.con_allegato1 = nomefile
Case 3
contenuto.con_allegato2 = nomefile
Case 4
contenuto.con_allegato3 = nomefile
Case 5
contenuto.con_allegato4 = nomefile
Case 6
contenuto.con_img = nomefile
Case 7
contenuto.con_pdf = nomefile
End Select
If myapp.Parametri("width" & myapp.Parametri("contenutodamod")) <> 0 Or myapp.Parametri("height" & myapp.Parametri("contenutodamod")) <> 0 Then
myapp.Parametri("da") = 1
Response.Redirect(COSTANTI.CON_OTTIMIZZA)
Else
myapp.Parametri("contenutodamod") = -1
myapp.Parametri("da") = 0
Response.Redirect(COSTANTI.CON_GESTIONE)
End If
End Sub
Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
myapp.Parametri("contenutodamod") = -2
Response.Redirect(COSTANTI.CON_GESTIONE)
End Sub
End Class
Questo è il codice invece dove il file deve essere visualizzato
Imports ModificaImmaginiGDI
Imports System.Drawing
Public Class Ottimizza
Inherits System.Web.UI.Page
#Region "variabili"
Dim myapp As GestioneTestiBase.Applicazione
Dim contenuto As GestioneTestiBase.Contenuto
Dim sito As GestioneTestiBase.Sito
'Dim P As PS.OnlineImageOptimizer.ImageOptimizer
Dim nome As String
Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
Dim modi As New Modifica
'Dim myapp.parametri("nomeok"), myapp.parametri("name10"), myapp.parametri("name50") As String
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents Button3 As System.Web.UI.WebControls.Button
Protected WithEvents lbldimensioni As System.Web.UI.WebControls.Label
Protected WithEvents lblsize As System.Web.UI.WebControls.Label
Protected WithEvents lblantemprima As System.Web.UI.WebControls.Label
Protected WithEvents IMG1 As System.Web.UI.HtmlControls.HtmlImage
Protected WithEvents Button4 As System.Web.UI.WebControls.Button
Protected WithEvents lbltitolo As System.Web.UI.WebControls.Label
Dim r As Integer = 0
#End Region
#Region " Codice generato da Progettazione Web Form "
'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTA: la seguente dichiarazione è richiesta da Progettazione Web Form.
'Non spostarla o rimuoverla.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ob As System.Drawing.Image
Dim stream As IO.StreamReader
'Inserire qui il codice utente necessario per inizializzare la pagina
Me.Button3.Visible = False
If Not myapp.Authorized(Session(COSTANTI.SESSION_VARIABLE )) Then
Session.Abandon()
Response.Redirect(COSTANTI.ADDRESS_HOMEPAGE)
End If
myapp = Session(COSTANTI.SESSION_VARIABLE)
contenuto = myapp.Parametri(myapp.PAR_CONTENUTOCORRENTE)
sito = myapp.Parametri(myapp.PAR_SITO)
Select Case myapp.Parametri("contenutodamod")
Case 1
nome = contenuto.con_allegato
contenuto.con_allegato = ""
Case 2
nome = contenuto.con_allegato1
contenuto.con_allegato1 = ""
Case 3
nome = contenuto.con_allegato2
contenuto.con_allegato2 = ""
Case 4
nome = contenuto.con_allegato3
contenuto.con_allegato3 = ""
Case 5
nome = contenuto.con_allegato4
contenuto.con_allegato4 = ""
Case 6
nome = contenuto.con_img
contenuto.con_img = ""
Case 7
nome = contenuto.con_pdf
contenuto.con_pdf = ""
End Select
If Not Me.IsPostBack Then
myapp.Parametri("nomeoriginale") = sito.st_salvataggio + nome
If myapp.Parametri("width" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxw = 2000
Else
modi.maxw = myapp.Parametri("width" & myapp.Parametri("contenutodamod"))
End If
If myapp.Parametri("height" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxh = 2000
Else
modi.maxh = myapp.Parametri("height" & myapp.Parametri("contenutodamod"))
End If
ob = modi.SetDimensioni(sito.st_salvataggio, sito.st_salvataggio & nome)
Dim newname As String = modi.setQuality(sito.st_salvataggio, sito.st_salvataggio & nome, ob)
myapp.Parametri("nomeok") = newname
modi = New Modifica
If myapp.Parametri("width" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxw = 2000
Else
modi.maxw = myapp.Parametri("width" & myapp.Parametri("contenutodamod"))
End If
If myapp.Parametri("height" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxh = 2000
Else
modi.maxh = myapp.Parametri("height" & myapp.Parametri("contenutodamod"))
End If
modi.qual = 10
ob = modi.SetDimensioni(sito.st_salvataggio, sito.st_salvataggio & nome)
myapp.Parametri("name10") = modi.setQuality(sito.st_salvataggio, sito.st_salvataggio & nome, ob)
modi = New Modifica
If myapp.Parametri("width" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxw = 2000
Else
modi.maxw = myapp.Parametri("width" & myapp.Parametri("contenutodamod"))
End If
If myapp.Parametri("height" & myapp.Parametri("contenutodamod")) = 0 Then
modi.maxh = 2000
Else
modi.maxh = myapp.Parametri("height" & myapp.Parametri("contenutodamod"))
End If
modi.qual = 50
ob = modi.SetDimensioni(sito.st_salvataggio, sito.st_salvataggio & nome)
myapp.Parametri("name50") = modi.setQuality(sito.st_salvataggio, sito.st_salvataggio & nome, ob)
Dim BMP As Image = Image.FromFile(myapp.Parametri("name10"))
Dim name10 As String = myapp.Parametri("name10")
stream = New IO.StreamReader(name10)
lbldimensioni.Text = BMP.Width & "x" & BMP.Height
lblsize.Text = stream.BaseStream.Length \ 1024 & " KByte (risoluzione consigliata)"
'Me.LinkButton2.Text = "Salva con risoluzione consigliata"
Me.lbltitolo.Text = "Diemnsioni dell'immagine a risoluzione consigliata"
Me.lblantemprima.Text = "Antemprima dell'immagine"
modi = Nothing
stream.Close()
BMP.Dispose()
IMG1.Dispose()
Dim del As IO.File
'del.Delete(sito.st_salvataggio & nome)
IMG1.Dispose()
IMG1.Src = sito.st_indirizzo & "\upload\" & no(myapp.Parametri("name10"))
End If
End Sub
Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Dim del As IO.File
Dim con As String
Dim i As Integer
Do
If Mid(IMG1.Src, Len(IMG1.Src) - i, 1) = "\" Then Exit Do
con = Mid(IMG1.Src, Len(IMG1.Src) - i, 1) & con
i = i + 1
Loop
Select Case myapp.Parametri("contenutodamod")
Case 1
contenuto.con_allegato = con
Case 2
contenuto.con_allegato1 = con
Case 3
contenuto.con_allegato2 = con
Case 4
contenuto.con_allegato3 = con
Case 5
contenuto.con_allegato4 = con
Case 6
contenuto.con_img = con
Case 7
contenuto.con_pdf = con
End Select
myapp.Parametri("r") = r
myapp.Parametri("contenutodamod") = -1
Response.Redirect(COSTANTI.CON_GESTIONE)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Button1.Visible = False
Me.Button2.Visible = True
Me.Button3.Visible = True
Dim name50 As String = myapp.Parametri("name50")
Dim stream As New IO.StreamReader(name50)
Dim BMP As Image = Image.FromFile(myapp.Parametri("name50"))
lbldimensioni.Text = BMP.Width & "x" & BMP.Height
lblsize.Text = stream.BaseStream.Length \ 1024 & " KByte (risoluzione superiore)"
IMG1.Dispose()
IMG1.Src = sito.st_indirizzo & "\upload\" & no(myapp.Parametri("name50"))
r = 1
'Me.LinkButton2.Text = "Salva con risoluzione superiore"
Me.lbltitolo.Text = "Diemnsioni dell'immagine a risoluzione superiore"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Button2.Visible = False
Me.Button1.Visible = True
Me.Button3.Visible = True
Dim nameok As String = myapp.Parametri("nomeok")
Dim stream As New IO.StreamReader(nameok)
Dim BMP As Image = Image.FromFile(myapp.Parametri("nomeok"))
lbldimensioni.Text = BMP.Width & "x" & BMP.Height
lblsize.Text = stream.BaseStream.Length \ 1024 & " KByte (risoluzione massima)"
IMG1.Dispose()
IMG1.Src = sito.st_indirizzo & "\upload\" & no(myapp.Parametri("nomeok"))
r = 2
'Me.LinkButton2.Text = "Salva con risoluzione massima"
Me.lblantemprima.Text = "Antemprima dell'immagine"
Me.lbltitolo.Text = "Diemnsioni dell'immagine a risoluzione massima"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Button3.Visible = False
Me.Button2.Visible = True
Me.Button1.Visible = True
Dim name10 As String = myapp.Parametri("name10")
Dim stream As New IO.StreamReader(name10)
Dim BMP As Image = Image.FromFile(myapp.Parametri("nomeok"))
lbldimensioni.Text = BMP.Width & "x" & BMP.Height
lblsize.Text = stream.BaseStream.Length \ 1024 & " KByte (risoluzione consigliata)"
IMG1.Dispose()
IMG1.Src = sito.st_indirizzo & "\upload\" & no(myapp.Parametri("name10"))
r = 0
Me.lbltitolo.Text = "Diemnsioni dell'immagine a risoluzione consigliata"
Me.lblantemprima.Text = "Anteprima dell'immagine"
End Sub
Private Function no(ByVal n As String) As String
Dim i As Integer
Dim con As String
Dim na As String = n
Do
If Mid(na, Len(na) - i, 1) = "\" Then Exit Do
con = Mid(na, Len(na) - i, 1) & con
i = i + 1
Loop
Return con
End Function
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim del As IO.File
Dim con As String
Dim i As Integer
Do
If Mid(IMG1.Src, Len(IMG1.Src) - i, 1) = "\" Then Exit Do
con = Mid(IMG1.Src, Len(IMG1.Src) - i, 1) & con
i = i + 1
Loop
Select Case myapp.Parametri("contenutodamod")
Case 1
contenuto.con_allegato = con
Case 2
contenuto.con_allegato1 = con
Case 3
contenuto.con_allegato2 = con
Case 4
contenuto.con_allegato3 = con
Case 5
contenuto.con_allegato4 = con
Case 6
contenuto.con_img = con
Case 7
contenuto.con_pdf = con
End Select
myapp.Parametri("r") = r
myapp.Parametri("contenutodamod") = -1
Response.Redirect(COSTANTI.CON_GESTIONE)
End Sub
End Class
Permessi di invio
Rispondi quotando