Bonjour,
Attention le retour de votre information est du PDF donc Binaire. Aucun encoding de chaine ne doit être appliqué. Lors de la réception, vérifiez bien que vous avez ContentType = "application/pdf". Si c'est le cas, boucler tant qu'il de l'information dans
GetResponseStream() et l'écrire en même temps dans le fichier. Lorsque vous utilisez la méthode Read du StreamReader, celui-ci vous retourne le nombre d'octet lu. Lorsqu'il y en a plus il retourne 0 donc quitter la boucle.
Exemple :
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.IO;
using System.Net;
namespace WebPDF
{
/// <summary>
/// Exemple de téléchargement d'un fichier binaire (PDF en l'occurence) via HttpWebRequest...
/// Par Lyamine BENKHADRA :)
/// </summary>
class Program
{
//Exemple d'url : http://fbeaulieu.ftp-developpez.com/guide/beaulieu-delphi-pascal.pdf
//Ceci n'est qu'un simple exemple pour montrer comment vérifier et enregistrer le fichier de l'url
//en utilisant HttpWebRequest/HttpWebResponse
//
const string url = "http://fbeaulieu.ftp-developpez.com/guide/beaulieu-delphi-pascal.pdf";
static void Main(string[] args)
{
HttpWebRequest req = (HttpWebRequest)HttpWebRequest.Create(url);
req.Method = "GET";
req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1"; //je suis FF désolé Microsoft...
//faire votre traitement d'habitude (cookies...)
//Demande de réception
using (HttpWebResponse resp = (HttpWebResponse)req.GetResponse())//utilisation de la méthode synchrone.
{
//Console.WriteLine(resp.ContentType); //bien vérifier le Content-Type = à pdf (afficher la valeur).
if (resp.ContentType.ToLower() == "application/pdf") //vérifier s'il n'existe pas avec x-pdf, si c'est le cas ajouter à la condition
{
//OK lecture puis écriture.
//2 solutions :
//soit on met tout en mémoire puis on enregistre.
//soit on enregistre au file de la lecture. <--- méthode utilisé pour ne pas gonfler la RAM
using (Stream reader = resp.GetResponseStream())
{
//Writer
using (FileStream pdf = File.Create(@"c:\test.pdf"))//mettre votre chemin de fichier...
{
//buffer de donnée 4096 est correct
byte[] buffer = new byte[4096];
int len = 0;
long step = 0;
while ((len = reader.Read(buffer, 0, buffer.Length)) > 0)// il y a du data si len>0
{
pdf.Write(buffer, 0, len); //écrit les données reçus :)
//Afficher dans la console l'avancement
step += len;
Console.Title = string.Format ("{0}/{1}", step, resp.ContentLength);//afficher dans le titre l'avancement sur le total
}
//fin, fermer le fichier
pdf.Close(); //normalement using ferme le fichier mais on ne sait jamais...
}
}
}
resp.Close(); //reader se fermera par ici...
}
}
}
}
Est-ce le résultat souhaité ?
(MAJ) : Oups j'ai pas fait attention que c'était du VB (fatigue de la journée). Est-ce que vous pourrez le retranscrire ?
Voici le code reprit d'un convertisseur en ligne (pas le temps de le refaire, désolé) :
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.IO
Imports System.Net
Namespace WebPDF
''' <summary>
''' Exemple de téléchargement d'un fichier binaire (PDF en l'occurence) via HttpWebRequest...
''' Par Lyamine BENKHADRA :)
''' </summary>
Class Program
'Exemple d'url : http://fbeaulieu.ftp-developpez.com/guide/beaulieu-delphi-pascal.pdf
'Ceci n'est qu'un simple exemple pour montrer comment vérifier et enregistrer le fichier de l'url
'en utilisant HttpWebRequest/HttpWebResponse
'
Const url As String = "http://fbeaulieu.ftp-developpez.com/guide/beaulieu-delphi-pascal.pdf"
Private Shared Sub Main(args As String())
Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
req.Method = "GET"
req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1"
'je suis FF désolé Microsoft...
'faire votre traitement d'habitude (cookies...)
'Demande de réception
Using resp As HttpWebResponse = DirectCast(req.GetResponse(), HttpWebResponse)
'utilisation de la méthode synchrone.
'Console.WriteLine(resp.ContentType); //bien vérifier le Content-Type = à pdf (afficher la valeur).
If resp.ContentType.ToLower() = "application/pdf" Then
'vérifier s'il n'existe pas avec x-pdf, si c'est le cas ajouter à la condition
'OK lecture puis écriture.
'2 solutions :
'soit on met tout en mémoire puis on enregistre.
'soit on enregistre au file de la lecture. <--- méthode utilisé pour ne pas gonfler la RAM
Using reader As Stream = resp.GetResponseStream()
'Writer
Using pdf As FileStream = File.Create("c:\test.pdf")
'mettre votre chemin de fichier...
'buffer de donnée 4096 est correct
Dim buffer As Byte() = New Byte(4095) {}
Dim len As Integer = 0
Dim [step] As Long = 0
While (InlineAssignHelper(len, reader.Read(buffer, 0, buffer.Length))) > 0
' il y a du data si len>0
pdf.Write(buffer, 0, len)
'écrit les données reçus :)
'Afficher dans la console l'avancement
[step] += len
'afficher dans le titre l'avancement sur le total
Console.Title = String.Format("{0}/{1}", [step], resp.ContentLength)
End While
'fin, fermer le fichier
'normalement using ferme le fichier mais on ne sait jamais...
pdf.Close()
End Using
End Using
End If
'reader se fermera par ici...
resp.Close()
End Using
End Sub
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
End Class
End Namespace
Cordialement
Merci de valider par "Proposer comme réponse" si celle-ci répond à votre demande !
