BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Работа с WEB сервисами, работа с XML

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Работа с WEB сервисами, работа с XML, вопрос о возможностях Б-5
 
Коллеги, добрый день.

Для реализации задачи поставленной клиентом необходимо из Б-5 иметь возможность работать с WEB сервисами а именно отправлять сервису запрос и получать ответ. Так же для работы с возвращёнными данными необходимо иметь возможность работать с XML, желательно удобнее, чем с текстовой строкой.

Вопрос: Б-5 + Harbour + WEB services + XML что почитать, где посмотреть примеры на эту тему
Живому всё хорошо.
 
Привет, о каком именно сервисе идет речь? Если не секрет.
С уважением,
Ильин Евгений
 
Нет не секрет.
Требуется разработать приложение для учёта ипотечных договоров. Это приложение будет разрабатываться на "нейтральном" языке. Стоит задача наладить обмен документами оплаты (приходные кассовые ордера, выписки банка) между Б-5 и приложением. Документ оплаты создаётся в Б-5. Дальше предполагается передача информации приложению о ссудозаёмщике и получение от приложения информации о состоянии расчёта с ссудозаёмщиком.
Пока две рабочие идеи: обмен информацией между приложением и Б-5 посредством COM объекта (его нужно писать) или посредством WEB сервиса (его также нужно писать)
Живому всё хорошо.
 
Добрый день!

Из БЭСТ-5 мы работаем с web сервисами, скажем проверяем ИНН и КПП на сервисе ФНС, получаем данные по курсам валют с сервиса ЦБ...
Напиши в Hotline и программисты дадут примеры обращения.
 
Женя лично для тебя напишу раз такое дело :)



Код
 TRY
       xNet:=OleCreateObject('WinHTTP.WinHttpRequest.5.1')
   CATCH
       errorMsg("Обмен с сервером не доступен!")
      lError:=.T.
   END

   IF lError
      RETURN NIL
   ELSE
       xNet:SetTimeouts(0,0,0,0)
       lError:=.F.
   ENDIF


как видишь все банально - читаем документацию от винды :) Там все есть. Б5 тут ни причем, он просто может этим пользоваться


Дальше рядовой гет или пост
Например

Код
    xOpt:=xNet:Open('GET', cUrl)
    xNet:Set ("Option", 0, "best5")
    xNet:Set ("Option", 4, 13056)
    xNet:Send('')
    cRet:=xNet:Status
    xStatus:=xNet:ResponseText
описание все там же к винде,точнее к Winhttp

Дальше если запрос возвращает XML то его просто



Код
   xDoc:=oXml:Read(xStatus)
а дальше по накатанной.
Смотришь в отладчике на xDoc и пишешь как тебе надо
 
Спасибо, Костя.
Живому всё хорошо.
Страницы: 1
Читают тему (гостей: 1)