Dephi调用C#编写的WebService的一些问题与解决

转至：http://www.cnblogs.com/Equn93/archive/2010/04/27/1722070.html

问题1：服务端接收的所有中文都是"?????"(乱码)
解决：设置HTTPRIO控件的HTTPRIO.HTTPWebNode.UserUTF8InHeader属性为true

问题2：Dephi编写的客户端在windows2003下调用WebService提示"Access violation at address 00E59195. Write of address 00E59195"
解决：我的电脑属性->高级->性能->设置->数据执行保护。选中"只为关键 Windows 程序和服务启用数据执行保护。当然你可以选择另一个选项，并添加我们的客户端作为例外处理。有二点比较奇怪的，一、并不是每一台windows2003的机器都需要这样设置；二、有问题的2003机器使用.net写的客户端却能正常访问WebService。

问题3：从服务端得到的XML字符串，一分析就出错
解决：先使用WideString变量保存返回的XML字符串。再利用这个变量分析。string不能识别换行符。

问题4：服务端得到的参数都为空值
解决：检查一下引入的WebService单元的最后三行是否如下
initialization
  InvRegistry.RegisterInterface(TypeInfo(YourWebServiceSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(YourWebServiceSoap), 'http://tempuri.org/%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(YourWebServiceSoap), ioDocument);//这一行有时会没有
end.
这一行 InvRegistry.RegisterInvokeOptions(TypeInfo(YourWebServiceSoap), ioDocument);有时候没有的。举个例子，当我们的WebService的其中一个方法有参数的类型为DataSet时，单元文件的最后几行是这样的
initialization
  InvRegistry.RegisterInterface(TypeInfo(YourWebServiceSoap), 'http://tempuri.org/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(YourWebServiceSoap), 'http://tempuri.org/%operationName%');
  RemClassRegistry.RegisterXSClass(GetDataSetResult, 'http://tempuri.org/', GetDataSetResult);
  RemClassRegistry.RegisterXSClass(updateSet, 'http://tempuri.org/', 'updateSet');
end.
这时，服务端接收到的所有参数都为null；这里你所手工在中间加入上面所提到的那一行。

问题5：服务端方法返回的DateTime，Delphi取得的时间不对。
解决：引用后，delphi是用TXSDateTime来接收C#的DateTime变量的。TXSDateTime有两个属性AsDateTime、AsUTCDateTime都是TDateTime，也就是Delphi用的日期变量了，但这两个属性得到的时间是不对的。放断点可以观察到TXSDateTime的年、月、时各变量都是正确的，所以解决的方式是取年月时分各变量重新组合成时间变量。
在这个过程，我碰到一个有趣的情况。看下面的C#代码

[WebMethod(EnableSession = true )]
public  DateTime MyTime()
{
    DateTime cur = DateTime.Now;
    return cur;
}

[WebMethod(EnableSession = true )]
public  DateTime YourTime(DateTime pTime)
{
    return pTime.AddDays(1);
}

Delphi调用后者，TXSDateTime中的AsDateTime属性保存的时间是对的。调用MyTime()，AsDateTime保存的时间就不对! 我以为AsUTCDateTime的情况可能会有所不同，但其实这里他与AsDateTime是一样的。另外，.net能不能再做些什么呢？我注意到.net的DateTime有这么一个方法ToUniversalTime；我在MyTime中尝试应用这个方法，结果更遭，delphi得到的年时分各变量的值不对了；期待AsUTCDateTime会给我惊喜，结果他还是与AsDateTime非常的一致；结果都不对。