Il metodo di invio MSXML2.XMLHTTP funziona con l'associazione anticipata, non riesce con l'associazione tardiva
-
08-07-2019 - |
Domanda
Il codice seguente funziona. Ma se commento la riga Dim objRequest As MSXML2.XMLHTTP
e rimuovo il commento sulla riga Dim objRequest As Object
fallisce con il messaggio di errore:
Il parametro non è corretto
Perché e cosa (se non altro) posso farci?
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, sì, lo so che dovrei farlo per far funzionare il mio codice senza un riferimento alla libreria dei tipi MSXML. Non è questo il problema qui. Il codice non riesce quando si utilizza Dim objRequest As Object
indipendentemente dal fatto che io utilizzi
Imposta objRequest = NEW MSXML2.XMLHTTP
con il riferimento, oppure
Imposta objRequest = CreateObject (" MSXML2.XMLHTTP ")
senza riferimento.
Soluzione
Per qualche motivo, funziona:
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
Invece di creare strPostData
con codifica URL tramite concatenazione di stringhe, è fortemente consigliabile utilizzare una funzione di codifica URL:
strPostData = "api_id=" & URLEncode(strApiId) & _
"&user=" & URLEncode(strUserName) & _
"&password=" & URLEncode(strPassword)
Un paio di scelte per una funzione URLEncode ()
in VBA sono in questa discussione: Come posso codificare l'URL di una stringa in Excel VBA?
Altri suggerimenti
Se si utilizza Dim objRequest As Object, è necessario codificare:
Imposta objRequest = CreateObject (" MSXML2.XMLHTTP ")
Mi rendo conto che questo è quasi identico al codice di Tomalek sopra (tutto il merito dovuto a te!), ma questa domanda mi ha aiutato a trovare una soluzione completa a un problema che avevo (Excel che invia al server PHP, quindi si occupa della risposta) ... quindi nel caso questo possa essere di aiuto a qualcun altro:
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