peerrecipewebmod.pas

来自「一个老外写的P2P例子...有点简单」· PAS 代码 · 共 44 行

{ SOAP Web Module - WAD }
unit PeerRecipeWebMod;

interface

uses
  SysUtils, Classes, HTTPApp, InvokeRegistry, WSDLIntf, TypInfo,
  WebServExp, WSDLBind, XMLSchema, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
  SOAPHTTPDisp, WebBrokerSOAP;

type
  TPeerRecipeWM = class(TWebModule)
    HTTPSoapDispatcher1: THTTPSoapDispatcher;
    HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
    WSDLHTMLPublish1: TWSDLHTMLPublish;
    procedure WebModule2DefaultHandlerAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PeerRecipeWM: TPeerRecipeWM;

implementation

uses WebReq;

{$R *.dfm}

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

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.WebModuleClass := TPeerRecipeWM;

end.