Добрый день, коллеги!
Разрабатываю программу получения реестра должников на Delphi. Ниже приведу кусок кода программы:
---cut here---
Var Date1, Date2 : TXSDateTime;
Msgs : ArrayOfInt;
iServ : IMessageService;
begin
HTTPRIO1.HTTPWebNode.UserName:='UserName';
HTTPRIO1.HTTPWebNode.Password:='password';
iServ:=GetIMessageService(True,'http://bankrot.fedresurs.ru/MessageService/WebService.svc?singlewsdl',HTTPRIO1);
Date1:=TXSDateTime.Create;
Date2:=TXSDateTime.Create;
Date1:=DTToXSDateTime(IncDay(Now,-30));
Date2:=DTToXSDateTime(IncDay(Now,-1));
try
Msgs:=iServ.GetMessageIds(Date1,Date2);
Label1.Caption:='Всего сообщений за период: '+IntToStr(High(Msgs));
finally
Date1.Free;
Date2.Free;
end;
end;
---cut here---
Конечно, подключаю модуль WebServices, созданный с помощью WDSL Importer. Компиляция проходит без проблем.
Перед вызовом строки Msgs:=iServ.GetMessageIds(Date1,Date2); переменные Date1 и Date2 имеют вид:
Date1=([], '2015-11-02T10:36:48')
Date2=([], '2015-12-01T10:36:49')
После вызовы GetMessageIds получаю ответ, что "Максимальный период для запроса данных - 100 дн."
Какие будут рекомендации?
С уважением,
Александр.
