Меркурий + Delphi

Народ, привет!

Предлагаю делфистам тут делиться проблемами и решениями.
Если кто не в курсе с чего начать вот статья про wsdl
http://www.delphimaster.ru/articles/web_delphi/index3.html

Сразу начну с проблемы которую пытаюсь решить.
Загружаю ams_mercury_g2b.service_v2.1_pilot.wsdl с
http://help.vetrf.ru/wiki/%D0%92%D0%B5%D1%82%D0%B8%D1%81.API
пытаюсь импортировать интерфейсы, пишет вот такую загогулину
https://ibb.co/mSqOf8

т.е. нужен "mercury-g2b.service_v2.1.wsdl"
нахожу ссылку http://api.vetrf.ru/schema/platform/services/2.1-last/mercury-g2b.service_v2.1.wsdl
на зависимость на ветисАпи, но она "404 Not Found".

Админы, что делать?

Посмотрите по форуму, несколько тем про дельфи уже есть. Даже готовый проект им. start'a есть, берите-пробуйте.

Владимир Игнатов wrote:Посмотрите по форуму, несколько тем про дельфи уже есть. Даже готовый проект им. start'a есть, берите-пробуйте.

Почитал, спасибо за инфу!
Однако мой вопрос актуален, зависимые ВСДЛ не скачиваются, пишет "404 Not Found"

oazis wrote:Однако мой вопрос актуален, зависимые ВСДЛ не скачиваются, пишет "404 Not Found"

Не останавливайтесь на достигнутом, читайте дальше всю эту стену плача, по недоразумению называемую неграмотными домохозяйками "форумом Меркурия", здесь представлен весь спектр мнений, от руководящего "все работает, кто хотел - сделал, остальные - нерадивые и ленивые" и до вселенских стонов разработчиков и пользователей "ничего нормально не работает, все плохо, одни ошибки, вчера хоть плохо, но работало, сегодня не работает вовсе". Вчитывайтесь, вникайте!

вобчем остановился на "ams-mercury-g2b.service_v2.0_pilot.wsdl"
по ней зависимости скачиваются.

децол протупил что типы не определены, в модуле интерфейсов, потом сообразил что не Пушкину же за меня это делать.
Переопределил на WideString .
Сижу жду когда бухи разродятся доступом к АПИ.

Народ, всем привет. Понимаю что тема заезжена, но может кому пригодится, да и я может что спрошу когда.
Вобщем думал отстали от меня по меркурию, ан нет, пришлось гальванизировать трупик.

Начал с того что поставил RAD 10.2, до того (год назад) пользовался Delphi 7, но как говорят там криво работает
Зашел в "component", "импорт wsdl" и загрузил всё что есть по ссылке с офф-сайта АПИ 2.0
Для начала пишу загрузку справочников. Взял модуль DictionaryService_v2 и немного подпилил его для упрощения работы.
Жестко зашил логин пароль и приделал обработчик для РИО в функции
GetDictionaryServicePortType

было:

стало:

далее сами обработчики, для контроля обмена XML, расположены в основной форме:

Запрос ед.изм. GetUnitChangesList

procedure TSDIAppForm.Button4Click(Sender: TObject);
var
  i, j : Integer;
  UnitChangesListRequest : getUnitChangesListRequest;
  UnitChangesListResponse : getUnitChangesListResponse;

ES : DictionaryServicePortType;
begin
//    function  GetUnitChangesList(const request: getUnitChangesListRequest): getUnitChangesListResponse; stdcall;
  UnitChangesListRequest := getUnitChangesListRequest.Create;  //создаем объект запроса
  UnitChangesListResponse := getUnitChangesListResponse.Create; //создаем объект ответа

// для разборок кто есть кто в объектах полезно покликать по типам свойств и в общих чертах усвоить
  UnitChangesListRequest.listOptions := DictionaryService_v2.listOptions.Create;
  UnitChangesListRequest.listOptions.count := TXSDecimal.Create;
  UnitChangesListRequest.listOptions.count.DecimalString := '1000';
  UnitChangesListRequest.listOptions.offset := TXSDecimal.Create;
  UnitChangesListRequest.listOptions.offset.DecimalString := '0';
  UnitChangesListRequest.updateDateInterval := DictionaryService_v2.updateDateInterval.Create;
  UnitChangesListRequest.updateDateInterval.beginDate := TXSDateTime.Create;
  UnitChangesListRequest.updateDateInterval.beginDate.AsDateTime:=StrToDate('01.12.2000');
  UnitChangesListRequest.updateDateInterval.endDate := TXSDateTime.Create;
  UnitChangesListRequest.updateDateInterval.endDate.AsDateTime:=StrToDate('01.05.2019');

ES := GetDictionaryServicePortType(); //сам интерфейс доступа soap

UnitChangesListResponse := ES.GetUnitChangesList(UnitChangesListRequest); //ну и функция загрузки справочника
  //для написания обработчика загружаю полученный XML в любой редактор XML чтоб получить его в виде таблицы
  //удобно видеть свойства и иерархию

j := 0;
  for i := 0 to UnitChangesListResponse.unitList.total-1 do begin
    if UnitChangesListResponse.unitList.unit_[i].active then begin
      inc(j);
      Memo2.Lines.Add(UnitChangesListResponse.unitList.unit_[i].guid+' '+UnitChangesListResponse.unitList.unit_[i].fullName);
    end;

end;
  Memo2.Lines.Add(IntToStr(j));

UnitChangesListRequest.Free;
  UnitChangesListResponse.Free;

end;

возвращаюсь к теме
запрос продукта по его GUID
хохма в том что на сайте написано

Операция GetProductByGuid предназначена для получения актуальной версии записи продукции по её глобальному идентификатору

что вводит в заблуждение. Почитав исходники нашел что сам товар надо грузить функцией GetProductItemByGuid

oazis wrote:возвращаюсь к теме
запрос продукта по его GUID
хохма в том что на сайте написано

Операция GetProductByGuid предназначена для получения актуальной версии записи продукции по её глобальному идентификатору

что вводит в заблуждение. Почитав исходники нашел что сам товар надо грузить функцией GetProductItemByGuid

В Меркурии есть тип продукта (1 уровень), продукт (2 уровень), субпродукт (3 уровень) и номенклатура производителей (4 уровень номенклатуры). Для каждого уровня свой запрос (кроме 1 уровня).

Ну вот, добрался я и до сложного. Для начала решил сделать getVetDocumentListRequest, но какая то хрень, то ли руки у меня кривые, то ли дельфа не вкуривает ВСДЛ правильно.
Но не понимаю как в обертку submitApplicationRequest передать getVetDocumentListRequest. В примерах видел прямое присвоение
типа такого

Но в моем ВСДЛ getVetDocumentListRequest не является членом ApplicationDataWrapper

Скажу прямо, подзатрахался, и решил для начала просто грузануть готовый XML. Для этого, чтоб не ломать общий подход, решил влезть в RIO
и подсунуть свой XML на момент передачи штатно созданного.

На справочнике подход отработал, завтра буду ковырять сложный запрос.

procedure TSDIAppForm.RioBeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
  SS: TStringStream;
  sTmp : TStringList;
begin
  sTmp := TStringList.Create;
  sTmp.Add('<?xml version="1.0"?><SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Body><getUnitChangesListRequest ');
  sTmp.Add('xmlns="http://api.vetrf.ru/schema/cdm/registry/ws-definitions/v2"><listOptions xmlns="http://api.vetrf.ru/schema/cdm/base">');
  sTmp.Add('<count>1000</count><offset>0</offset></listOptions><updateDateInterval xmlns="http://api.vetrf.ru/schema/cdm/base"><beginDate>2000-12-01T00:00:00.000+05:00</beginDate><endDate>2019-05-01T00:00:00.000+06:00</endDate>');
  sTmp.Add('</updateDateInterval></getUnitChangesListRequest></SOAP-ENV:Body></SOAP-ENV:Envelope>');

SS := TStringStream.Create('');
  try
    SS.LoadFromStream(SOAPRequest);
    Memo1.Lines.Add('---BeforeExecute---');
    Memo1.Lines.Add(SS.DataString);

Memo1.Lines.Add('---BeforeExecute 22222222---');

SOAPRequest.Position := 0;
    SOAPRequest.size := length(sTmp.Text);
    sTmp.SaveToStream(SOAPRequest);

SS.LoadFromStream(SOAPRequest);
    Memo1.Lines.Add(SS.DataString);
  finally
    SS.Free;
    sTmp.Free;
  end;
end;

Самое обидное что в МС Студио ВСДЛ въезжает более корректно. Но блин нет сил вникать в подробности разработки на C#.

serg882 wrote:

oazis wrote:возвращаюсь к теме
запрос продукта по его GUID
хохма в том что на сайте написано

Операция GetProductByGuid предназначена для получения актуальной версии записи продукции по её глобальному идентификатору

что вводит в заблуждение. Почитав исходники нашел что сам товар надо грузить функцией GetProductItemByGuid

В Меркурии есть тип продукта (1 уровень), продукт (2 уровень), субпродукт (3 уровень) и номенклатура производителей (4 уровень номенклатуры). Для каждого уровня свой запрос (кроме 1 уровня).

Спасибо камрад!!! , просто у меня некому проконсультировать, я сам себе и постановщик задачи и кодер и ещё должен во всей ветеринарии разобраться ...

на d7 проще вручную xml нарисовать, чем с soap разбираться

"я стар, я очень стар, я просто СУПЕР СТАР!!! шутка конечно ..." (с) Гоблин

Короче, у меня получилось запихнуть ручной сложный XML запрос, почти с первого разу

создал глобальный slRequest : TStringList;
пихаю в него вручную запрос типа как в примере http://help.vetrf.ru/wiki/GetVetDocumentListOperationForVetControl#.D0.9E.D0.B1.D1.8A.D0.B5.D0.BA.D1.82_getVetDocumentListRequest .
В RioBeforeExecute проверяю не пустой ли slRequest и подсовываю вместо штатного, как описано выше ....
запрос ушел без ошибки, получил applicationId.
После обеда запрошу ответ ...