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.编译运行
希望本文能起到抛砖引玉的作用^_^