delphimvcframework/samples/soaprest/wmSOAPRESTU.pas

unit wmSOAPRESTU;

interface

uses System.SysUtils, System.Classes, Web.HTTPApp, Soap.InvokeRegistry,
  Soap.WSDLIntf, System.TypInfo, Soap.WebServExp, Soap.WSDLBind, Xml.XMLSchema,
  Soap.WSDLPub, Soap.SOAPPasInv, Soap.SOAPHTTPPasInv, Soap.SOAPHTTPDisp,
  Soap.WebBrokerSOAP, MVCFramework;

type
  TwmSOAPREST = class(TWebModule)
    HTTPSoapDispatcher: THTTPSoapDispatcher;
    HTTPSoapPascalInvoker: THTTPSoapPascalInvoker;
    WSDLHTMLPublish: TWSDLHTMLPublish;
    procedure WebModuleCreate(Sender: TObject);
    procedure WebModuleDestroy(Sender: TObject);
    procedure wmSOAPRESTSoapActionAction(Sender: TObject; Request: TWebRequest;
      Response: TWebResponse; var Handled: Boolean);
  private
    FMVCEngine: TMVCEngine;
  public
    { Public declarations }
  end;

var
  WebModuleClass: TComponentClass = TwmSOAPREST;

implementation

{ %CLASSGROUP 'Vcl.Controls.TControl' }

{$R *.dfm}

uses
  RESTControllerCustomerU;

procedure TwmSOAPREST.WebModuleCreate(Sender: TObject);
begin
  FMVCEngine := TMVCEngine.Create(self);
  FMVCEngine.Config[TMVCConfigKey.DocumentRoot] := 'www';
  FMVCEngine.Config[TMVCConfigKey.AllowUnhandledAction] := 'true';
  FMVCEngine.AddController(TControllerCustomer);
end;

procedure TwmSOAPREST.WebModuleDestroy(Sender: TObject);
begin
  if Assigned(FMVCEngine) then
    FreeAndNil(FMVCEngine);
end;

procedure TwmSOAPREST.wmSOAPRESTSoapActionAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  WSDLHTMLPublish.ServiceInfo(Sender, Request, Response, Handled);
end;

end.