编写一个单独的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
    评论
开发一个类似于Foxmail的页面需要一些基础的编程知识和技术。首先,我们需要使用Delphi7来创建一个新的项目。然后,我们可以利用Delphi7提供的组件和工具来设计界面,添加按钮、输入框、列表等控件。 为了实现Foxmail的功能,我们需要设计一个邮件列表页面和一个邮件详情页面。邮件列表页面可以展示收件箱中的邮件,并提供搜索、排序和筛选功能。我们可以使用Delphi7的TListView控件来展示邮件列表,并通过数据库或者文件来存储邮件的相关信息。 在邮件详情页面,我们可以显示邮件的发件人、主题、正文以及附件等信息。Delphi7的TRichEdit控件可以用来展示邮件的正文内容,而附件可以使用TImage或者TListView来展示。另外,我们还可以添加一些按钮,如回复、转发、删除等,来实现邮件的各种操作。 为了与邮件服务器进行通信,我们可以使用Delphi7中的Socket组件或者使用第三方的邮件库。通过建立与邮件服务器的连接,我们可以实现发送邮件、接收邮件和同步邮件等功能。 除此之外,我们还可以利用Delphi7的数据库组件来设计收件人管理功能,实现邮件的自动分类和标记等。 总之,通过学习和使用Delphi7的相关功能和组件,我们可以开发一个类似于Foxmail的页面,并实现其基本功能。当然,这只是一个简单的概述,实际开发过程中需要根据具体需求进行详细设计和实现。

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

testnet

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

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

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

打赏作者

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

抵扣说明:

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

余额充值