Доброго дня.
Может кто подскажет, как заполнить стандартный header в soap сообщении в webservice.
Если создать класс:
type
MyHeader = class(TSOAPHeader)
private
FUser: string;
FPass: string;
published
property User: String read FUser write FUser;
property Pass: String read FPass write FPass;
end;
и затем сформировать:
Headers := Self as ISoapHeaders;
H := MyHeader.Create;
H.User:='User';
H.Pass:='password';
Headers.Send(H);
то в итоге формируется xml:
<SOAP-ENV:Header SOAP-ENV:encodingStyle="
http://schemas.xmlsoap.org/soap/encoding/" xmlns:NS1="urn:TestIntf">
<NS1:MyHeader xsi:type="NS1:MyHeader">
<User xsi:type="xsd:string">User</User>
<Pass xsi:type="xsd:string">password</Pass>
</NS1:MyHeader>
</SOAP-ENV:Header>
а нужно так:
<SOAP-ENV:Header SOAP-ENV:encodingStyle="
http://schemas.xmlsoap.org/soap/encoding/">
<User xsi:type="xsd:string">User</User>
<Pass xsi:type="xsd:string">password</Pass>
</SOAP-ENV:Header>