You've already forked lazarus-ccr
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.
|