技术已荒废

生活的理想,是为了理想的生活!

---->>Nothing is impossible for a willing heart.

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

怎么实现不同平台之间的web service?下面是我用Delphi7调用C#做的web services的过程:
(1),在vs2005新建asp.net web 服务,系统自动生成一个返回字符串("helloworld")的服务。
(2)打开delphi7,新建一个工程,保存,再打开File||New||Other||Webservices||WSDLImporter,按照步骤新建一个Service,保存。注意添加服务时后加?wsdl:如图:


(3)在Unit1.pas的uses里添加服务名(如:Service),form1上添加button,text.box,和(web services),设置该控件属性,如图:

(4)写button单击事件,代码如下:

procedure TForm1.Button1Click(Sender: TObject);
var
a:ServiceSoap;
begin
 a:
=HTTPRIO1 as ServiceSoap;
 edit1.Text:
=a.HelloWorld;
end;

(5)现在可以运行看到text.box里出现服务返回的字符串了 。
posted on 2006-10-18 10:31  技术已荒废  阅读(857)  评论(1编辑  收藏  举报