Eseguire download di un'immagine

[x69asterix]

in un web server ho una pagina dove praticamente al click di un bottone dovrei permettere al client di scaricare un file in formato jpg, come posso fare?
se io eseguo l'indirizzo della pagina www.miosito/cartella/1.jpg
mi visualizza l'immagine,
io invece dovrei permettere il donwload, quindi salva

[Outshine84]

Il modo più semplice credo sarebbe zippare l'immagine e mettere nel link il nome del file .zip

[x69asterix]

questo è il modo più semplice...
ma quello più difficile?

[Outshine84]

quello che non so ...

[djciko]

Imports System.IO

        Response.Expires = -1
        Dim strPath As String = Me.Server.MapPath("immagine.jpg")
        Dim file As FileInfo = New FileInfo(strPath)
        If file.Exists Then
            Response.Clear()
            Response.AddHeader("Content-Disposition", "attachment; filename=""" & file.Name & """")
            Response.AddHeader("Content-Length", file.Length.ToString())
            Response.ContentType = "application/octet-stream"
            
            Response.TransmitFile(strPath)
            Response.End()
        Else
            Response.Write("File non trovato.")
        End If

[x69asterix]

grande djciko...

funziona!

ancora una cosa ma se invece di un bottone voglio effettuare da questo code:
menu2[0]='Ferie'
come procedo

[djciko]

Originariamente inviato da x69asterix
grande djciko...

funziona!

ancora una cosa ma se invece di un bottone voglio effettuare da questo code:
menu2[0]='Ferie'
come procedo

cosa è menu2[0]='Ferie' ?
dovresti gestirne il click..

[x69asterix]

Originariamente inviato da djciko
cosa è menu2[0]='Ferie' ?
dovresti gestirne il click..

purtroppo non molto esperto figuriamoci di java....

per concludere

esiste un modo al client invece di fare affacciare la finestra, di fare partire direttamente l'applicazione associata?

io sul firum ho trovato questo script:

 Dim file As String = Server.MapPath("Program.exe") 
      Dim info As ProcessStartInfo = new ProcessStartInfo(file, "/arguments") 
      ''Redirect output so we can read it.
      info.RedirectStandardOutput = true 
      ''To redirect, we must not use shell execute.
      info.UseShellExecute = false 
      ''Create and execute the process.
      Dim p As Process = Process.Start(info) p.Start() 
      ''Send whatever was returned through the output to the client. 
      Response.Write(Replace(Replace(p.StandardOutput.ReadToEnd(), vbCrLf, " "), " ", " "))

ma trattandosi di file di immagine qual'e il programma predefinito di win xp

[djciko]

E' il visualizzatore immagini, ma quello che vuoi fare è un pò troppo invadente per la sicurezza ed anche per la fattibilità stessa. Perchè non far salvare all'utente l'immagine dove vuole e poi lasciarlo libero di aprirla come vuole ? Un applicativo web che si intromette nel PC del client è cosa strana...

Comunque, tanto per citare, questo il codice per far partire ad esempio la calcolatrice, lo usavo in 1.1 è facilmente traducibile in 2.0:

        Public Sub Calcolatrice(ByVal Pagina As Page)
            Dim js As String = "<script language=javascript>var shell = new ActiveXObject(""Wscript.Shell""); shell.Run (""C:/WINDOWS/system32/CALC.EXE"");</script>"
            If (Not Pagina.IsClientScriptBlockRegistered("clientscript_calc")) Then
                Pagina.RegisterClientScriptBlock("clientscript_calc", js)
            End If
        End Sub

[x69asterix]

Originariamente inviato da djciko
E' il visualizzatore immagini, ma quello che vuoi fare è un pò troppo invadente per la sicurezza ed anche per la fattibilità stessa. Perchè non far salvare all'utente l'immagine dove vuole e poi lasciarlo libero di aprirla come vuole ? Un applicativo web che si intromette nel PC del client è cosa strana...

Comunque, tanto per citare, questo il codice per far partire ad esempio la calcolatrice, lo usavo in 1.1 è facilmente traducibile in 2.0:

        Public Sub Calcolatrice(ByVal Pagina As Page)
            Dim js As String = "<script language=javascript>var shell = new ActiveXObject(""Wscript.Shell""); shell.Run (""C:/WINDOWS/system32/CALC.EXE"");</script>"
            If (Not Pagina.IsClientScriptBlockRegistered("clientscript_calc")) Then
                Pagina.RegisterClientScriptBlock("clientscript_calc", js)
            End If
        End Sub

si il tuo ragionamento non fa una piega.
però visto che il problema non si pone perchè si parla di lavoro, risparmio tempo ed inesperienza dell'utente.