testdelphinetwebservice.out

来自「格式化源码的最新板」· OUT 代码 · 共 47 行

unit testdelphinetwebservice;

interface

uses system.collections, system.componentmodel, system.Data, system.diagnostics, system.web, system.web.services;

type
  twebservice1 = class(System.Web.Services.WebService){$REGION 'Designer Managed Code'}
  strict private
    Components: icontainer;
    procedure initializecomponent;{$ENDREGION}
  strict protected
    procedure dispose(disposing: boolean); override;
  private
  public
    constructor Create;
    [webmethod(description = 'A Sample Web Method')]
    function helloworld: string;
  end;

implementation

{$REGION 'Designer Managed Code'}
procedure twebservice1.initializecomponent;
begin
end;{$ENDREGION}

constructor twebservice1.Create;
begin
  inherited;
  initializecomponent;
end;

procedure twebservice1.dispose(disposing: boolean);
begin
  if disposing and (Components <> nil) then
    Components.dispose;
  inherited dispose(disposing);
end;

function twebservice1.helloworld: string;
begin
  Result := 'Hello, interweb';
end;

end.