uautomyfirstwsintf.pas

Delphi开发webservice的一套例子

Unit uAutoMyFirstWSIntf;

interface

uses Types, XSBuiltIns;
type

  IMyFirstWS = interface(IInvokable)
    ['{84688033-58E0-4C3A-BF51-39D4FBB3A068}']
    function GetWSMsg: WideString;  stdcall;
  end;


implementation

uses InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IMyFirstWS), 'urn:MyFirstWSIntf-IMyFirstWS', '');

end.