Discussion :

[Webselect]

En gros je doit mètre un fichier jpg sur mon serveur a partir d'un adresse web.

Donc je doit allez chercher par http un image et le sauvegarder localement sur le disque dure du serveur.

voici ce que j'ai fait pour le moement :

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
<%
 
 
 
'essai pour etre sur que J'ai les droit d'écrire un fichier
Dim fso
Dim dir
 
dir = Server.MapPath("/") & "/text.txt"
response.write(dir & "<br>")
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  FSO.createTextFile(dir  ,true) 'true=ecrase
 
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")
 
Ftxt.Close
 
 
 
 
 
Response.Write("Etape 2 <br>")
 
 
 
 
 
 
 
'vrai download du fichier image
 
 
ImageFile = "logo.jpg"
DestFolder = Server.MapPath("/")
DestFile = DestFolder & "/" & ImageFile
Response.Write(DestFile & "<br>")
URL = "http://webselect.ca/images/logo.jpg"
 
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 DestFile, adSaveCreateNotExist
 
' Use this form to overwrite a file if it already exists
oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
 
oStream.close
 
set oStream = nothing
Set xml = Nothing
 
%>

et j'obtien comme réponse :

Code :

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

1
2
3
4
5
6
7
8
9
d:\listingimmo.com/text.txt
Etape 2
d:\listingimmo.com/logo.jpg
 
ADODB.Stream error '800a0bbc'
 
Write to file failed.
 
/photo.asp, line 55

[Webselect]

Bon j'ai trouvé

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
<%
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", "http://webselect.ca/images/logo.jpg", false
 
objXMLHTTP.send(null)
 
Set Stream = server.CreateObject("ADODB.Stream")
 
Stream.Type = adTypeBinary
Stream.Open
 
Stream.write objXMLHTTP.responseBody
 
Stream.SaveToFile "d:\listingimmo.com\logo.jpg", adSaveCreateOverWrite
%>