widestring sample

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@770 8e941d3f-bd1b-0410-a28a-d453659cc2b4

wst/trunk/samples/widestring/server/echo_service_imp.pas

@@ -0,0 +1,45 @@
+{
+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.