编写一个单独的Web Service for Delphi7(步骤)

早段时间看了一篇好文章,对其整理成以下几步

1新建一个SOAP Server Application,在提示输入接口时输入MyHello,把所有文件
保存在一个叫Ser的目录下,其中一个包含TWebModule1的文件保存为main.pas.
在MyHelloIntf.pas的IMyHello接口中加入
function Welcome(name:string):string;stdcall;  

在MyHelloImpl.pas中的TMyHello实现此方法
function TMyHello.Welcome(name:string):string;
begin
  result:='Welcome '+name;
end;

2新建一个标准Application,把所有文件保存在刚才哪个Ser目录下(同一目录).
  文件名默认,在Unit1.pas中Uese IdHTTPWebBrokerBridge,可能还要在工程
的Search path加入<Delphi7>/Source/Indy  <Delphi7>是Delphi的安装目录
3在form1上放一个lable,写上"Stand Alone Web Service"
4在TForm1的private中加入一个变量ser:TIdHTTPWebBrokerBridge;
5Uses第一步中的main.pas MyHelloIntf.pas MyHelloImpl.pas
7在OnFormCreate事件上写
  ser:=TIdHTTPWebBrokerBridge.Create(self);
  ser.DefaultPort:=5678;
  ser.Active:=true;
  ser.RegisterWebModuleClass(TWebModule1);
8运行程序,打开IE,输入http://localhost:5678/.结果大家都想到了

写Client
1关闭所有文件.
2新建一个标准Application
3运行刚才写的服务器Application
4运行wsdl import wizard,在URL中输入http://localhost:5678/wsdl/IMyHello
  按Next几次
5保存所有文件到一个新目录,用Wizard产生的文件保存为IMyHello1.pas,其余默认,在Unit1.pas中uses

IMyHello1.pas,放一个TButton,写上下面的代码,运行.
procedure TForm1.Button1Click(Sender: TObject);
var
  I:IMyHello;
begin
  I:=GetIMyHello;
  ShowMessage(I.Welcome('black man'));
  I:=nil;
end;
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页

打赏

testnet

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值