在SOAP客户端的Array_Of_Int

Question

当我用我的客户端调用SOAP方法时，我有一个非常有趣的问题，我必须传递一个类型为Array_Of_Int（Array_Of_Int = Integer数组）的参数，问题是当数组正在在请求生成，它会生成以下

<ArrayParam> 
    <item>12345</item> 
    <item>23456</item> 
    <item>34567</item> 
</ArrayParam> 

，但我相信，服务器预期

<ArrayParam>12345</ArrayParam> 
<ArrayParam>23456</ArrayParam> 
<ArrayParam>34567</ArrayParam> 

我敢肯定，德尔福有莫名其妙的RegisterSerializeOptions或RegisterInvokeOptions针对此问题的解决办法，但是我似乎无法找到问题，想法？

谢谢大家的时间，我用Delphi 2010

编辑：为了解决这个问题，因为布诺提到的，我们必须产生的初始化部分添加以下代码。 PAS文件：

InvRegistry.RegisterInvokeOptions(TypeInfo(<ServerInterfaceNameHere>), ioDocument);

然而强加的另一个问题，命名空间，作为一个快速，漂亮优雅的修复，我已经添加在THTTPRIO的OnBeforeExecute方法如下代码

procedure TMyDataModule.MyRioBeforeExecute(const MethodName: string; SOAPRequest: TStream); 

    procedure FixNamespaces; 
    var 
    LStrings: TStringList; 
    begin 
    LStrings := TStringList.Create; 
    try 
     SOAPRequest.Position := 0; 
     LStrings.LoadFromStream(SOAPRequest); 
     SOAPRequest.Position := 0; 
     SOAPRequest.Size := 0; 
     LStrings.Text := StringReplace(LStrings.Text, MethodName, 'NS1:' + MethodName, [rfReplaceAll]); 
     LStrings.Text := StringReplace(LStrings.Text, MethodName + ' xmlns', MethodName + ' xmlns:NS1', []); 
     LStrings.SaveToStream(SOAPRequest); 
     SOAPRequest.Position := 0; 
    finally 
     FreeAndNil(LStrings); 
    end; // tryf 
    end; // procedure FixNamespaces; 

begin 
    FixNamespaces; 
end; 

以上是只是修复，我真希望我能找到一个更清洁，优雅的解决这个问题，如果有谁知道，请确实张贴你的答案。

Answer 1

由于无人问津张贴自己的答案或者对如何解决这个问题，没有别的想法，我只是张贴我的修补程序，直到其他人可以有更多的问世优雅的解决方案比编辑请求。

确保下一行代码被添加到*的初始化部分。当您导入的WSDL文件（非常感谢布诺指出了这一点）

InvRegistry.RegisterInvokeOptions(TypeInfo(<ServerInterfaceNameHere>), ioDocument);

然而强加的另一个问题，命名空间，作为一个快速，漂亮优雅的修复生成PAS文件，我已经添加了以下代码在THTTPRio的OnBeforeExecute方法

procedure TMyDataModule.MyRioBeforeExecute(const MethodName: string; SOAPRequest: TStream); 

    procedure FixNamespaces; 
    var 
    LStrings: TStringList; 
    begin 
    LStrings := TStringList.Create; 
    try 
     SOAPRequest.Position := 0; 
     LStrings.LoadFromStream(SOAPRequest); 
     SOAPRequest.Position := 0; 
     SOAPRequest.Size := 0; 
     LStrings.Text := StringReplace(LStrings.Text, MethodName, 'NS1:' + MethodName, [rfReplaceAll]); 
     LStrings.Text := StringReplace(LStrings.Text, MethodName + ' xmlns', MethodName + ' xmlns:NS1', []); 
     LStrings.SaveToStream(SOAPRequest); 
     SOAPRequest.Position := 0; 
    finally 
     FreeAndNil(LStrings); 
    end; // tryf 
    end; // procedure FixNamespaces; 

begin 
    FixNamespaces; 
    // other possible issue to be fixed -- if any 
end; 

Answer 2

您描述的两个序列化选项都是有效的和必需的。问题在于，从语言/原生的角度来看，Delphi使用动态数组（Array_Of_Int = Integer数组）表示他们两个人。因此，必须告诉运行时是否序列化为“Pure Collection”（第一种元素和外部ArrayParam）或“无界元素”（“ArrayParam”元素）。

在早期版本中，包括2010年，你可以指示运行时序列化有以下登记为无界的元素：

RemClassRegistry.RegisterSerializeOptions(TypeInfo(Array_Of_Int), [xoInlineArrays]); 

如果类型是在属性中使用，你也可以简单地标记属性本身如无界的，如：

property propName: Array_Of_Int Index (IS_UNBD) read FName write FName; 

登记方法的缺点在于，它不允许一个（重新）使用两个序列化的类型。在德尔福XE中，这已得到解决，现在该类型从未注册过特定的方案。相反，每个动态数组属性或参数指定它是“纯集合”还是“无限元素”，从而不需要为每个序列化设置不同的动态整数数组。

干杯，

布诺