La méthode d'envoi MSXML2.XMLHTTP fonctionne avec une liaison anticipée, échoue avec une liaison tardive
-
08-07-2019 - |
Question
Le code ci-dessous fonctionne. Mais si je commente la ligne Dim objRequest As MSXML2.XMLHTTP
et commente la ligne Dim objRequest As Object
, il échoue avec le message d'erreur suivant:
Le paramètre est incorrect
Pourquoi et que puis-je faire (le cas échéant)?
Public Function GetSessionId(strApiId, strUserName, strPassword) As String
Dim strPostData As String
Dim objRequest As MSXML2.XMLHTTP
'Dim objRequest As Object '
strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword
Set objRequest = New MSXML2.XMLHTTP
With objRequest
.Open "POST", "https://api.clickatell.com/http/auth", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send strPostData
GetSessionId = .responseText
End With
End Function
Corey, oui, je sais que je devrais le faire pour que mon code fonctionne sans référence à la bibliothèque de types MSXML. Ce n'est pas la question ici. Le code échoue lors de l'utilisation de Dim objRequest As Object
, que j'utilise ou non
Définissez objRequest = NEW MSXML2.XMLHTTP
avec la référence ou
Définissez objRequest = CreateObject ("MSXML2.XMLHTTP")
sans la référence.
La solution
Pour une raison quelconque, cela fonctionne:
Dim strPostData As String
Dim objRequest As Object
strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword
Set objRequest = New MSXML2.XMLHTTP
With objRequest
.Open "POST", "https://api.clickatell.com/http/auth", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send (strPostData)
GetSessionId = .responseText
End With
Au lieu de construire le strPostData ??code> codé en URL via la concaténation de chaînes, il est vivement d'utiliser une fonction de codage d'URL:
strPostData = "api_id=" & URLEncode(strApiId) & _
"&user=" & URLEncode(strUserName) & _
"&password=" & URLEncode(strPassword)
Ce fil contient quelques options pour une fonction URLEncode ()
: Comment puis-je URL encoder une chaîne dans Excel VBA?
Autres conseils
Si vous utilisez Dim objRequest As Object, vous devez alors coder:
Définissez objRequest = CreateObject ("MSXML2.XMLHTTP")
Je réalise que cela est presque identique au code de Tomalek ci-dessus (tout le mérite en revient!), mais cette question m'a aidé à trouver une solution complète à un problème que j'ai rencontré (Excel soumettant au serveur PHP, puis traitant de la réponse) ... donc au cas où cela pourrait aider quelqu'un d'autre:
Sub Button1_Click2()
Dim objXMLSendDoc As Object
Set objXMLSendDoc = New MSXML2.DOMDocument
objXMLSendDoc.async = False
Dim myxml As String
myxml = "<?xml version='1.0'?><Request>Do Something</Request>"
If Not objXMLSendDoc.LoadXML(myxml) Then
Err.Raise objXMLSendDoc.parseError.ErrorCode, , objXMLSendDoc.parseError.reason
End If
Dim objRequest As MSXML2.XMLHTTP
Set objRequest = New MSXML2.XMLHTTP
With objRequest
.Open "POST", "http://localhost/SISADraftCalcs/Test2.php", False
.setRequestHeader "Content-Type", "application/xml;charset=UTF-16"
.setRequestHeader "Cache-Control", "no-cache"
.send objXMLSendDoc
End With
Dim objXMLDoc As MSXML2.DOMDocument
Set objXMLDoc = objRequest.responseXML
If objXMLDoc.XML = "" Then
objXMLDoc.LoadXML objRequest.responseText
If objXMLDoc.parseError.ErrorCode <> 0 Then
MsgBox objXMLDoc.parseError.reason
End If
End If
Dim rootNode As IXMLDOMElement
Set rootNode = objXMLDoc.DocumentElement
MsgBox rootNode.SelectNodes("text").Item(0).text
End Sub