用Delphi 5创建Web Services_Delphi

  • 内容
  • 评论
  • 相关

M 作 者: cn_prince(欢喜王子) 2001-06-11 20:58:55 :0 :0    
[回复] [打包] [转贴]  
我尚无缘得见新版本的Delphi。据可靠消息称,它提供对SOAP--web Services的基础--的全面支持,而扔弃了Borland MIDAS。

为什么这只软件大鲨会对Web Services如此钟情?他们的动机很容易明白。Web services意味着不用再卖产品,而是卖服务。不再会有盗版。版权受到完全保护:制造商独家保有软件。和消费者签订的合同将会是长期的。而且如同上瘾一半,用户用得越多,就越是想用。对于大企业来说这就是白花花的银子、用户忠诚和集权。从坏处想,Web services也有可能使客户的交流和日常生活被主宰--新资本主义革命的混合体以及"大哥"--噩梦。

有人希望那只是刺激的白日梦。只有在未来才能看到Web services在社会中所起的作用。但无庸置疑,它们已经使业界产生了极大的改变,就像PC和Internet的出现一样。而我们,开发人员,必须做好准备。

这里有一个简单的例子--执行某个数学计算,x+y什么的。(这是一个高度抽象的例子;你可以把它投射到真实世界中)。以前,要完成这个任务,用这样的代码:

http://www.gaodaima.com/65608.html用Delphi 5创建Web Services_Delphi

function HaveSum (x: integer; y: integer): integer;
begin
  Result:=x+y;
End;

后来,人们发明了OOP(面向对象编程)。于是我们就有了一个包括两个整数值和一个GetSum方法的ThaveSum类,然后用它创建一个对象实例。在设计层面上,这显得既雅致又高效(此出就不再继续讨论OOP的好处了)。跟着是微软的COM。对象不再只是被创建,更是一个生命体。程序设计变成协调所有这些生命体,完成某种任务,而非单纯做一个工匠的工作。

问题在于这些生命体并非都易于伺候,但Microsoft Office仍然实现了这一策略。理论上COM被设计为可以接收远程调用,如果一个办公室里有20个用户想知道x+y到底等于几,我们就只需要创建一个IhaveSum COM,然后分发、销售、回答所有这些用户的问题。

现在,Web services之梦来了:不分发产品,而是分发服务。如果谁要求服务,就要呼叫分发者执行,并且为服务付钱。软件用户与软件产品完全隔绝,他只关心产品给出的结果(而那就是在已然过去了的"黄金时代"里,购买或合法拷贝的真正原因)。

简单的Delphi 5例子

Web services的两大柱石--HTTP和xml已经为Delphi开发者所熟知了。下面我想展示用Delphi 5来实现Web services。希望Delphi 6的例子很快就可以给出。

首先我要实现HTTP协议。服务器可以是ASP或php页面。既然我们用Delphi,那就用Delphi CGI stand-alone可执行文件做服务器。只需要几分钟时间、一行代码就可以完成(我在解释给菜鸟听呢)。

选择 File(文件)- New(新建)- New Web Server Application(新Web服务器应用程序)。我们要做的事用CGI就可以了,而且便于调试。在真实环境中用ISAPI DLL会好些。于是我们得到一个WebModule。打开它的Action Editior,在OnAction事件中加入下面的代码:

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content :=IntToStr( StrToIntDef(Request.QueryFields.Values['x'],0) +
  StrToIntDef(Request.QueryFields.Values['y'],0));
end;

服务器计算两个变量之和,然后传送到客户端。

在Delphi中可以有多种方法实现HTTP协议。可以用WinInet API函数(在Marco Cantu的《精通Delphi 5》中有很好的例子)或者Indy组件(在Delphi 6中应该整合了Indy,也可以在http://www.nevrona.com/Indy下载。这里我打算用Microsoft Internet Transfer Control 6.0,所以你需要在Delphi中Import类型库MSINET.OCX。在INET98.CHM帮助文件里面可以找到更多信息。这个控件用起来很简单,在我们的例子中也只需要一行代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption :=
    inet1.OpenURL('http://localhost/scripts/webcalc.exe?x='+Edit1.Text+'&y='
      +Edit2.Text);
end;

控件向服务器发送请求,并且接收回答。OnStateChange事件允许我们得到操作的详细信息:

procedure TForm1.Inet1StateChanged(Sender: TObject; State: Smallint);
begin
case state of
  icResolvingHost: statusbar1.Panels[0].Text :=
    ('寻找指定服务器的IP地址。');
  icHostResolved: statusbar1.Panels[0].Text :=
    (' 成功找到IP地址。');
  icConnecting: statusbar1.Panels[0].Text :=
    (' 正在连接到主机。');
  icConnected: statusbar1.Panels[0].Text :=
    (' 成功连接到主机。');
  icRequesting: statusbar1.Panels[0].Text :=
    (' 发送请求。');
  icRequestSent: statusbar1.Panels[0].Text :=
    (' 成功发送请求。');
  icReceivingResponse: statusbar1.Panels[0].Text :=
    ('接收主机回应。');
  icResponseReceived: statusbar1.Panels[0].Text :=
    (' 成功接收到主机回应。');
  icDisconnecting: statusbar1.Panels[0].Text :=
    (' 从服务器断开。');
  icDisconnected: statusbar1.Panels[0].Text :=
    ('成功从服务器断开。');
  icError: statusbar1.Panels[0].Text :=
    ('与服务器通讯发生错误。');
  icResponseCompleted: statusbar1.Panels[0].Text :=
    ('The request has completed and all data has been received');
end;
end;

图一:客户端

客户端应用程序做好了。它不自己做计算工作,而是依靠Webcalculator服务器完成任务。我们的Web services可以为任何人提供服务……下一个例子稍微高级些:使用XML传递变量。XML连初学者也应该掌握,它不过是储存和交换数据的一种标准格式而已。这回我用TNMHTTP的Post方法(在Delphi的FastNet控件组):

Web.Post('http://localhost/scripts/webCalc.exe',' '+strX+'+strY+');  

这个命令做了所有工作,不同之处在于它用来传递结构化了的XML文档。服务器需要解析XML。这是我们需要另一种技术:Charlie Calvert在《Delphi中的XML解析》种作了详细说明。我将用MSXML.DLL库来做服务器端XML解析。你需要import这个Microsoft库到Delphi中。同样,在OnAction事件中加入代码:

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean(;
var
  doc : IXMLDOMDocument;
  ElemList: IXMLDOMNodeList;
  x, y:integer;
  begin
    Doc:= CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    Doc.loadXML (Request.ContentFields.Text );
    ElemList:= Doc.getElementsByTagName ('varX'):
    x:= StrtoIntDef(ElemList.item[0].text,0);
    ElemList:= Doc.getElementsByTagName ('varY);
    y:= StrtoIntDef(ElemList.item[0].text,0);
    Response.content:= #10+#13+InttoStr(x+y) ;
  end;

可以用多种方法来读取XML文档。Microsoft XML SDK中有很好的文档。服务器做好了。XML被用来传递变量,而不只是x和y这么简单。

DELPHI 5 与 SOAP 例子  

不用等Delphi 6,我们可以马上开始用SOAP工作。可以下载SOAP Toolkit 2.0,在Delphi 5中创建Web service。在最后一个例子中,我们用它来实现Webcalculator。

第一步,创建一个提供服务的COM对象。然后,构造一个WSDL(Web Service Description Language,Web服务描述语言)文件,用于Web services。幸运的是我们可以用SOAP Toolkit 2.0自动创建这些文件。最后一步,开发一个Delphi应用程序,它将使用服务。这样,我们要通过Delphi控制SOAP客户端。

开始。第一个任务是创建简单的COM对象。它只有一个接口和一个方法:GetSum。

ISummer = interface(Idispatch)
     function GetSum(const x: WideString; const y: WideString): WideString;
       safecall;

function TSummer.GetSum(const x, y: WideString): WideString;
begin
  Result:= InttoStr(SysUtils.StrtoInt(x)+ SysUtils.StrtoInt(y);
end;

{和前一个例子差不多,是吧?像做一个Active Server Object一样。用Delphi写简单ASP的方法。编译为ActiveX Dll,发布到ASP文件:}

Set DelphiASPObj = Server.CreateObject("Project1.Summer")
Response.Write ( DelphiASPObj.GetSum(Request.QueryString.Item("x"),
    Request.QueryString.Item("y")))
Set DelphiASPObj = Nothing
  Response.End  

图二 我们的COM Webcalculator,提供Web service

如果不出意外的话,计算机可以开始工作了。在浏览器中输入http://localhost/scripts/webcalculator.asp?x=3&y=8之类的地址,应该返回答案了。

接下来,安装SOAP Toolkit。下载地址:Microsoft - msdn-files/027/001/580/msdncompositedoc.xml。然后,从Toolkit菜单中选择WSDL生成器(generator)。输入服务名,ActiveX Dll的名称,还有生成WSDL、WSML的web目录。

最后,用三行代码创建客户端:

procedure TForm1.Button1Click(Sender: Tobject);

var
  SoapClient: OleVariant;
  SoapClient := CreateOleObject('MSSOAP.SoapClient');
begin
  SoapClient.mssoapinit('http://localhost/scripts/sumservice.wsdl','SumService','SummerSoapPort');
  showmessage(SoapClient.GetSum(Edit1.Text,Edit2.Text));
end;

搞掂啦。恭喜恭喜!我们拥有了自己的SOAP Webcalculator!

很容易把这个例子移植到真实软件环境:比如,一个web service,用来储存客户地址簿。

用Delphi 5、HTTP和XML就可以创建Web services。Import微软Simple Object access Protocol(SOAP)Toolkit 2.0,使得这一切成为可能。下一版本的Delphi承诺百分之百支持SOAP,并能用这种新工具实现Web services。我们正在进入Web services时代,有一样是可以确定的:它将使我们--程序员--的生活更加兴奋。  

欢迎大家阅读《用Delphi 5创建Web Services_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 用Delphi 5创建Web Services_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注