Прошу помощи. Интреграция базы MSSQL и Меркурий через шлюз на Delphi

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

Грозит голландской карой во все места - если завтра все не заработает!
А я начал месяц назад

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

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

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

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

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

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

кому не лень, гляньте готовый проект d2007
как избавиться от NS1, ... ?

вопрос снят

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

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

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

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

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

bamxx wrote:

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

а как?

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

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

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

Защищенного соединения не хватает. Я так пологаю.

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

bamxx wrote:

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

MultiPartFormDataStream := TidMultiPartFormDataStream.Create; MultiPartFormDataStream.AddFile('xml_file', sFileName, 'application/octet-stream'); IdHTTP1.Request.Username := 'optservice-'; IdHTTP1.Request.Password := 'hB9h'; try S := IdHTTP1.Post(sIP, MultiPartFormDataStream); except ...
sIP = https://api2.vetrf.ru:8002/platform/services/2.0/ApplicationManagementService
Пишет в except Error 401--Unauthorized

IdHTTP1.Request.BasicAuthentication := True;

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

если интересно, могу вложить нашу библиотеку для MS SQL в которой реализована расширенная процедура для отправки сообщений в меркурий.
Вся обработка, формирование сообщений у нас на TSQL.
гибко