Delphi server side support ( binary, soap, xmlrpc ):

- the Indy http_server compile and works
 - for xml, the Delphi xmldom unit as used ( tested with msxml )

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

wst/trunk/samples/user_service_intf.pas

@@ -2,7 +2,7 @@
 This unit has been produced by ws_helper.
   Input unit name : "user_service_intf".
   This unit name  : "user_service_intf".
-  Date            : "12/07/2007 10:55:02".
+  Date            : "13/07/2007 21:34:10".
 }
 unit user_service_intf;
 {$IFDEF FPC} {$mode objfpc}{$H+} {$ENDIF}
@@ -130,6 +130,13 @@ begin
     'FORMAT_Style',
     'rpc'
   );
+  mm.SetOperationCustomData(
+    sUNIT_NAME,
+    'UserService',
+    'GetList',
+    '_E_N_',
+    'GetList'
+  );
   mm.SetOperationCustomData(
     sUNIT_NAME,
     'UserService',
@@ -151,6 +158,13 @@ begin
     'FORMAT_OutputEncodingStyle',
     'literal'
   );
+  mm.SetOperationCustomData(
+    sUNIT_NAME,
+    'UserService',
+    'Add',
+    '_E_N_',
+    'Add'
+  );
   mm.SetOperationCustomData(
     sUNIT_NAME,
     'UserService',
@@ -172,6 +186,13 @@ begin
     'FORMAT_OutputEncodingStyle',
     'literal'
   );
+  mm.SetOperationCustomData(
+    sUNIT_NAME,
+    'UserService',
+    'Update',
+    '_E_N_',
+    'Update'
+  );
   mm.SetOperationCustomData(
     sUNIT_NAME,
     'UserService',
@@ -193,6 +214,13 @@ begin
     'FORMAT_OutputEncodingStyle',
     'literal'
   );
+  mm.SetOperationCustomData(
+    sUNIT_NAME,
+    'UserService',
+    'Find',
+    '_E_N_',
+    'Find'
+  );
   mm.SetOperationCustomData(
     sUNIT_NAME,
     'UserService',
@@ -214,6 +242,13 @@ begin
     'FORMAT_OutputEncodingStyle',
     'literal'
   );
+  mm.SetOperationCustomData(
+    sUNIT_NAME,
+    'UserService',
+    'Delete',
+    '_E_N_',
+    'Delete'
+  );
   mm.SetOperationCustomData(
     sUNIT_NAME,
     'UserService',
@@ -240,7 +275,6 @@ end;
 
 initialization
   GetTypeRegistry().Register(sNAME_SPACE,TypeInfo(TUserCategory_Type),'TUserCategory');
-  GetTypeRegistry().ItemByTypeInfo[TypeInfo(TUserCategory_Type)].RegisterExternalPropertyName('Normal','result');
   GetTypeRegistry().Register(sNAME_SPACE,TypeInfo(TUser_Type),'TUser');
   GetTypeRegistry().Register(sNAME_SPACE,TypeInfo(TNote_Type),'TNote');
   GetTypeRegistry().Register(sNAME_SPACE,TypeInfo(TUserArray),'TUserArray');