Bonjour,

Je cherche s'il existe une façon de faire ce la en PHP

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
33
34
35
36
37
38
39
40
41
42
43
 
Dim xmlRequest
xmlRequest = " <?xml version=""1.0"" ?> " & _
   "<eparcel>    " & _
   "<language> fr </language>    " & _
   "<ratesAndServicesRequest>  " & _
   "  <merchantCPCID> CPC_DEMO_HTML </merchantCPCID>   " & _
   "  <lineItems>  " & _
   "    <item>  " & _
   "      <quantity> 1 </quantity>  " & _
   "      <weight> 1.5 </weight>  " & _
   "      <length> 1 </length>                  " & _
   "      <width> 1 </width>  " & _
   "      <height> 1 </height>  " & _
   "      <description>Mon article type</description>  " & _
   "    </item>           " & _
   "  </lineItems>          " & _
   "  <city>  </city>          " & _
   "  <provOrState> Wisconsin </provOrState>  " & _
   "  <country>  CANADA </country>  " & _
   "  <postalCode> H3K1E5 </postalCode>  " & _
   "</ratesAndServicesRequest>  " & _
   "</eparcel>"
 
Set HttpObj = Server.CreateObject("AspHTTP.Conn")
 
HTTPObj.Url = "http://206.191.4.228:30000"      ' Internet IP:
 
HTTPObj.PostData = xmlRequest
 
HTTPObj.RequestMethod = "POST"
 
strResult = HTTPObj.GetURL       
 
errorFound = Instr(strResult, "ERROR_CODE")
If (errorFound>0) Then
   ' TÂCHE :
   ' Si le module CyberVente renvoie un code
   ' d'erreur, vous devez prendre les mesures
   ' nécessaires pour signaler le problème au
   ' consommateur (destination non valide, etc.)
 
End If
Est-ce que quelqu'un peut m'aider ???

J'ai vérifier du coter fsockopen mais il doit y avoir quelques chose que je ne fais pas comme il faut. mais bon ce code que j'ai trouver en ASP semble tellement plus simple que la méthode en socket de PHP.

merci d'avance.