ENVOI (SAUVEGARDE) D'UN FICHIER BINAIRE SUR UN SITE DISTANT (ASP CLASSIQUE)

Nicolas_kojack Messages postés 136 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 25 mai 2012 - 2 nov. 2007 à 17:54
cs_Chrigou Messages postés 30 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 27 juin 2008 - 5 nov. 2007 à 08:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/39160-envoi-sauvegarde-d-un-fichier-binaire-sur-un-site-distant-asp-classique

cs_Chrigou Messages postés 30 Date d'inscription lundi 10 février 2003 Statut Membre Dernière intervention 27 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és 136 Date d'inscription vendredi 19 novembre 2004 Statut Membre Dernière intervention 25 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
Rejoignez-nous