博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

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

Posted on 2010-04-27 15:09  逸群  阅读(801)  评论(1编辑  收藏  举报

问题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非常的一致;结果都不对。