Discussion :

[bubble_gum]

Bonjour à TS,
Je voudrais, en ASP (VBScript), faire en sorte que quand un utilisateur clique sur une image jpeg miniature, ca télécharge la grosse image correspondante, plutôt que de l'afficher.
Je sais qu'il faut traffiquer le MIME, mais je sais pas trop comment. Bref si quelqu'un avait la marche à suivre ou une petite idée?
Merci d'avance
Bye

[LEK]

Hello tu fais un lien depuis la petite image pointant sur une page asp, dans celle-ci, tu ouvre en lecture ton fichier grosse image, tu change le type MIME de l'entête via Response.Content ,
puis tu écris le contenu de l'image via Response.binaryWrite et voilà.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
response.clear() ' vide ton buffer : on envoie rien avant de modif un  
                         ' header
 
   ' force le téléchargement
   response.contentType = "application/octet-stream"
   response.addHeader "Content-Disposition","attachment; filename=" & nom_fichier_image

Autre solution depuis la petite image tu fais simplement un lien vers les grosses images que tu auras préalablement zippées Le téléchargement sera automatiquement proposé, et il sera d'autant plus rapide que les fichiers seront suivant le format plus légers.

[bubble_gum]

Merci pour tes explications LEK,
J'arrive à enregistrer le fichier image. Par contre impossible de le lire après.
Il me met: Impossible de charger nom_image
Impossible de le lire dans un navigateur aussi. Comme si le fichier n'était pas une image.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'response.clear() 
response.contentType = "image/jpeg"
response.addHeader "Content-Disposition","attachment; filename=" & photo

Si je met resonse.clear() il me met l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Objet Response erreur 'ASP 0159 : 80004005'
 
Mise en cache désactivée
 
/phototheque/zoom.asp, ligne 11
 
La mise en cache doit être activée.

Cordialement

[bubble_gum]

Merci pour tes explications LEK,
J'arrive à enregistrer le fichier image. Par contre impossible de le lire après.
Il me met: Impossible de charger nom_image
Impossible de le lire dans un navigateur aussi. Comme si le fichier n'était pas une image.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
'response.clear() 
response.contentType = "image/jpeg"
response.addHeader "Content-Disposition","attachment; filename=" & photo

Si je met resonse.clear() il me met l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Objet Response erreur 'ASP 0159 : 80004005'
 
Mise en cache désactivée
 
/phototheque/zoom.asp, ligne 11
 
La mise en cache doit être activée.

Cordialement

[LEK]

Hello, c'est encore moi, je t'envoie le code complet que tu dois écrire pour forcer le download de ton jpg :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
<%
'--------------------------------------------
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
 
Const adTypeBinary = 1
 
strFilePath = Server.MapPath("test.jpg")
strFileSize = 500  'Ce paramètre est opionnel pour forcer le download
strFileName = "test.jpg"
 
Response.Clear
 
'Pour lire l'image, j'utilise ADODB.Stream : il te faut au miminum
'MDAC 2.5 (téléchargement sur windows update au cas où)
 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
 
ContentType = "image/jpeg"
 
Response.AddHeader "Content-Disposition", "attachment; filename= strFileName
 
Response.AddHeader "Content-Length", strFileSize
Response.Charset = "UTF-8"
Response.ContentType = ContentType
 
Response.BinaryWrite objStream.Read
Response.Flush
 
objStream.Close
Set objStream = Nothing
 
%>

Voilà maintenant c'est à toi de jouer

[bubble_gum]

Ok ca marche nickel
Merci beaucoup LEK pour ton aide précieuse

Si... une dernière question:
strFileSize est-il en octet?
Cordialement

[LEK]

Pour la taille je vais essayé de me renseigner... Pour le code je n'ai hélas pas beaucoup de mérite, j'ai consulté récemment un tutorial là dessus sur http://dypso.free.fr et je me suis inspirer du code pour le site de mon entreprise.