cs_Chrigou
Messages postés30Date d'inscriptionlundi 10 février 2003StatutMembreDernière intervention27 juin 2008 5 nov. 2007 à 08:24
Bonjour Nicolas,
Oui, ça fonctionne mais... il n'est pas possible de recevoir une base de données par exemple car elle est protégée en lecture directe. Il faut donc que l'émetteur prenne la décision de l'envoyer, d'ou mon code.
Merci quand même pour ton code.
Nicolas_kojack
Messages postés136Date d'inscriptionvendredi 19 novembre 2004StatutMembreDernière intervention25 mai 2012 2 nov. 2007 à 17:54
Dans le même style :
enfin me semble t'il...
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", "url du fichier", false
objXMLHTTP.send(null)
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.write objXMLHTTP.responseBody
Stream.SaveToFile "emplacement souhaité avec extension", adSaveCreateOverWrite
%>
En tous cas ca fonctionne au moins avec des fichiers MP3 et JPG pas essayé avec d'autres :p
5 nov. 2007 à 08:24
Oui, ça fonctionne mais... il n'est pas possible de recevoir une base de données par exemple car elle est protégée en lecture directe. Il faut donc que l'émetteur prenne la décision de l'envoyer, d'ou mon code.
Merci quand même pour ton code.
2 nov. 2007 à 17:54
enfin me semble t'il...
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.open "GET", "url du fichier", false
objXMLHTTP.send(null)
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.write objXMLHTTP.responseBody
Stream.SaveToFile "emplacement souhaité avec extension", adSaveCreateOverWrite
%>
En tous cas ca fonctionne au moins avec des fichiers MP3 et JPG pas essayé avec d'autres :p