`

delphi7开发webservice部属在apache服务器中

阅读更多
用Delphi7开发Web Service程序,并把服务程序放在apache Web服务器上提供给各种客户程序调用。


第一步 编写服务程序



    第一步:File----->New----->Other------>WebServices----->Soap Server Application

选择CGI Stand-alone executable然后确定,然后输入接口名字。

第二步:定义一个接口单元。先通过向导生成一个空的单元文件,然后在此单元中实现基本的接口(Iinvokable)和定义以后客户端程序可以调用的方法,原代码如下:

接口代码
{ Invokable interface IMyWeb }

unit MyWebIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;;//基本的结构和方法的定义都在此单元中,必须引

type

  { Invokable interfaces must derive from IInvokable }
  IMyWeb = interface(IInvokable)   //自定义的一个结构,继承自Iinvokable
  ['{E3070F4D-AEBF-47D6-963B-ADFFC4E7C7A1}']  //通过Ctrl+Shift+G生成的一个GUID


    { Methods of Invokable interface must not use the default }
    { calling convention; stdcall is recommended }
  function gettext():widestring;stdcall;//自定义的一个方法,也是以后客户可以调用的方
  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IMyWeb));//通过此方法来注册接

end.


第三步:实现第二步中所定义的接口和方法。先通过向导生成一个空的单元文件,然后定义自定义接口(IWebtest)的实现类。原代码如下:

实现接口代码

{ Invokable implementation File for TMyWeb which implements IMyWeb }

unit MyWebImpl;

interface

uses InvokeRegistry, Types, XSBuiltIns, MyWebIntf,Unit1;//引用自定义的接口单元


type

  { TMyWeb }
  TMyWeb = class(TInvokableClass, IMyWeb)//定义实现类,此类必须继承自TInvokableClass,并实现自定义接

  public
    function gettext():widestring;stdcall;//申明在自定义接口中所定义的方法
  end;

implementation
function TMyWeb.gettext: widestring;//实现自定义方法
begin
Result:='Success';
end;

initialization
  { Invokable classes must be registered }
  InvRegistry.RegisterInvokableClass(TMyWeb);

end.

第四步:编译整个应用程序,即产生一个*.exe的程序,把此程序拷贝到apache的Cgi-bin目录下,然后即可通过以下方式的链接访问到Wsdl:http://127.0.0.1/cgi-bin/*.exe访问到以XML方式编码的Wsdl文件了,这就是客户端程序调用需要的文件。其中*.exe为你自己的应用程序的名字。127.0.0.1为你的Web服务器地址。Cgi-bin为你的Web服务器的可以执行Cgi程序的目录名称 或 虚拟目录名称。



第二步 编写客户程序:

第一步:新建一个Application。

第二步:File----->New----->Other------>WebServices----->Soap Services Importer

然后在Wsdl or Xml Schema Location中填入:.exe/wsdl/IMyWeb,然后确定即生成了一个新的接口定义单元。
生成的代码

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://127.0.0.1:8090/cgi-bin/Project2.exe/wsdl/IMyWeb
// Encoding : utf-8
// Version  : 1.0
// (2011-7-22 16:14:10 - 1.33.2.5)
// ************************************************************************ //

unit IMyWeb1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Borland types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"


  // ************************************************************************ //
  // Namespace : urn:MyWebIntf-IMyWeb
  // soapAction: urn:MyWebIntf-IMyWeb#gettext
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : rpc
  // binding   : IMyWebbinding
  // service   : IMyWebservice
  // port      : IMyWebPort
  // URL       : http://127.0.0.1:8090/cgi-bin/Project2.exe/soap/IMyWeb
  // ************************************************************************ //
  IMyWeb = interface(IInvokable)
  ['{85474E46-8BF2-FC4E-8A91-6FC82BB6EBF1}']
    function  gettext: WideString; stdcall;
  end;

function GetIMyWeb(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IMyWeb;


implementation

function GetIMyWeb(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IMyWeb;
const
  defWSDL = 'http://127.0.0.1:8090/cgi-bin/Project2.exe/wsdl/IMyWeb';
  defURL  = 'http://127.0.0.1:8090/cgi-bin/Project2.exe/soap/IMyWeb';
  defSvc  = 'IMyWebservice';
  defPrt  = 'IMyWebPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as IMyWeb);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


initialization
  InvRegistry.RegisterInterface(TypeInfo(IMyWeb), 'urn:MyWebIntf-IMyWeb', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IMyWeb), 'urn:MyWebIntf-IMyWeb#gettext');

end. 

第二步:在主form上放上一个按钮, 并引用第二个单元(即通过Soap Services Importer自动生成的单元)



第三步:编写客户调用程序,原代码如下:

unit MyWebImpl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IMyWeb1, StdCtrls;
    //IMyWeb1   为引入自动生成的webservice服务器接口
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
testobj:IMyWeb;//定义对象
begin
testobj:=GetIMyWeb;//创建对象
showmessage(testobj.gettext);//调用方法
end;


end.


最后运行程序,点击Button,会弹出success的对话框,证明测试成功。
本人是初学delphi,很多方面不是很懂,通过浏览和总结网络中的例子,自己测试通过。因为网上好多例子不能运行,(可能是自己有些地方不懂吧)所以自己把测试通过的项目发布到博客中。
源码下载页面:http://download.csdn.net/source/3462185
分享到:
评论

相关推荐

    rxtxParallel.dll rxtxSerial.dll 32位

    rxtxParallel.dll rxtxSerial.dll 32位

    华捷艾米摄像头开发SDK-V1.8.8

    华捷艾米摄像头开发SDK-V1.8.8

    【毕业设计】基于Python的Django-html深度学习的web端多格式纠错系统源码(完整前后端+mysql+说明文档+LW+PPT).zip

    【毕业设计】基于Python的Django-html深度学习的web端多格式纠错系统源码(完整前后端+mysql+说明文档+LW+PPT).zip

    基于OpenGL和Qt的跨平台3D地形显示Demo软件源代码展示,支持RTK-GPS数据插值与纹理添加功能,OpenGL与Qt联手打造的3D地形显示Demo软件源代码,跨平台支持Ubuntu与Wind

    基于OpenGL和Qt的跨平台3D地形显示Demo软件源代码展示,支持RTK-GPS数据插值与纹理添加功能,OpenGL与Qt联手打造的3D地形显示Demo软件源代码,跨平台支持Ubuntu与Windows,精准插值RTK-GPS地形数据,可视化色彩高度与纹理调整,基于OpenGL和Qt的3D地形显示demo软件源代码,2019年编写的,当时可分别在ubuntu和Windows系统下编译成功,两个平台下的版本头文件和工程文件略有不一样,均可提供源代码,详见图片。 软件对安装RTK-GPS的往复直线作业的拖拉机采集的地形数据进行插值后构建3D地形,具有颜色区分高度,插值和添加纹理等功能。 地形可用鼠标拖动,旋转和缩放。 ,OpenGL; Qt; 3D地形显示; 源代码; 跨平台编译; 安装RTK-GPS拖拉机数据; 插值构建3D地形; 颜色区分高度; 鼠标交互操作,**基于OpenGL与Qt的跨平台3D地形显示Demo源代码**

    基于MATLAB的综合能源系统优化调度:结合需求响应与碳交易机制研究,综合能源系统优化调度:Matlab程序制定与碳交易机制下的综合需求响应应用,matlab程序制定,综合能源系统优化调度,综合需求响

    基于MATLAB的综合能源系统优化调度:结合需求响应与碳交易机制研究,综合能源系统优化调度:Matlab程序制定与碳交易机制下的综合需求响应应用,matlab程序制定,综合能源系统优化调度,综合需求响应的应用,碳交易机制。 ,matlab程序制定; 综合能源系统优化调度; 综合需求响应应用; 碳交易机制,Matlab程序助力综合能源系统优化调度:需求响应与碳交易机制应用

    JAVA毕设项目-基于SSM框架的大美新疆在线论坛交流系统 该这个源码+设计文档.zip

    个人经导师指导并认可通过的设计项目,评审分98分,项目中的源码都是经过本地编译过可运行的,都经过严格调试,确保可以运行!提供完整的部署教程和设计文档,方便使用。主要针对计算机相关专业的正在做毕业设计大作业的学生和需要项目实战练习的学习者,资源项目的难度比较适中,内容都是经过助教老师审定过的能够满足学习、使用需求,如果有需要的话可以放心下载使用。 主要用到的技术: java:强制使用面向对象编程(OOP),支持封装、继承、多态和抽象。 Servlet:运行在服务端的Java程序,通过实现javax.servlet.Servlet接口处理HTTP请求和响应,作为JavaWeb的核心控制器,负责动态资源生成和请求逻辑调度 jsp:基于HTML的动态网页技术,允许嵌入Java代码片段(如<% %>),用于简化视图层开发,本质是编译为Servlet的服务器端模板 Mysql:开源关系型数据库管理系统,支持ACID事务和SQL标准,通过JDBC与Java程序连接,适用于Web应用的高并发数据存储与查询

    【毕业设计】Python的Django-html知识图谱的百科知识问答平台源码(完整前后端+mysql+说明文档+LW+PPT).zip

    【毕业设计】Python的Django-html知识图谱的百科知识问答平台源码(完整前后端+mysql+说明文档+LW+PPT).zip

    扑克牌识别数据集,可识别A-K所有的牌字母 1850张原始图,正确识别率可达98.7%,yolo v8格式标注

    扑克牌识别数据集,可识别A-K所有的牌字母 1850张原始图,正确识别率可达98.7%,yolo v8格式标注

    双碳目标下综合能源系统低碳运行优化调度实践-涵盖光伏风电、热电联产等能源设备,借助Matlab与Yalmip求解器的联合应用,实现低成本运行与碳交易策略 ,双碳目标下综合能源系统低碳运行优化调度研究

    双碳目标下综合能源系统低碳运行优化调度实践——涵盖光伏风电、热电联产等能源设备,借助Matlab与Yalmip求解器的联合应用,实现低成本运行与碳交易策略。,双碳目标下综合能源系统低碳运行优化调度研究:光伏风电融合、热电联产与碳捕集设备的协同优化利用Matlab程序,双碳目标下综合能源系统低碳运行优化调度Matlab程序 包含光伏、风电、热电联产、燃气锅炉、电锅炉、电储能、碳捕集设备,考虑碳交易 以系统运行成本最小为目标进行调度 没有具体参考文献,这个只是一个授之以渔的程序,方便入手 采用Yalmip+Cplex求解(需安装求解器) 注释详实,条理清晰,适合初学者学习。 ,双碳目标; 低碳运行优化调度; 能源系统; Matlab程序; 光伏; 风电; 热电联产; 燃气锅炉; 电锅炉; 电储能; 碳捕集; 碳交易; 系统运行成本; Yalmip; Cplex求解; 注释详实; 初学者学习。,基于双碳目标的综合能源系统低碳调度优化Matlab程序:光伏、风电等多源协同与碳交易策略

    虚拟电厂基本概念及关键技术问题思辨.pdf

    虚拟电厂基本概念及关键技术问题思辨

    Python 实现基于BiLSTM双向长短期记忆神经网络的时间序列预测的详细项目实例(含完整的程序,GUI设计和代码详解)

    内容概要:文章详述了基于Python实现的双向长短期记忆神经网络(BiLSTM)时间序列预测项目。从项目背景介绍了为何BiLSTM比传统模型更适合复杂的非线性时间序列预测,并列出项目的各个部分包括数据预处理、特征工程、BiLSTM模型构建(输入层、BiLSTM层、全连接层和输出层)、训练和评估等。项目还包括了一个精美的GUI界面设计使模型更容易使用,以及防止过拟合的方法如正则化、早停技术和超参数调节来优化模型性能。通过案例展示了完整的代码整合封装流程,提供了可视化的预测结果与评估指标如MSE和MAE,并涉及部署与生产环境的实际运用。 适合人群:有一定深度学习、时间序列预测基础知识的研发人员,特别是那些希望了解BiLSTM及其应用场景的开发者和技术爱好者。 使用场景及目标:①适用于处理复杂非线性的、存在长时间依赖关系的时间序列数据,比如金融市场预测、气象预报、电力需求预测等领域;②目标是提高模型预测精度、有效处理长时依赖数据,为各类需要时间序列预测的行业如交通、能源等行业提供更可靠的支持;③项目成果不仅可以直接应用到具体场景,也为学术研究贡献新的见解和技术支持。 阅读建议:鉴于该项目涵盖多个层面的内容,从环境搭建到最后的GUI设计,读者应该分阶段阅读,重点关注自己感兴趣或是专业相关联的部分。比如对于初学者而言,可以从简单的数据导入导出和基本概念学起;而对于进阶者来说,可以直接跳转到模型优化章节深入探讨。整个过程中,最好边看边动手实践,并利用提供的可视化工具检验自己的理解和修改的效果。

    安卓模拟器开发资源包下载10

    安卓模拟器开发资源包下载10

    西门子S7-200 Smart PLC与东元Teco N310变频器通讯实战指南:以太网控制+昆仑通态触摸屏实现设定频率、启停与数据传输,西门子S7-200 Smart PLC与东元Teco N310

    西门子S7-200 Smart PLC与东元Teco N310变频器通讯实战指南:以太网控制+昆仑通态触摸屏实现设定频率、启停与数据传输,西门子S7-200 Smart PLC与东元Teco N310变频器通讯实战指南:以太网控制+485口连接程序详解,西门子200smart与东元Teco N310变频器通讯实战程序 器件:西门子s7 200 smart PLC,东元Teco N310变频器,昆仑通态触摸屏(带以太网),中途可以加路由器 控制方式:触摸屏与plc以太网通讯,PLC与变频器通讯485口相连 功能:触摸屏控制变频器设定频率,启停,读取输出频率,电压 说明:是程序,非硬件。 程序有注释,变频器设置,接线都有,一应俱全 ,西门子200smart PLC; 变频器通讯; 触摸屏控制; 设定频率; 启停控制; 读取输出; 程序注释; 接线说明,西门子S7 200 Smart与东元Teco N310变频器通讯控制程序实战指南

    Java面向对象编程:深入剖析继承与多态的应用及其优势

    内容概要:本文详尽介绍了 Java 中继承与多态两大面向对象编程的核心概念,包括具体的实现方式、相关关键字的使用(extends、override、super、final、abstract)及其背后的逻辑。重点解释了类层次结构建立的方式和方法覆盖的实现,并讨论了抽象类和接口的作用。文章展示了继承与多态在提高代码重用性和扩展性方面的重要贡献,同时也提及了它们带来的潜在风险与挑战。通过两个实际应用案例(图形绘制系统、游戏角色系统),阐述了这两个概念在一个完整的软件项目中的运用。 适用人群:对面向对象编程有所了解但仍希望深入了解其实现机制和优化技巧的程序员或者软件工程师。 使用场景及目标:适用于想要掌握如何更好地利用 OOP 思想设计高效可靠的 Java 应用系统的个人。学习者将理解如何有效地组织代码、最大化组件复用率,并确保系统的灵活性与可维护性。 其他说明:尽管继承和多态为 Java 提供了许多好处,但也存在一些不足之处,如可能导致复杂的继承树,增加理解成本;或是因为在运行时才绑定方法而引入额外开销。因此,在实践中应当审慎选择适当的解决方案。 此外,文中还包括关于向上转型、向下转型

    C#多线程工控源码替代PLC触摸屏:多级页签通信,自由设定串口以太网通信,触摸键盘模拟输入等强大功能,附赠所有控件,C#多线程工控源码替代PLC触摸屏:强大功能,自由通信,触摸键盘模拟输入,含所有控件

    C#多线程工控源码替代PLC触摸屏:多级页签通信,自由设定串口以太网通信,触摸键盘模拟输入等强大功能,附赠所有控件,C#多线程工控源码替代PLC触摸屏:强大功能,自由通信,触摸键盘模拟输入,含所有控件,西门子PLC集成,C#多线程工业源码,可技术咨询 0, 纯源代码。 1, 替代传统plc搭载的触摸屏。 2, 工控屏幕一体机直接和plc通信。 3, 功能强大,多级页签。 4, 可以自由设定串口或以太网通信。 5, 主页。 6, 报警页。 7,触摸键盘模拟输入。 8, 系统设定页。 9, 历史查询页。 10,标定设定页。 11, 赠送所有控件。 12,使用的西门子Plc。 ,C#多线程; 工业源码; 纯源代码; 替代传统plc触摸屏; 通信; 功强大; 多级页签; 自由设定通信方式; 主页; 报警页; 触摸键盘模拟输入; 系统设定页; 历史查询页; 标定设定页; 赠送控件; 西门子Plc。,C#多线程工业源码:PLC通信与触摸屏一体解决方案

    拼鱼鱼CMS,一款垂钓行业的平台系统源码

    拼鱼鱼CMS,一款垂钓行业的平台系统源码

    硬件开发全流程解析:电子电路设计与嵌入式软件开发的关键步骤与技术要点

    内容概要:本文深入探讨了硬件开发的全过程,涵盖了硬件开发所需的软硬件条件、关键技术细节以及常见流程。首先介绍必要的硬件工具,如示波器、万用表、信号发生器等,然后列举常用的原型开发板和测试设备。接着讨论了多种软件条件,涉及电路设计、仿真和嵌入式开发工具。技术细节部分讲解了电路设计中的原理图设计、PCB布局和元件选择等方面的内容,并简述了PCB制造和嵌入式软件开发的基本概念。最后介绍了常见的开发流程、测试与调试环节,并提出了若干重要的开发注意事项。硬件开发是一项涉及电子电路设计、PCB制造、嵌入式编程等多方面的综合性工程任务,合理的工具选取与流程控制对项目的成功至关重要。 适合人群:从事电子产品设计、电路设计、嵌入式系统开发的研究人员、工程师或有志于进入这一领域的高校学生。 使用场景及目标:可用于了解完整的硬件开发流程,作为教材辅助教学或者企业内部培训资料。帮助使用者掌握从需求定义到最终产品的整个链条上的知识点和技术技能。 其他说明:文中还强调了硬件开发过程中的一些最佳实践和建议,比如如何确保良好的信号完整性,合理规划电源管理系统以及有效管理和降低生产成本等问题。同时提到,对于复杂程度较高

    R语言比较型图标-词云图数据集

    R语言比较型图标-词云图数据集

    Python 实现基于KNN K近邻的时间序列预测-递归预测未来的详细项目实例(含完整的程序,GUI设计和代码详解)

    内容概要:本文档介绍了一个基于KNN(K-Nearest Neighbors)的时间序列递归预测项目,通过详细的案例解析展示了如何将KNN算法与递归预测相结合,应用于多步时间序列预测。项目重点解决了KNN在时间序列数据中顺序性弱的问题,通过优化KNN模型及其与递归预测的协同来提升预测精度。文档提供了从理论到代码实现,再到模型评估、误差修正,以及精美GUI设计等多个方面的详尽步骤和具体实施方案,包括滑动窗口特征构造、模型参数调优、实时预测部署、用户界面展示等功能。 文档首先阐述了背景和目的,明确了该项目旨在提高KNN对时序数据的适应性,并结合递归预测方法改善预测效果。接着介绍了在实现过程中面临的挑战,例如KNN算法本身的计算成本、误差累加风险,以及如何平衡模型复杂度和实时性。之后深入探讨了该项目的独特性和创新点,包括对自适应KNN模型、递归预测中误差传播控制的具体实现方法,以及模型在不同领域(金融市场、天气预报、能耗预测等)的成功应用案例。 项目流程涵盖了数据预处理、模型构建、评估和优化等多个关键环节,并给出了Python环境搭建所需的完整代码段和支持工具,确保项目从头到尾具备较高的可操作性。最后还讨论了未来的潜在发展方向和技术改进方向,如引入更复杂的神经网络模型、实现多变量预测、强化模型解释力等。 适合人群:具备一定编程技能,熟悉Python编程语言及基本统计学概念的研究人员和技术爱好者,特别适合从事数据分析和预测建模工作的专业人士。 使用场景及目标:本项目适用于任何希望通过时间序列数据进行趋势分析和短期/中期预测的企业和个人,具体应用场景包括但不限于股市行情预测、商品需求规划、电力消耗估计等领域。项目的总体目标是在充分尊重时间序列特性的基础上,利用简单的KNN模型和灵活的递归预测方法,为用户提供一个既容易上手又足够强大的预测平台。 阅读建议:由于本项目涵盖了大量技术细节,因此强烈推荐读者先掌握KNN的基本原理和常用的时间序列分析技巧后再开始深入了解。建议边读边练习,通过动手尝试每一个步骤,尤其是涉及到的实际编码部分,来加深理解和记忆。此外,对于希望将其应用于特定行业的用户而言,还应注意根据自身情况进行适当调整,以便获得更好的性能表现。

Global site tag (gtag.js) - Google Analytics