Envoi de Fax - HttpWebRequest

Version imprimable

22/05/2009, 12h10
Maestro57

Envoi de Fax - HttpWebRequest
Bonjour,

Je suis en train de créer une fonction qui a pour but d'envoyer des données à une page en https qui elle-même envoi un fax.

Les informations que je dois lui envoyer sont:
Un identifiant, un mot de passe, un numéro de fax, et un document pdf qui sera le contenu du fax.

J'aimerais utiliser HttpWebRequest, mais je ne sais pas comment envoyer les infos par POST à ma page ...

J'ai fais ceci pour le moment:
Code:

1 2 3 4 Dim Request As Net.HttpWebRequest = Net.HttpWebRequest.Create(url_de_ma_page_cible) Request.Method = "POST" Request.ContentType = "application/pdf"
Quelqu'un pourrait-il me venir en aide ?
22/05/2009, 13h55
Pol63

si tu as une requete qui fonctionne depuis IE ou firefox, il suffit d'installer un module qui permet de voir les entetes http et de les utiliser pour parameter le webrequest

sinon il doit y avoir une doc pour ton serveur de fax ...
22/05/2009, 14h13
Maestro57

J'ai effectivement une doc. Et j'ai la description de ces paramètres mais je ne sais pas comment les envoyer en fait ...

Aurais-tu un exemple ?
22/05/2009, 14h21
Pol63

si c'est des paramètres de header Request.Headers.Add() devrait t'aider, y a un enum avec la liste des paramètres possibles et tu donnes la valeur
si c'est des paramètres de content, ils doivent etre mis dans la propriété content, et peut etre que les contents doivent etre décris dans l'entete
souvent ils sont transmis dans l'url
url = "site.fr/?param1=machin?param2=truc"
22/05/2009, 14h26
Maestro57

Ok merci de tes conseils, je vais essayer de mettre ça en forme.

Je commence à comprendre un peu le principe !

Voilà, j'ai fais ce code là:

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
29
30
31
32
 
Dim data As New MultipartFormDataBodyCreator
 
        Dim myRequest As Net.HttpWebRequest = Net.HttpWebRequest.Create(url)
        myRequest.Method = "POST"
        myRequest.KeepAlive = True
        myRequest.ServicePoint.Expect100Continue = False
        myRequest.Referer = url
        myRequest.ContentType = "multipart/form-data; boundary=" & data.Boundary
 
        data.Fields.Add("action", "convert_and_transfer")
        data.Fields.Add("username", email)
        data.Fields.Add("password", password)
        data.Fields.Add("pagescount", 1)
        data.Fields.Add("numbers[1]", numero_de_fax)
        data.Fields.Add("document", pdf_file)
 
        Dim dataBis() As Byte = data.Create()
 
        myRequest.ContentLength = dataBis.Length
 
        ' Ecriture des données
        ' ------------------------------------
        Dim writer As IO.Stream = myRequest.GetRequestStream
        writer.Write(dataBis, 0, dataBis.Length)
        writer.Close()
 
        'SendPOSTData(myRequest, data.Create)
 
        ' Réponse
        ' -----------------
        Dim response As Net.HttpWebResponse = myRequest.GetResponse()

Je n'ai pas d'erreur mais le fax n'est pas envoyé. Une idée ?

22/05/2009, 15h53
Pol63

que vaut la réponse ?
sur la réponse y a le status qui indique déjà si le serveur a bien compris
y a aussi les headers de réponse (pas sur qu'ils soient utiles)

et puis avec le stream de la réponse tu obtiens le code html et des fois le serveur te réponds ce qu'il a fait (ou pas) et pourquoi
25/05/2009, 11h29
Maestro57
C'est bon l'envoi du fax fonctionne à présent.

J'avais simplement oublié de préciser que j'envoyais un fichier via la mention 'true' :
Code:

1 2 data.Fields.Add("document", pdf_file, true)
Maintenant je cherche à récupérer la réponse qui est au format XML.

Je fais ceci:
Code:

1 2 3 Dim response As Net.HttpWebResponse = myRequest.GetResponse() Dim reader As New IO.StreamReader(Response.GetResponseStream())
Puis je compte effectuer un traitement avec xPath ...

Si ça intéresse quelqu'un, je peux expliquer comment faire.
Dans le cas contraire je m'arrête là :-)

Merci beaucoup à toi sperot51 pour ton aide