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

[Poumtschak]

Code :

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

1
2
3
4
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 ?

Bé l'instruction ligne 39 c'est bien celle-ci ?

Code :

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

Response.BinaryWrite(oStream.Read)

Manifestement, il y a une différence de typage entre ce que renvoie le Microsoft.XMLHTTP et le binaire attendu par l'Adodb.Stream.

Presqu'au pif, je dirais que le oStream.write xml.responseBody renvoie du texte, HTTP oblige. Dans un premier temps, il faudrait essayer avec

Code :

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

Response.Write(oStream.Read)

Et puis mettre un type MIME sur "image/jpeg" alors que dans l'exemple tu envoies du GIF, c'est peut-être limite.

Sinon, en cherchant les méthodes de l'objet ADODB.Stream, Google renvoie tout de suite cette page :
http://support.microsoft.com/kb/276488

Il ne doit pas manquer grand chose pour toucher au but.

[edit]
A la relecture, j'ajouterais que si l'appli tierce sait lire des images à partir d'URL, c'est qu'elle utilise le protocole HTTP, donc le format texte. L'utilisation du BinaryWrite ne se justifie peut-être donc pas.
[/edit]

[lunab54]

merci de ton soutien

sinon le http://support.microsoft.com/kb/276488

je l'avais déjà essayé et ca marche impecable si le fichier est sur un disque local du serveur web !

seulement dés que l'adresse du fichier à traiter est une URL ca ne marche plus...

avec :

Code :

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

Response.ContentType = "image/jpeg"

Code :

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

Response.Write(oStream.Read)

c'est mieux...

mais j'ai une petite image avec une croix rouge et donc mon image ne s'affiche pas

j'ai essayé de changer la requête Microsoft.XMLHTTP en la passant de :

Code :

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

1
2
3
4
oStream.type = 1
oStream.open
oStream.write xml.responseBody
response.Write(oStream.read)

à

Code :

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

1
2
3
4
5
 
oStream.type = 0
oStream.open
oStream.write xml.responseText
response.Write(oStream.read)

mais là je repars sur un message d'erreur

Code :

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

Les arguments sont de type incorrect, en dehors des limites autorisés ou en conflit les uns avec les autres

j'ai fait varier les types et les response un peu dans tous les sens mais rien de bien au final

je continue à chercher...

[lunab54]

Yes !

en remettant tout au propre, j'ai trouvé ce que je voulais :

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
 
 
'chemin accés au fichier
pathf = "/image/monimage.jpg"
 
   '-------------------------------------------------------   
   ' Paramétrage URL photo à charger
   '-------------------------------------------------------
    URL_SERVER = Request.ServerVariables("server_name")
    URL = "http://" + Request.ServerVariables("server_name") + pathf
    'Response.write(URL)
 
   '-------------------------------------------------------   
   ' 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"
 
   '-------------------------------------------------------
   ' open the stream
   '-------------------------------------------------------
    Const adModeRead = 1  'Read Only'
    const adTypeBinary = 1 'Binary Type'
 
    set oStream = createobject("Adodb.Stream")
    oStream.type = adTypeBinary
    oStream.open "URL=" + URL,adModeRead
 
    response.BinaryWrite(oStream.read)
    Response.End
 
    oStream.close
    set oStream = nothing

ca marche super !