1 unitWebModuleUnit1;2
3 interface
4
5 usesSystem.SysUtils, System.Classes, Web.HTTPApp, Soap.InvokeRegistry,6 Soap.WSDLIntf, System.TypInfo, Soap.WebServExp, Soap.WSDLBind, Xml.XMLSchema,7 Soap.WSDLPub, Soap.SOAPPasInv, Soap.SOAPHTTPPasInv, Soap.SOAPHTTPDisp,8 Soap.WebBrokerSOAP, FireDAC.Stan.Intf, FireDAC.Stan.Option,9 FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,10 FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MSAcc,11 FireDAC.Phys.MSAccDef, FireDAC.Phys.MSSQLDef, FireDAC.Stan.Param,12 FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Datasnap.DBClient,13 Datasnap.Provider, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,14 FireDAC.Phys.ODBCBase, FireDAC.Phys.MSSQL;15
16 type
17 TWebModule1 = class(TWebModule)18 HTTPSoapDispatcher1: THTTPSoapDispatcher;19 HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;20 WSDLHTMLPublish1: TWSDLHTMLPublish;21 FDConnection1: TFDConnection;22 FDPhysMSSQLDriverLink1: TFDPhysMSSQLDriverLink;23 FDQuery1: TFDQuery;24 DataSetProvider1: TDataSetProvider;25 ClientDataSet1: TClientDataSet;26 procedureWebModule1DefaultHandlerAction(Sender: TObject;27 Request: TWebRequest; Response: TWebResponse; varHandled: Boolean);28 private
29 {Private declarations}
30 public
31 functionGetInfo: widestring;32 functionSetSQL(ASQL: widestring): widestring;33 {Public declarations}
34 end;35
36 var
37 WebModuleClass: TComponentClass =TWebModule1;38
39 implementation
40
41 {%CLASSGROUP 'Vcl.Controls.TControl'}
42
43 {$R *.dfm}
44
45 functionTWebModule1.GetInfo: widestring;46 begin
47 ClientDataSet1.Close;48 ClientDataSet1.Open;49 Result :=ClientDataSet1.XMLData;50 ClientDataSet1.Close;51 end;52
53 functionTWebModule1.SetSQL(ASQL: widestring): widestring;54 begin
55 FDQuery1.Close;56 FDQuery1.SQL.Text :=ASQL;57 try
58 FDQuery1.ExecSQL;59 Result := '成功';60 except
61 Result := '失败';62 end;63 end;64
65 procedureTWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;66 Request: TWebRequest; Response: TWebResponse; varHandled: Boolean);67 begin
68 WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);69 end;70
71 end.