Dephi调用C#编写的WebService的一些问题与解决
问题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#代码
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非常的一致;结果都不对。
问题6
调用方法时,提示请求格式不对,类似以下内容
Unmarshalling Error: unexpected element (uri:"http://www.domain.com/ws/servicename/", local:"dummyArg"). Expected elements are <{}dummyArg>
以下地址提出的方法确实解决了问题
https://stackoverflow.com/questions/4884560/unmarshalling-error
就是修改问题4中,自动生成的代码,找到以下这一句
InvRegistry.RegisterInvokeOptions(TypeInfo(YourSoapInterface), ioDocument);
修改为
InvRegistry.RegisterInvokeOptions(TypeInfo(YourSoapInterface), ioHasNamespace);
或
InvRegistry.RegisterInvokeOptions(TypeInfo(YourSoapInterface), ioHasAllSOAPActions);