unit MyTestIntf;

interface

uses Soap.InvokeRegistry, System.Types, Soap.XSBuiltIns, Xml.XMLIntf;

const
  IS_TEXT = $0020;

type
   TSOAPCredentials = class(TSoapHeader)
   private
      FPassword: string;
      FUsername: string;
   public
     constructor Create; override;
     function ObjectToSOAP(RootNode, ParentNode: IXMLNode;
                              const ObjConverter: IObjConverter;
                              const NodeName, NodeNamespace, ChildNamespace: InvString; ObjConvOpts: TObjectConvertOptions;
                              out RefID: InvString): IXMLNode; override;
   published
     property userName     : string read FUsername write Fusername;
     property userPassword : string read FPassword write FPassword;
   end;

  { Invokable interfaces must derive from IInvokable }
  IMyTest = interface(IInvokable)
  ['{7CD79B70-E3CC-44EB-BA01-237551CCD2FC}']

    function someMethod(): String; stdcall;
  end;

implementation

uses
  Soap.SOAPPasInv;

{ TSOAPCredentials }

constructor TSOAPCredentials.Create;
begin
  inherited;
  MustUnderstand := True;
end;

function TSOAPCredentials.ObjectToSOAP(RootNode, ParentNode: IXMLNode; const ObjConverter: IObjConverter;
  const NodeName, NodeNamespace, ChildNamespace: InvString; ObjConvOpts: TObjectConvertOptions;
  out RefID: InvString): IXMLNode;
begin
   Result := ParentNode.AddChild('userName');
   Result.Text := FUsername;
   Result := ParentNode.AddChild('userPassword');
   Result.Text := FPassword;
end;


initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IMyTest));
  InvRegistry.RegisterHeaderClass(TypeInfo(IMyTest), TSOAPCredentials);
end.

unit MyTestImpl;

interface

uses Soap.InvokeRegistry, System.Types, Soap.XSBuiltIns, MyTestIntf;

type

  { TMyTest }
  TMyTest = class(TInvokableClass, IMyTest)
  public
    function someMethod(): String; stdcall;
  end;

implementation

function TMyTest.someMethod: String;
Var
  Headers: ISOAPHeaders;
  Auth: TSOAPCredentials;
begin
  Headers := Self as ISOAPHeaders;
  Auth := Headers.Get(TSOAPCredentials) as TSOAPCredentials;
  if Auth=nil then
    Result := 'Нет'
  else
    Result := 'Да';
end;

initialization
{ Invokable classes must be registered }
   InvRegistry.RegisterInvokableClass(TMyTest);
end.

<soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:MyTestIntf-IMyTest">
   <soapenv:Header>
      <TSOAPCredentials xsi:type="urn:TSOAPCredentials" xmlns:urn="urn:MyTestIntf">
         <userName xsi:type="xsd:string">Login</userName>
         <userPassword xsi:type="xsd:string">Password</userPassword>
      </TSOAPCredentials>
   </soapenv:Header>
   <soapenv:Body>
      <urn:someMethod soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"/>
   </soapenv:Body>
</soapenv:Envelope>

<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" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
   <SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:NS1="urn:MyTestIntf-IMyTest">
      <NS1:someMethodResponse>
         <return xsi:type="xsd:string">Нет</return>
      </NS1:someMethodResponse>
   </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
end;

  Response.Realm := '401'

  WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);