[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(); 
                                      } 
                  } 
} 

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.