Discussion :

[Maestro57]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

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

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

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

[Maestro57]

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

Je commence à comprendre un peu le principe !

[Maestro57]

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

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

[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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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