|
[Search] Поиск   [Recent Topics] Последние темы   [Hottest Topics] Горячие темы   [Members]  Список участников   [Groups] На главную страницу 
[Register] Регистрация / 
[Login] Вход 
Прошу помощи. Интреграция базы MSSQL и Меркурий через шлюз на Delphi  XML
Индекс форума » Автоматизированная система МЕРКУРИЙ
Автор Сообщение
start


Зарегистрирован: 20/10/2017 10:58:42
Сообщений: 28
Оффлайн

bamxx wrote:
это сообщение для Start: как там Тигран поживает?


Грозит голландской карой во все места - если завтра все не заработает!
А я начал месяц назад
Сплю по 4 часа в сутки...
Туфта получается - учетная система не имеет привязки к партии, ВСД будут от произвольной входящей партии...
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

Так сконвертировался wsdl

 Имя файла ams_mercury_g2b.pas.zip [Disk] Загрузить
 Описание
 Размер файла 56 Kbytes
 Скачано:  156 раз

[Email]
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

start wrote:
Туфта получается - учетная система не имеет привязки к партии, ВСД будут от произвольной входящей партии...

Не надо хаять мою систему, в 1996, когда я начинал писать rm-office, беспартионность было преимуществом
Отсутствие партионности у меня давно скомпесированно подтоварами
[Email]
start


Зарегистрирован: 20/10/2017 10:58:42
Сообщений: 28
Оффлайн

bamxx wrote:
Не надо хаять мою систему

Я не систему хаю, а говорю о сложившейся ситуации...
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

кому не лень, гляньте готовый проект d2007
как избавиться от NS1, ... ?
 Имя файла 22.zip [Disk] Загрузить
 Описание
 Размер файла 74 Kbytes
 Скачано:  169 раз

[Email]
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

вопрос снят

Это сообщение было редактировано 5 раз. Последнее обновление произошло в 03/07/2018 17:06:51

[Email]
Vladimir2017

[Avatar]

Зарегистрирован: 02/10/2017 14:31:03
Сообщений: 359
Оффлайн

bamxx wrote:Разница между получившимся запросом и примером на http://help.vetrf.ru/wiki/GetVetDocumentListOperation_v2.0 наличие лишнего тэга request
Как от него избавиться?


Надо править собранный из wsdl юнит, там где-то внизу указывается что надо указывать предка значения.

А почему не хотите собирать/разбирать запросы вручную? Всяко быстрее и надежнее.
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

А почему не хотите собирать/разбирать запросы вручную? Всяко быстрее и надежнее.

а как сформированный запрос запихать на их сервер, через TIdHTTP ?

Это сообщение было редактировано 1 раз. Последнее обновление произошло в 03/07/2018 17:13:22

[Email]
Vladimir2017

[Avatar]

Зарегистрирован: 02/10/2017 14:31:03
Сообщений: 359
Оффлайн

bamxx wrote:
А почему не хотите собирать/разбирать запросы вручную? Всяко быстрее и надежнее.

а как?


Берете запрос, сохраняете как шаблон на диске. При отправке открываете его, заполняете нужными данными сохраняете в TStringStream и отправляете примерно так: SoapClient.HTTPWebNode.Receive(SoapClient.HTTPWebNode.Send(Request), Response) Потом разбираете Response, который тоже TStringStream, извлекая из него ApplicationID. А лучше вообще работать напрямую через IdHTTP.
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

Vladimir2017 wrote:А лучше вообще работать напрямую через IdHTTP.


sIP = https://api2.vetrf.ru:8002/platform/services/2.0/ApplicationManagementService
Пишет в except Error 401--Unauthorized

Это сообщение было редактировано 4 раз. Последнее обновление произошло в 03/07/2018 22:18:23

[Email]
oleg-x


Зарегистрирован: 20/11/2017 11:24:40
Сообщений: 1436
Оффлайн

Защищенного соединения не хватает. Я так пологаю.
https://vk.com/mercuriy_rf
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

блин, не написал, что добавлен
IOHandler := IdSSLIOHandlerSocket1;
[Email]
Vladimir2017

[Avatar]

Зарегистрирован: 02/10/2017 14:31:03
Сообщений: 359
Оффлайн

bamxx wrote:
Vladimir2017 wrote:А лучше вообще работать напрямую через IdHTTP.


sIP = https://api2.vetrf.ru:8002/platform/services/2.0/ApplicationManagementService
Пишет в except Error 401--Unauthorized


IdHTTP1.Request.BasicAuthentication := True;
bamxx


Зарегистрирован: 21/05/2018 14:38:45
Сообщений: 22
Оффлайн

Крик души!
Привет всем дельфистам, которые вынуждены писать интеграцию с ветслужбой!
Я уважаю Ваше желание ползать по wsdl-ной обертке: копаться во всяких там
getVetDocumentListRequest,
ams_mercury_g2b.submitApplicationRequest.Create;
count := TXSDecimal.Create; и т.п.
Полтора месяца я был в панике - пытался приконнектиться к их серваку,
а потом работать с этими безумными словами, типа "ams_mercury_g2b.submitApplicationRequest.Create;"
Ведь, я не знал как подступиться к soap-серверу
Конечно, для меня самое "идеальное" решение было бы сформировать файло, заслать, получить ответ, разобрать его (кто делал ЕГАИС, поймет)
Вчера Vladimir2017 поселил во мне надежду
Ну, в общем, ответ, как заслать файло и получить ответ
[Email]
E.Fedyakov


Зарегистрирован: 02/07/2018 10:29:54
Сообщений: 8
Оффлайн

если интересно, могу вложить нашу библиотеку для MS SQL в которой реализована расширенная процедура для отправки сообщений в меркурий.
Вся обработка, формирование сообщений у нас на TSQL.
гибко
 
Индекс форума » Автоматизированная система МЕРКУРИЙ
Перейти:   

Powered by JForum 2.1.8 © JForum Team