testdelphinetwebservice.obs

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

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.