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

原创 2003年04月14日 09:13:00
早段时间看了一篇好文章,对其整理成以下几步

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;

基于Delphi7 WebService 在Apache发布及Apache使用说明

基于Delphi7 WebService 在Apache发布及Apache使用说明qq:394251165                前段时间,需要将基于Delphi7WebService 发布在...
  • tjb_1216
  • tjb_1216
  • 2009年10月02日 10:41
  • 3612

用Delphi开发Web服务数据库程序

第一步:编写服务器的应用程序 首先在Delphi的IDE中选择”File|New|Other…”,然后在WebServices页面中选择Soap Server Application图标。 然后在...
  • manstar
  • manstar
  • 2012年01月27日 20:33
  • 919

Delphi 7编写的Webservice生成的DLL部署到IIS上

Delphi7编写的Webservice生成的DLL部署到IIS上,步骤如下: 1.打开DELPHI 7,选择File-New-Other,选择WebServices,选中SOAP Server Ap...
  • xiaojian555
  • xiaojian555
  • 2017年01月07日 11:47
  • 2320

delphi7的webservice开发

  • 2017年11月03日 10:26
  • 53KB
  • 下载

用Delphi7实现Web Service

用Delphi7开发Web Service程序,并把服务程序放在IIS Web服务器上提供给各种客户程序调用。 一编写服务程序     第一步:File----->New----->Other----...
  • delphi1234
  • delphi1234
  • 2009年05月28日 14:23
  • 3392

如何写一个Web服务器

http://www.jianshu.com/p/912fa6d0b5e0# 最近两个月的业余时间在写一个私人项目,目的是在Linux下写一个高性能Web服务器,名字叫Zaver。主体框架和基本...
  • gao1440156051
  • gao1440156051
  • 2016年07月06日 16:30
  • 655

使用delphi编写按键自动点击的小程序

unit post_virkey; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphi...
  • zui130
  • zui130
  • 2018年01月11日 16:51
  • 23

编写一个简单的windows服务

服务如同普通的win32窗口一样,都有会有句柄,转发,以及处理等概念.只不过这些概念和win32窗口编程稍有不同,在windows服务编程里面,每个服务都有一个控制句柄,以及相应的处理函数.同样,处理...
  • dayenglish
  • dayenglish
  • 2014年05月10日 23:27
  • 1819

【Java学习笔记】如何写一个简单的Web Service

【Java学习笔记】如何写一个简单的Web Service 作者:gnuhpc  出处:http://www.cnblogs.com/gnuhpc/ 本Guide利用Eclipse以及Ant...
  • sundancer_lilong
  • sundancer_lilong
  • 2016年05月23日 11:29
  • 1271

关于web项目中的乱码

首先一般乱码问题本质是由于,编解码用的 不是统一的码表; web应用的页面编码设置一般是contentType="text/html; charset=UTF-8",而tomcat的默认编码是ISO...
  • after_you
  • after_you
  • 2016年10月28日 13:53
  • 331
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:编写一个单独的Web Service for Delphi7(步骤)
举报原因:
原因补充:

(最多只允许输入30个字)