Delphi7快速调用C#做的web services

怎么实现不同平台之间的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);
// 就是这一行

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值