Код ниже работает. Но если я закомментируйте строку Dim objRequest As MSXML2.XMLHTTP
и раскомментировать строку Dim objRequest As Object
он терпит неудачу с сообщением об ошибке:Метод отправки MSXML2.XMLHTTP работает с ранним связыванием, не работает с последним связыванием
Параметр неверен
Почему, и что (если что-нибудь) я могу поделать?
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, да, я знаю, что я должен был бы сделать это для того, чтобы мой код, чтобы работать без ссылки на библиотеку типов MSXML. Это не проблема. Код не при использовании Dim objRequest As Object
независимо от того, используется ли я
Set objRequest = NEW MSXML2.XMLHTTP
с ссылкой, или
Set objRequest = CreateObject("MSXML2.XMLHTTP")
без ссылки.
Yay! Спасибо, Томалак, это исправило это! :) – 2008-11-21 14:28:01