Веб сервис, VBScript
Добавлено: 01 окт 2008, 11:00
реально ли получить информацию с веб сервиса скриптом?
из студии я делал так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Переменные для подключения к Веб-сервису
Dim MyServices As New WS.organization_data
Dim objXDTO As Object
Dim strTime As String
Dim MyNetworkCredential As New NetworkCredential
Dim MyCredentialsCache As New CredentialCache
'Переменные для работы с объектом XDTO
Dim objStructuredGroup As Object
Dim objElements As Object
Dim objRoot As Object
Dim strChild As String
Dim strSeparator As String = " | "
MyNetworkCredential.UserName = txtName.Text
MyNetworkCredential.Password = txtPassword.Text
MyCredentialsCache.Add(New Uri("http://nikolay/ws/organizations.1cws"), "Basic", MyNetworkCredential)
MyServices.Credentials = MyCredentialsCache
strTime = Format(dtpDate.Value, "yyyy") & _
Format(dtpDate.Value, "MM") & _
Format(dtpDate.Value, "dd")
objXDTO = MyServices.get_data(strTime).group
For Each objStructuredGroup In objXDTO
objRoot = tvStructuredGroup.Nodes.Add(objStructuredGroup.name)
For Each objElements In objStructuredGroup.Elements
strChild = objElements.code & strSeparator & objElements.name & _
strSeparator & objElements.full_name & strSeparator & _
objElements.inn
objRoot.Nodes.Add(objStructuredGroup.name, strChild)
Next
Next
End Sub
из студии я делал так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Переменные для подключения к Веб-сервису
Dim MyServices As New WS.organization_data
Dim objXDTO As Object
Dim strTime As String
Dim MyNetworkCredential As New NetworkCredential
Dim MyCredentialsCache As New CredentialCache
'Переменные для работы с объектом XDTO
Dim objStructuredGroup As Object
Dim objElements As Object
Dim objRoot As Object
Dim strChild As String
Dim strSeparator As String = " | "
MyNetworkCredential.UserName = txtName.Text
MyNetworkCredential.Password = txtPassword.Text
MyCredentialsCache.Add(New Uri("http://nikolay/ws/organizations.1cws"), "Basic", MyNetworkCredential)
MyServices.Credentials = MyCredentialsCache
strTime = Format(dtpDate.Value, "yyyy") & _
Format(dtpDate.Value, "MM") & _
Format(dtpDate.Value, "dd")
objXDTO = MyServices.get_data(strTime).group
For Each objStructuredGroup In objXDTO
objRoot = tvStructuredGroup.Nodes.Add(objStructuredGroup.name)
For Each objElements In objStructuredGroup.Elements
strChild = objElements.code & strSeparator & objElements.name & _
strSeparator & objElements.full_name & strSeparator & _
objElements.inn
objRoot.Nodes.Add(objStructuredGroup.name, strChild)
Next
Next
End Sub