firstwsintf.pas

Delphi开发webservice的一套例子

{ Invokable interface declaration unit for IFirstWS }

unit FirstWSIntf;

interface

uses
  Types, XSBuiltIns;

type
  IFirstWS = interface(IInvokable)
    ['{B2FBCFDB-6AC8-4B66-ACB9-E283FA0B8B06}']
    function GetWSMsg : String; stdcall;
  end;

implementation

uses
  InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IFirstWS));

end.