firstwsimpl.~pas

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

unit FirstWSImpl;

interface

uses
  FirstWSIntf, InvokeRegistry;

type
  TFirstWS = class(TInterfacedObject, IFirstWS)
  public
    function GetWSMsg : String; stdcall;
  end;

implementation

{ TFirstWS }

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