Télécharger, depuis le serveur, un fichier distant

Version imprimable

Bonjour,

Je souhaite, depuis mon serveur IIS, récupérer un fichier qui se trouve sur un serveur distant.

J'ai essayé plusieurs méthodes dont celle avec un objet WebRequest et WebResponse mais ça ne fonctionne pas. Je n'enregistre pas exactement mon fichier distant. Des octets sont rajoutés et le fichier est inexploitable.

Ci-joint le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim fileToSee As String = Request.QueryString("fichier") Try Dim myURI As Uri = New Uri("http://serveur/" & fileToSee) Dim myWebRequest As WebRequest = WebRequest.Create(myURI) Dim myWebResponse As WebResponse = myWebRequest.GetResponse() Dim myStream As Stream = myWebResponse.GetResponseStream() Dim myStreamReader As StreamReader = New StreamReader(myStream) Dim strHTML As String = myStreamReader.ReadToEnd myStreamReader.Close() Dim sw As StreamWriter = New StreamWriter(New FileStream(Server.MapPath("/") & fileToSee, FileMode.Create, FileAccess.Write)) sw.Write(strHTML) sw.Close() Catch ex As Exception Trace.Write(ex.ToString()) End Try
J'ai essayé également la méthode FTP mais le résultat est pire (aucun octet récupéré!!!).

Je cherche un peu partout mais en vain...

08/12/2009, 11h25
gamerome

J'ai compris pourquoi ça ne marchait pas... Il y a un problème avec l'encodage. Je pense que c'est propre à la méthode utilisée.
Alors laquelle utiliser pour récupérer des pdf ou des jpeg d'un serveur distant?

Dans ce genre de cas j'utilise généralement WebDav
(Attention, il faut pouvoir l'activer sur IIS)
Voici un exemple d'utilisation, c'est très proche de ce que tu as fais :

Code:

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
 
 Public Function Exist(ByVal Url As String, ByVal sUserName As String, ByVal sPassword As String) As Boolean
 
            Dim toReturn As Boolean = True
 
            Try
                Dim req As HttpWebRequest = DirectCast(WebRequest.Create(Url), HttpWebRequest)
                req.Method = WebRequestMethods.Http.Get
 
                ' s'authentifie 
                If Not [String].IsNullOrEmpty(sUserName) Then
                    Dim networkCredential As New NetworkCredential(sUserName, sPassword)
                    req.Credentials = networkCredential
                End If
 
                Dim webResp As WebResponse = req.GetResponse()
                Dim stream As Stream = webResp.GetResponseStream()
                Dim sr As New StreamReader(stream)
                Dim sResponse As String = sr.ReadToEnd()
 
                webResp.Close()
            Catch ex As Exception
                toReturn = False
            End Try
 
            Return toReturn
 
End Function

08/12/2009, 14h15
gamerome

J'ai réussi à m'en sortir en spécifiant l'encodage 1252.

Code:

Encoding.GetEncoding(1252)

Les fichiers sont du coup bien récupérés.