Ryuzee.com

Index: lib/dxmlrpc-2.0.0/build/BuildXmlRpcLib.dpr
===================================================================
--- lib/dxmlrpc-2.0.0/build/BuildXmlRpcLib.dpr (リビジョン 49)
+++ lib/dxmlrpc-2.0.0/build/BuildXmlRpcLib.dpr (リビジョン 50)
@@ -10,5 +10,6 @@
   XmlRpcTypes in '..sourceXmlRpcTypes.pas',
   XmlRpcCommon in '..sourceXmlRpcCommon.pas',
-  XmlRpcServer in '..sourceXmlRpcServer.pas';
+  XmlRpcServer in '..sourceXmlRpcServer.pas',
+  Variants in '..sourceVariants.pas';
 
 begin
Index: lib/dxmlrpc-2.0.0/source/XmlRpcTypes.pas
===================================================================
--- lib/dxmlrpc-2.0.0/source/XmlRpcTypes.pas (リビジョン 49)
+++ lib/dxmlrpc-2.0.0/source/XmlRpcTypes.pas (リビジョン 50)
@@ -36,5 +36,5 @@
 
 uses
-  SysUtils, Classes, Contnrs, DIMime, XmlRpcCommon;
+  SysUtils, Classes, Contnrs, DIMime, XmlRpcCommon, ActiveX, ComObj;
 
 type
@@ -45,5 +45,5 @@
       dtStruct, dtArray, dtError, dtNone, dtName, dtValue);
 
-  IRpcCustomItem = interface(IInterface)
+  IRpcCustomItem = interface(IUnknown)
   ['{3441C47B-364D-4BE6-834E-E05C4FCAE9A6}']
     function GetAsRawString: string;
@@ -196,5 +196,5 @@
   end;
 
-  IRpcCustomArray = interface(IInterface)
+  IRpcCustomArray = interface(IUnknown)
   ['{8177A796-7C3B-4C01-901C-88A13DA61F85}']
     function GetItems(Index: Integer): TRpcArrayItem;
@@ -259,5 +259,5 @@
   end;
 
-  IRpcStruct = interface(IInterface)
+  IRpcStruct = interface(IUnknown)
   ['{7527E27A-6B61-41D6-9546-93DC816D8285}']
     function InternalAddItem(const Key: string): TRpcStructItem;
@@ -372,5 +372,8 @@
   TRpcReturn = TRpcFunction;
 
+  function strtobool(value : string) : Boolean;
+
 implementation
+
 
 {
@@ -839,4 +842,17 @@
 end;
 
+function strToBool(value : String) : Boolean;
+begin
+  if lowercase(value) = 'true' then
+  begin
+    result := true; exit;
+  end;
+  if strtointdef(value, 0) = 1 then
+  begin
+    result := true;
+    exit;
+  end;
+  result := false;
+end;
 
 {
Index: lib/dxmlrpc-2.0.0/source/XmlRpcServer.pas
===================================================================
--- lib/dxmlrpc-2.0.0/source/XmlRpcServer.pas (リビジョン 49)
+++ lib/dxmlrpc-2.0.0/source/XmlRpcServer.pas (リビジョン 50)
@@ -335,5 +335,5 @@
   // FMethodList := TList.Create; Take TObjectList instead of TList;
   FMethodList := TObjectList.Create;
-  FMethodList.OwnsObjects := True;
+  //FMethodList.OwnsObjects := True;
   FLock := TCriticalSection.Create;
 end;