waddemoserviceintf.~pas

Delphi开发webservice的一套例子

{ Invokable interface declaration unit for IWADDemoService }

unit WADDemoServiceIntf;

interface

uses
  Types, XSBuiltIns;

type
  IWADDemoService = interface(IInvokable)
    ['{9B9AA3EF-E1B9-11D5-8B77-D2F43A706D6E}']
    // Declare your invokable logic here using standard Object Pascal code
    // Remember to include a calling convention! (usually stdcall)
    function BuyBooks(const sBookName, sMemberID  : String;
                      const iCopies : Integer; bDate : TXSDate;
                      var iConfirmID : Integer; var cDate : TXSDate) : Boolean; stdcall;
  end;

implementation

uses
  InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IWADDemoService), '', '');

end.