delphi7调用.net的webservices

delphi7调用.net的webservices

现在webservices好像非常流行,

ms的vs.net开发webservices特别快捷,

那我们能不能用delphi调用.net的webservices呢?

答案是肯定的!!!

这要感谢Borland的软件工程师的努力了啊!

现在让我们开始吧,

先用vs.net创建一个简单的webservices;

1.打开vs.net2003 新建一个webservises 命名为WebService1      

2.添加两个WebMethod

[WebMethod]

public string HelloWorld()

{

return "Hello World 用.NET写的web服务!!^_^";

}

[WebMethod]

public string datetostr(DateTime dt)//将时间转换为字符

{

return dt.ToUniversalTime().ToString();

}

完整代码如下:

using System;

using System.Collections;

using System.ComponentModel;

using System.Data;

using System.Diagnostics;

using System.Web;

using System.Web.Services;

 

 

namespace WebService1

{

         public class Service1 : System.Web.Services.WebService

         {

                   public Service1()

                   {

                            //CODEGEN: 该调用是 ASP.NET Web 服务设计器所必需的

                            InitializeComponent();

                   }

 

 

                   #region 组件设计器生成的代码

                  

                   //Web 服务设计器所必需的

                   private IContainer components = null;

                                    

                   /// <summary>

                   /// 设计器支持所需的方法 - 不要使用代码编辑器修改

                   /// 此方法的内容。

                   /// </summary>

                   private void InitializeComponent()

                   {

                   }

                   /// <summary>

                   /// 清理所有正在使用的资源。

                   /// </summary>

                   protected override void Dispose( bool disposing )

                   {

                            if(disposing && components != null)

                            {

                                     components.Dispose();

                            }

                            base.Dispose(disposing);                 

                   }

                  

                   #endregion

                   [WebMethod]

                   public string HelloWorld()

                   {

                            return "Hello World 用.NET写的web服务!!^_^";

                   }

                   [WebMethod]

                   public string datetostr(DateTime dt)//将时间转换为字符

                   {

                            return dt.ToUniversalTime().ToString();

                   }

         }

}

2.编译调试:

 

 

我们的webservices已经可以用了;

 

 

下面在打开delphi 7

新建一个应用程序:

拖两个button两个edit 和一个HTTPRIO(在webservices页上)到窗体上;

3.接下来:

File->new->other->webservices->WSDL importer

点击next 导入

保存unit Service1

4.在unit1(form1 的单元文件)中引用Service1, XSBuiltIns

5. HTTPRIO1 的

WSDLLocation  属性设置为'http://localhost/WebService1/Service1.asmx?WSDL'

6.添加form1 的代码如下:

unit Unit1;

 

 

interface

 

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, InvokeRegistry, Rio, SOAPHTTPClient;

 

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    HTTPRIO1: THTTPRIO;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

 

var

  Form1: TForm1;

 

 

implementation

uses

  XSBuiltIns,

  Service1;

{$R *.dfm}

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

  dtm:TXSDateTime;

begin

  dtm:=TXSDateTime.Create;

  dtm:=DateTimeToXSDateTime(now);

  Edit1.Text:=(HTTPRIO1 as Service1Soap).datetostr(dtm);

  dtm.free;

end;

 

 

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit2.Text:=(HTTPRIO1 as Service1Soap).HelloWorld;

end;

 

 

end.

7.编译运行

 

 

 

 

希望本文能起到抛砖引玉的作用^_^