🚀 go-pugleaf

Jest ministerialna usługa od REGONów, działa na SOAPie, oto wsdl:

https://wyszukiwarkaregontest.stat.gov.pl/wsBIR/wsdl/UslugaBIRzewnPubl.xsd

Importuję go do Delphi i powstaje tradycyjnie plik pas z interfejsami
dostępowymi.

Wołam metodę od zalogowania:

var
  HTTPRIO: THTTPRIO;
  SessionToken: string;
  UslugaBIRzewnPubl: IUslugaBIRzewnPubl;
begin
  HTTPRIO := THTTPRIO.Create(nil);
  HTTPRIO.OnBeforeExecute := BeforeExecuteEvent;
  HTTPRIO.OnAfterExecute := AfterExecuteEvent;
  UslugaBIRzewnPubl := GetIUslugaBIRzewnPubl(False, '', HTTPRIO);
  SessionToken  := UslugaBIRzewnPubl.Zaloguj(UserKey);
end;

i w linii UslugaBIRzewnPubl.Zaloguj(UserKey) dostaję wyjątek:

The SOAP action specified on the message, '', does not match the HTTP SOAP
Action:
'http://CIS/BIR/PUBL/2014/07/IUslugaBIRzewnPubl/Zaloguj'

Request wygląda tak:

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://www.w3.org/2003/05/soap-envelope"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><SOAP-ENV:Body>
<Zaloguj
xmlns="http://CIS/BIR/PUBL/2014/07"><pKluczUzytkownika>abcde12345abcde12345</pKluczUzytkownika>
</Zaloguj>
</SOAP-ENV:Body></SOAP-ENV:Envelope>


a według dokumentacji powinien mieć jeszcze sekcję <soap:Header> z
definicją <Action>, czyli powinien wyglądać tak:

<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope"
xmlns:ns="http://CIS/BIR/PUBL/2014/07"> 
   <soap:Header xmlns:wsa="http://www.w3.org/2005/08/addressing">
<wsa:Action>http://CIS/BIR/PUBL/2014/07/IUslugaBIRzewnPubl/Zaloguj</wsa:Action>
<wsa:To>https://wyszukiwarkaregontest.stat.gov.pl/wsBIR/UslugaBIRzewnPubl.svc</wsa:To> 
   </soap:Header>
   <soap:Body>
      <ns:Zaloguj>
         <ns:pKluczUzytkownika>tutaj
luczużytkownika...</ns:pKluczUzytkownika>
      </ns:Zaloguj>
   </soap:Body>
</soap:Envelope>

Zatem brakuje tego:

   <soap:Header xmlns:wsa="http://www.w3.org/2005/08/addressing">
<wsa:Action>http://CIS/BIR/PUBL/2014/07/IUslugaBIRzewnPubl/Zaloguj</wsa:Action>
<wsa:To>https://wyszukiwarkaregontest.stat.gov.pl/wsBIR/UslugaBIRzewnPubl.svc</wsa:To> 
   </soap:Header>


Jak zmusić Delphiowego SOAPa, by prawidłowo generował requesty?

-- 
pozdrawiam
Roman Tyczka