umain.~pas

简单的Soap服务器程序,有兴趣的可以下载

unit UMain;

interface

uses
  SysUtils, Classes, HTTPApp, WSDLPub, SOAPPasInv, SOAPHTTPPasInv,
  SoapHTTPDisp, WebBrokerSOAP, InvokeRegistry;

type
  TWebModule1 = class(TWebModule)
    HTTPSoapDispatcher1: THTTPSoapDispatcher;
    HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
    WSDLHTMLPublish1: TWSDLHTMLPublish;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  ISoapHello = Interface ( IInvokable )
    ['{08B1F3A4-10F7-49FB-8223-F54E1791ABEC}']
    Function GetHello( aID : Integer ) : WideString; StdCall;
  End;

  TSoapHello = Class ( TInvokableClass, ISoapHello )
  Protected
    Function GetHello( aID : Integer ) : WideString; StdCall;
  End;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

Function TSoapHello.GetHello( aID : Integer ) : WideString;
 Begin
  If ( aID = 1 ) Then
    Result := 'Hello world!'
  Else
    Result := 'Error ID!';
End;


Initialization
  InvRegistry.RegisterInterface( TypeInfo( ISoapHello ) );
  InvRegistry.RegisterInvokableClass( TSoapHello );

end.