Не получается протестировать веб-сервис для Галактики

Приемы и подходы, обмен опытом

Модераторы: Screw, larin

Ответить
Max_Ural
партнер
Сообщения: 82
Зарегистрирован: Ср, 19/09/2007 08:35
Имя Фамилия: Максим Шагубаков
Откуда: Галактика-Урал
Контактная информация:

Не получается протестировать веб-сервис для Галактики

Сообщение Max_Ural »

Добрый день.
Пытаюсь протестировать настроенный веб-сервис CGoods.

1. Установил сервер приложения Галактики для веб-сервисов по документации.
2. Настроил на IIS веб-сервисы с помощью утилиты IisApi
Когда захожу на страницу http://localhost/vipservices/CGOODS.asmx, выводится список доступных методов.
Первый вопрос вот какой:
При вызове метода InitId можно указать Id и получить МЦ
У меня при этом открывается новое окно со следующим запросом:

Код: Выделить всё

<?xml version="1.0" encoding="utf-8" ?> 
- <ifcHandle xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://galaktika.ru/VipServices/">
  <vipIfcComponent>CGOODS</vipIfcComponent> 
  <vipIfcName>vGoods</vipIfcName> 
  <constructorName>InitId</constructorName> 
- <parameters>
  <anyType xsi:type="xsd:long">1</anyType> 
  </parameters>
  <properties /> 
  </ifcHandle>
Правильно ли это работает?
3. Написал тестовый клиент на Delphi.
Сначала пробовал следующим образом обращаться к веб-сервису

Код: Выделить всё

  id := StrToInt(edt1.Text);
  ser := GetCGOODSServiceSoap(true,'',htpr1);
  h := ser.vGoods_InitId(id);
  Ar := ser.IGoods_getData(h);
На последней строке возникает ошибка:
Серверу не удалось обработать запрос. ---> В экземпляре объекта не задана ссылка на объект

Добавил еще строку с вывозом метода Init - результать тот же.

Код: Выделить всё

  h := ser.vGoods_Init();
  h := ser.vGoods_InitId(id);
  Ar := ser.IGoods_getData(h);
Подскажите пожалуйста, что я не так делаю?
Ответить