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

Использую http://api.vetrf.ru/schema/platform/services/2.0-RC-last/ams-mercury-g2b.service_v2.0_pilot.wsdl
В SoapUI через submitApplicationRequest выполняю запрос, получаю applicationId.
Этот applicationId затем использую в программе:
var
clnt: ApplicationManagementService_v1.ApplicationManagementServicePortType;
Req: ApplicationManagementService_v1.receiveApplicationResultRequest;
Res: ApplicationManagementService_v1.receiveApplicationResultResponse;

begin
...
clnt:=ApplicationManagementService_v1.GetApplicationManagementServicePortType(True, '', rio);

Req:=ApplicationManagementService_v1.receiveApplicationResultRequest.Create;
Req.apiKey:=apiKey;
Req.issuerId:=issuerId;
Req.applicationId:=applicationId;
Res:=clnt.receiveApplicationResult(Req);

end;

Запрос выполняется со статусом CONFIRMED, но возвращает пустые данные, хотя в SoapUI через receiveApplicationResultRequest с тем же самым applicationId результат запроса содержит список данных.
Подскажите, пожалуйста, как правильно использовать функции submitApplicationRequest и receiveApplicationResultRequest и как через них вызывать методы, например, getVetDocumentListRequest?

Найдите в файле ...\studio\xxx\source\soap\Soap.Rio.pas (это в исходниках самого Delphi)

добавьте в var

и далее

приведите блок кода (найдете по комментариям) к виду

В результате там же, где .exe при работе будут писаться запросы-ответы через soap. Но в один и тот же файл, разумеется.
Пересоберите проект (Shift-F9)

Владимир Игнатов wrote:Найдите в файле ...\studio\xxx\source\soap\Soap.Rio.pas (это в исходниках самого Delphi)

procedure TRio.DoDispatch(const Context: TInvContext; MethNum: Integer; const MethMD: TIntfMethEntry);

добавьте в var
{$IFDEF DEBUG} FS: TFileStream; {$ENDIF}

и далее

приведите блок кода (найдете по комментариям) к виду
try {$IFDEF Debug} FS:=TFileStream.Create(ExtractFilePath(Paramstr(0))+'rio_req.txt', fmCreate+fmOpenReadWrite); Req.Position:=0; FS.CopyFrom(Req, Req.Size); FS.Free; {$ENDIF} FWebNode.Execute(Req, Resp); {$IFDEF DEBUG} FS:=TFileStream.Create(ExtractFilePath(Paramstr(0))+'rio_resp.txt', fmCreate+fmOpenReadWrite); Resp.Position:=0; FS.CopyFrom(Resp, Resp.Size); FS.Free; {$ENDIF} finally { Clear Outbound headers } FHeadersOutBound.Clear; end; { Assume the response is the SOAP Envelope in XML format. NOTE: In case of attachments, this could actually be a Multipart/Related response } RespXML := Resp;

В результате там же, где .exe при работе будут писаться запросы-ответы через soap. Но в один и тот же файл, разумеется.
Пересоберите проект (Shift-F9)

Сделал все так же, но ничего не поменялось. Поставил точку останова в место, где должен записываться запрос в файл - программа туда даже не заходит.
Может, я не те методы использую или использую их неправильно?

Профиль сборки - Debug?
Еще нужно этот файл (Soap.Rio.pas) добавить в проект, тогда его пересоберет компилятор.

Спасибо, после добавления Soap.Rio.pas в проект запросы стали записываться в файлы.
То есть теперь нужно парсить xml-файлы? Нет ли возможности получать результаты через методы, которые встроены в wsdl?
Как отправить запрос, например, getVetDocumentListRequest, через submitApplicationRequest? Неужели с помощью xml-файла?

Теперь можно посмотреть, что отправляется, а что принимается. Это сильно помогает.
Результат, разумеется, можно принимать через объект, созданный из wsdl. А анализ принятого xml помогает понять, в каком месте объекта искать ответ.

Владимир Игнатов wrote:
Результат, разумеется, можно принимать через объект, созданный из wsdl.

Не могли бы дать хоть какой-нибудь пример?

Jupiter wrote:Не могли бы дать хоть какой-нибудь пример?

Живого примера, который не стыдно показать народу не имею.
Что в ответе, который confirmed?
Вот прямо rio_resp.txt

Владимир Игнатов wrote:

Jupiter wrote:Не могли бы дать хоть какой-нибудь пример?

Живого примера, который не стыдно показать народу не имею.
Что в ответе, который confirmed?

В ответе <status>COMPLETED</status>
А дальше перечисление записей - все точно так же, как и в SoapUI по тому же запросу

http://vetrf.ru/vetrf-forum/posts/list/7130.page#44785 - сделано?

Владимир Игнатов wrote:http://vetrf.ru/vetrf-forum/posts/list/7130.page#44785 - сделано?

Не сделано. Подскажите, пожалуйста, где должен находиться этот application_v1.1.xsd и что делать после его изменения

Тащим wsdl и все прилежащие xsd себе на диск, делаем изменения, заново делаем import WSDL из файлов, а не с URL.
Внимательно смотрим комментарии где-то в начале файла pas, чтобы там не было "не импортировано, т.к. нет такого файла", что означает, что не все xsd скачаны.

Изменил application_v1.1.xsd, сделал импорт wsdl в проект - мало что поменялось, запрос по-прежнему возвращает пустые данные, хотя в rio_resp.txt записывается все как надо.
Как отправить запрос в Delphi и получить ответ?

Не там ищете ответ?
В response должен быть responseWrapper, а в нем - куча возможных возвращаемых объектов. Какой-то из них - Ваш.

Владимир Игнатов wrote:Не там ищете ответ?
В response должен быть responseWrapper, а в нем - куча возможных возвращаемых объектов. Какой-то из них - Ваш.

Так и есть, и в нем нет данных