You've already forked lazarus-ccr
d673332bf8
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@770 8e941d3f-bd1b-0410-a28a-d453659cc2b4
46 lines
1.0 KiB
ObjectPascal
46 lines
1.0 KiB
ObjectPascal
{
|
|
This unit has been produced by ws_helper.
|
|
Input unit name : "echo_service".
|
|
This unit name : "echo_service_imp".
|
|
Date : "06/04/2009 17:25:42".
|
|
}
|
|
Unit echo_service_imp;
|
|
{$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
|
|
Interface
|
|
|
|
Uses SysUtils, Classes,
|
|
base_service_intf, server_service_intf, server_service_imputils, echo_service;
|
|
|
|
Type
|
|
|
|
|
|
TEchoService_ServiceImp=class(TBaseServiceImplementation,IEchoService)
|
|
Protected
|
|
function EchoWideString(
|
|
const AValue : WideString
|
|
):WideString;
|
|
End;
|
|
|
|
|
|
procedure RegisterEchoServiceImplementationFactory();
|
|
|
|
Implementation
|
|
uses config_objects;
|
|
|
|
{ TEchoService_ServiceImp implementation }
|
|
function TEchoService_ServiceImp.EchoWideString(
|
|
const AValue : WideString
|
|
):WideString;
|
|
Begin
|
|
Result := AValue + AValue;
|
|
End;
|
|
|
|
|
|
|
|
procedure RegisterEchoServiceImplementationFactory();
|
|
Begin
|
|
GetServiceImplementationRegistry().Register('IEchoService',TImplementationFactory.Create(TEchoService_ServiceImp,wst_GetServiceConfigText('IEchoService')) as IServiceImplementationFactory);
|
|
End;
|
|
|
|
End.
|