myfirstwsimpl.~pas

来自「Delphi开发webservice的一套例子」· ~PAS 代码 · 共 20 行

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 := 'び次