Discussion :

[lunab54]

Bonjour,

j'ai trouvé des exemples de Response.binarywrite pour des images stockées dans un champ BLOB de SGBD

j'ai une appli tierce qui peut lire des fichiers JPEG avec une url statique
genre :'http://monserveur/image1.jpg'

je peux entièrement paraméter l'url d'accès à l'image aussi je voudrai le "gruger" en faisant 'http://monserveur/monimage.asp?im=1'

je sais faire dans mon navigauteur en mettant une balise image mais je voudrais renvoyer une image brute dans mon appli tierce sans aucune balise ni texte afin que l'application qui l'appele considère le contenu comme un vrai JPG

je me disais qu'avec ce code ca marcherait mais non :

Code :

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

1
2
3
4
5
 
Response.ContentType = "image/jpeg"
...
'pathf = chemin d'accés au fichier JPG à afficher
Response.BinaryWrite(pathf)

qd je l'affiche dans mon navigateur je vois bien que ca marche pas j'ai une petite image avec une croix rouge

je pense qu'il faut lire le fichier en binaire avant, mais comment ?

merci de vos conseils

[roro06]

Bonjour

Si ton image est dans un blob, c'est déjà du binaire.
Que donne un click droit sur la "petite image avec une croix rouge", puis propriétés ?

[lunab54]

merci de ta réponse

mais en fait dans ce cas mes images ne sont pas dans un blob du sgbd

mais dans des fichiers sur le disque dur

en fait j'aurai voulu que mon asp lise le fichier en binaire et le rebalance comme une image JPEG brute

avec un response.binarywrite

en fait la question comment lire un fichier image du disque dur en binaire, le mettre dans une variable et le renvoyer directement dans le navigateur comme une image ?

[roro06]

Re

tu peux essayer de lire ton image comme un fichier texte.

Code :

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

1
2
3
4
5
6
7
set fso=server.createobject("scripting.filesystemobject")
set im=fso.openTextFile(server.mapPath("images/monimage.jpg"))
fpath=im.readAll()

Response.ContentType = "image/jpeg"
Response.BinaryWrite(pathf)

euh ... je ne garantis pas trop que ça marche

[Poumtschak]

Si la soluce de roro06 ne donne rien, il y a peut-être matière à idée dans ce vbs :
http://www.paulsadowski.com/WSH/getremotebinaryfile.htm

[lunab54]

bonjour,

pour roro06, il me semble que FSO peut manipuler tous les fichiers mais lit seulement les fichiers textes (lut dans d'autres forums)

Poumtschak, cette solution est super et marche vraiement bien.

sauf quand au lieu de sauvegarder sur le disque local, j'essaye de le renvoyer dans le navigateur comme une image JPEG avec un response.binarywrite :

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
38
39
40
41
42
43
44
45
46
47
 
<%
 
   '-------------------------------------------------------   
   ' Clear out the existing HTTP header information
   '-------------------------------------------------------
   Response.Expires = 0 
   Response.Buffer = TRUE
   Response.Clear
 
   '-------------------------------------------------------
   ' Change the HTTP header to reflect that an image is being passed.
   '-------------------------------------------------------
   Response.ContentType = "image/jpeg"
 
'GetRemoteBinaryFile.vbs
ImageFile = "back.gif"
DestFolder = "C:\"
URL = "http://www.paulsadowski.com/images1/back.gif"
 
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False
xml.Send
 
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1 
 
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody
 
' Do not overwrite an existing file
'oStream.savetofile DestFolder & ImageFile, adSaveCreateNotExist
 
' Use this form to overwrite a file if it already exists
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
 
response.BinaryWrite(oStream.read)
Response.End
 
'oStream.close
 
'set oStream = nothing
'Set xml = Nothing
%>

là j'ai le message suivant :

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
 
Erreur de compilation Microsoft VBScript error '800a0401' 
 
Fin d'instruction attendue 
 
/iisHelp/common/500-100.asp, line 11 
 
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Objet Response error 'ASP 0106 : 80020005' 
 
Types non correspondants 
 
/test_binaryfile_xml.asp, line 39 
 
Un type de données non pris en charge s'est présenté.

une idée ?

merci d'avance