Delphi7快速调用C#做的web services

最新推荐文章于 2016-08-29 09:11:13 发布

原创最新推荐文章于 2016-08-29 09:11:13 发布 · 1.9k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #c# #web #webservice #button #service

本文详细介绍了如何利用Delphi7调用由VS2005创建的C# WebServices，包括新建Web服务、导入WSDL、配置控件以及实现按钮点击事件来获取服务响应。

怎么实现不同平台之间的webservice？下面是我用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里出现服务返回的字符串了。

////////////如有问题添加最后一行

InvRegistry.RegisterInterface(TypeInfo(ServiceSoap),

' http://tempuri.org/ ' , ' utf-8 ' );
  InvRegistry.RegisterInvokableClass(ServiceSoapImpl);
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), ' http://tempuri.org/HelloWorld ' );
  InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument); // 就是这一行