Web Service

Тема в разделе "Lotus - Программирование", создана пользователем Gor, 2 апр 2008.

  1. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    Всем доброго времени суток.
    Работаю с 6.5 лотусом...
    Вычитал вот данную вещь даже забыл где уже... помоему в жж у кого то из форума))

    Здесь речь идёт про WebService.
    Мне данный способ полностью походит, но есть какие нибудь примеры как это сделать?? Или кто нибудь про данный способ может рассказать поподробнее??? понятно что главная моя задача состоит в подключении к WEB сервису
    т.е. как создать объект mssopap и какие методы в данном классе есть итд итп...
     
  2. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    И вообще хочется узнать возможен ли вызов Веб Сервиса в Domino 6.5, есть ли инструменты работы с ним в этой версии??? А то как я понял в 7-ке функционал под это всё дело есть, а в 6.5 я его не нашёл...

    нашёл вроде бы примеры как вызывать WEB servicы

    пытаюсь сделать следующее
    Код (Text):
    Sub GetEmail(personname As String)
    'Предоставить месторасположение WSDL-файла.
    'Используется адрес localhost, если служба запущена в Domino Designer
    'измените этот URL для указания месторасположения базы данных, содержащей web-службу
    sWSDL = "http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1"
    'Создать новый объект MSSOAP
    Set Client =CreateObject("MSSOAP.SoapClient")
    'Инициализировать подключение к WSDL-файлу и получить WSDL-структуру
    Call Client.mssoapinit (sWSDL)
    'Вызвать метод или функцию, предоставляемую web-службой
    'Вы получите ошибку, если вызовете несуществующую функцию или предоставите неправильный тип параметра
    result = Client.ZrummLnMatCreate(personname)
    'результаты вывода в окно сообщения
    Messagebox result, MB_OK, "Get Email"
    End Sub

    http://gmvaz.gmavtovaz.local:8000/sap/bc/s...00&wsdl=1.1
    это моя ссылка на WEB сервис

    по ссылке сервис через браузер открывается
    SOAP Toolkit 3.0 я установил

    а вот при запуске кода выдаёт вот такую ошибку -

    AUTOMATION OBJECT ERROR

    причём ошибку выдаёт вот на этой строчке
    Код (Text):
    result = Client.ZrummLnMatCreate(personname)
    Почему не подскажите?
     
  3. Sandr

    Sandr Гость

    ZrummLnMatCreate - че за метод такой?
     
  4. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    Код я немного переделал но не работает всё равно...
    Это метод в который должен вызываться с 6-ю параметрами))
    Данный метод должен возвращать в переменные s1,s2,s3 - True, если входящие параметры 111 222 333

    Код (Text):
    'Предоставить месторасположение WSDL-файла.
    'Используется адрес localhost, если служба запущена в Domino Designer
    'измените этот URL для указания месторасположения базы данных, содержащей web-службу
    sWSDL = "http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1"
    'Создать новый объект MSSOAP
    Set Client =CreateObject("MSSOAP.SoapClient")
    'Инициализировать подключение к WSDL-файлу и получить WSDL-структуру
    Call Client.mssoapinit (sWSDL)
    'Вызвать метод или функцию, предоставляемую web-службой
    'Вы получите ошибку, если вызовете несуществующую функцию или предоставите неправильный тип параметра
    Dim s1, s2, s3 As String   
    Call Client.ZrummLnMatCreate("111","222","333",s1,s2,s3)
    'результаты вывода в окно сообщения
    Messagebox result, MB_OK, "Get Email"
    Вот в принципе и всё... не работает всё равно - Error automation request...
    Но у меня такое подозрение что не инициируется объект MSSoap...
    Потому что в дебаггере после Set Client - у клиента просто появляется свойство объекта и всё...
     
  5. Gor

    Gor Well-Known Member

    Регистрация:
    7 июн 2005
    Сообщения:
    517
    Симпатии:
    2
    подключился к WebServicу на Делфях=)))))
    Значения записывает и возвращет тоже
    Код (Text):
    begin
    ZRUMM_LN_MAT_CREATE11 :=GetZRUMM_LN_MAT_CREATE(true,'http://gmvaz.gmavtovaz.local:8000/sap/bc/srt/rfc/sap/ZRUMM_LN_MAT_CREATE?sap-client=100&wsdl=1.1');
    ZRUMM_LN_MAT_CREATE11.ZrummLnMatCreate(edit4.Text,edit5.Text,edit6.Text,s,s1,s2);
    edit1.Text := s;
    edit2.Text := s1;
    edit3.Text := s2;
    end;
    Вроде бы всё идентично также как и в лотусе... а в Лотусе до сих пор не работает((((((((((((((((((((
     
  6. Sandr

    Sandr Гость

    Может лотус занимает порт 8000? Попробуйте при включенном лотусе простучать порт...
     
  7. noMugoP

    noMugoP Гость

    Gor
    Если ты нашел пещение этой проблемы, то пожалуйста напиши, так как я уже много дней немагу решить её. :)
     
Загрузка...
Похожие Темы - Web Service
  1. Proger J.
    Ответов:
    1
    Просмотров:
    201
  2. TAPAKAHATOP
    Ответов:
    4
    Просмотров:
    427
  3. Xalet
    Ответов:
    8
    Просмотров:
    967
  4. lmike
    Ответов:
    4
    Просмотров:
    758
  5. doka
    Ответов:
    1
    Просмотров:
    822

Поделиться этой страницей