VBNet - Форум - WEB Service

Вопрос: WEB Service Добавлено: 09.10.08 05:32

Автор вопроса: Dully | ICQ: 229882730

есть вот такое дело:

    'Переменные для подключения к Веб-сервису
        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 = " | "

        'Установка свойств "MyCredentialsCache" для аутентификации
        '   пользователя для доступа к Веб-сервису
        MyNetworkCredential.UserName = txtName.Text
        MyNetworkCredential.Password = txtPassword.Text
        MyCredentialsCache.Add(New Uri("http://localhost/ws/organizations.1cws"), "Basic", MyNetworkCredential)
        MyServices.Credentials = MyCredentialsCache

        'Создание строки с содержанием даты для передачи в качестве параметра
        '   методу веб-сервиса
        '   формат строки "20080909" - год + месяц + день, 8 знаков
        strTime = Format(dtpDate.Value, "yyyy") & _
            Format(dtpDate.Value, "MM") & _
            Format(dtpDate.Value, "dd")

        'Получение данных "СтруктурныеГруппы" объекта XDTO
        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

WS это прицепленная веб ссылка на файл WSDL

вопросик.. как можно вручную добавить/сформировать эту ссылку или изменить текущую...
потому как если я запускаю на другом компе то он все равно ломиться на мой...

или какими еще методами можно собрать клиента веб сервиса...
Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: