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/wst_delphi_rtti_utils.pas

@@ -0,0 +1,20 @@
+unit wst_delphi_rtti_utils;
+
+interface
+uses SysUtils, TypInfo;
+
+
+  function GetEnumNameCount(AEnumTypeInfo: PTypeInfo): Integer;
+
+implementation
+
+function GetEnumNameCount(AEnumTypeInfo: PTypeInfo): Integer;
+var
+  T: PTypeData;
+begin
+  Result := 0;
+  T :=  GetTypeData(AEnumTypeInfo);
+  Result := ( T^.MaxValue - T^.MinValue ) + 1;
+end;
+
+end.