firstwsimpl.~pas

Delphi开发webservice的一套例子

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