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

**gamerome** · 08/12/2009, 11h03

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 :

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
 
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...

**gamerome** · 08/12/2009, 11h25

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?

**mattofmath** · 08/12/2009, 11h52

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 :

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
 
 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