mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
80a0bc8f8c
ObjectMappers DataSetToObject support boolean types Sample\SoapRest Example application server providing both SOAP and REST webservices
25 lines
726 B
ObjectPascal
25 lines
726 B
ObjectPascal
program SOAPREST;
|
|
{$APPTYPE GUI}
|
|
|
|
uses
|
|
Vcl.Forms,
|
|
Web.WebReq,
|
|
IdHTTPWebBrokerBridge,
|
|
frmServerU in 'frmServerU.pas' {Form1},
|
|
wmSOAPRESTU in 'wmSOAPRESTU.pas' {wmSOAPREST: TWebModule},
|
|
BOCustomersU in 'businessobjects\BOCustomersU.pas',
|
|
WSHelperCustomersU in 'webservices\helpers\WSHelperCustomersU.pas',
|
|
RESTControllerCustomerU in 'webservices\rest\RESTControllerCustomerU.pas',
|
|
SOAPCustomerImplU in 'webservices\soap\SOAPCustomerImplU.pas',
|
|
SOAPCustomerIntfU in 'webservices\soap\SOAPCustomerIntfU.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
if WebRequestHandler <> nil then
|
|
WebRequestHandler.WebModuleClass := WebModuleClass;
|
|
Application.Initialize;
|
|
Application.CreateForm(TForm1, Form1);
|
|
Application.Run;
|
|
end.
|