myfirstwsimpl.~pas

Delphi开发webservice的一套例子

unit MyFirstWSImpl;

interface

uses
  MyFirstWSIntf, InvokeRegistry;

type
  TMyFirstWS = class(TInvokableClass, IMyFirstWS)
  public
    function GetWSMsg : String; stdcall;
  end;

implementation

{ TMyFirstWS }

function TMyFirstWS.GetWSMsg: String;
begin
  Result := 'び次