分享
 
 
 

关于C#下写的Web Service 服务在Delphi下调用时的问题

王朝c#·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

关于C#下写的Web Service 服务在Delphi下调用时的问题

首先我觉得有必要把.net平台下开发webservice进行一个比较全面的阐述,web service的最初产生是在电子商务的环境下出现的,有些问题通过传统的手段已经不容易解决,比如在应用程序之间进行商务通信、数据交换,使用DCom、CORBA等二进制机制的东西已经行不通了,姑且不说他们受各自平台的限制,比如DCom(Distribute Common Objects Model)只能在Windows平台下进行,而CORBA(Common Objects Request Broker Architecture)又只是Java平台下的产物。他们要实现应用程序之间的数据通信是比较困难的。

在这种背景下,Web Services 应运而生,它很好的解决了跨语言、跨平台以及良好而安全的穿透企业防火墙。它的体系结构大体上分为五个层次:

HTTP(HyperText Transfer Protocol)信道下进行数据通信

XML(Extensable Markup Language)数据表达形式

SOAP(Simple Objects Access Protocol)的数据封装

WSDL(WebServices Description Language)的描述语言格式

UDDI(Universal Description and Discovery Integration) 统一的描述、发现和集成

作为它的优点跨语言、跨平台以及良好而安全的穿透企业防火墙已经足以使我们感到兴奋了。不过它也存在需要改善的地方,比如:

HTTP进行数据通信存在速度较慢的情况,尤其是第一次联结。

需要一台Web Server这一额外的开销

说了WebServices的体系结构以及其优点缺点以后我们切入正题,那就是我们这次讨论的话题:

Web Service 服务在Delphi下调用时的问题

闲话少说,我们用一个检验WebMethod的Attribute的一个简单的例子进行阐述:它是完成一次从客户A转帐到B的一个简单商务过程。

首先我们在.NET FrameWork1.1下创建一个WebService,这时候.net会帮我们自动创建一个Web应用

我们需要创建一个类AttributeTest,它是在命名空间NameSpace AttributeTesting下的,那么这个类它将自动继承了它的基类 System.Web.Services.WebService,需要支出的时,我们可以对这个Web应用类设置其WebServiceAttribute,其中基本属性包括Description 和NameSpace

[WebServiceAttribute(Namespace="http://www.isdoo.com/services",

Description="Hello Ansel,This is a testing Web Service!")]

public class AttributeTest : System.Web.Services.WebService

{

[WebMethodAttribute(Description="描述信息:继承了Count方法,并且对名称进行重载。执行的是把钱从A用户转帐到B用户......",

//MessageName="Changing MessageName",

BufferResponse=true,

CacheDuration=1000,

EnableSession=true,

TransactionOption=TransactionOption.RequiresNew)]

public string transMoney(double Money)

{

try

{

ContextUtil.EnableCommit();//Transaction only used to Database operation!

MoneyInToA(Money);

MoneyOutFromB(Money);

ContextUtil.SetComplete();

return "Transaction Successful,total "+Money.ToString();

}

catch( Exception e)

{

ContextUtil.SetAbort();

return "Transaction failed! \n\r "+e.Message;

}

}

private void MoneyInToA(double Money)

{

SqlCommand sqlCom = new SqlCommand("update budget set Money=Money+"+Money.ToString()+" where Name='A'");

databaseAccess myDatabase = new databaseAccess();

sqlCom.Connection=myDatabase.getConnection();

sqlCom.Connection.Open();

sqlCom.ExecuteNonQuery();

sqlCom.Connection.Close();

//throw new Exception("Operation failed when transfer money into A!");

}

private void MoneyOutFromB(double Money)

{

SqlCommand sqlCom = new SqlCommand("update budget set Money=Money-"+Money.ToString()+" where Name='B'");

databaseAccess myDatabase = new databaseAccess();

sqlCom.Connection=myDatabase.getConnection();

sqlCom.Connection.Open();

sqlCom.ExecuteNonQuery();

sqlCom.Connection.Close();

//throw new Exception("Operation failed when transfer money from B!");

}

}

其中我们需要特别注意的是,WebMethodAttribute,这也是我们这一次需要讲述的重点内容,只要给一个方法加上[WebMethodAttribute],哪怕里面没有任何属性,那么WebService就会把这个方法暴露(Expose)给了客户段调用者.下面我们讲述一下它的6个属性,其中包括2个描述性的信息属性,4个功能属性

描述性的信息属性:

Description

MessageName

4个功能性属性:

BufferResponse

CacheDuration

EnableSession

TransactionOption

其中我们需要注意MessageName这个属性它Delphi调用.NET平台下开发的WebService的时候,如果你设置了MessageName这个Attribute的话,那么客户端调用时会报错误。这也许是一个Bug,或许后面的版本会解决这个问题。至于这几个属性的具体功能就不再这里详细描述了。大家可以去看看相关的书籍。

下面我把Delphi调用webservice的步骤列举一下:

首先如果你只是开发调用客户端,那么你只需要创建一个普通的应用程序即可,然后需要你做的是,在工具栏WebServices下面找到SOAPHTTPClient这个控件,然后把它放在你的客户端应用窗体上;

其次就是你需要设置这个SOAPHTTPClient的属性URL或者WSDL,这个内容就是你的WebService的服务地址

比如我们当前例子的服务地址是:http://localhost/AttributeTesting/AttributeTesting.asmx

如果你想输入WSDL那么就是http://localhost/AttributeTesting/AttributeTesting.asmx?wsdl

这样就完成了控件设置;

然后我们需要引入服务器端的WSDL,你可以手工来做,也可以用Delphi提供的WebServices Importer功能来引入。

最后你只需要对引入的WSDL的接口进行调用即可。在这里我们的对应代码是:

procedure TForm1.BitBtn1Click(Sender: TObject);

var

aa:AttributeTestSoap;//这个就是WSDL下的类接口对象

msg:widestring;

bb:double;

begin

//HTTPRIO2 其实就是所谓的代理类,它负责进行数据传输发送Request和接受Response的

aa:=HTTPRIO2 as AttributeTestSoap;

bb:=100.00;

msg:=aa.transMoney(bb);//这就是调用web服务所暴露给我们的web服务方法WebMethod

showmessage(msg);

end;

Ok! That's all!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有