localhost.webservice1.pas

《Delphi 2005程序设计及其应用开发》源代码

//------------------------------------------------------------------------------
// <autogenerated>
//     This code was generated by a tool.
//     Runtime Version: 1.1.4322.573
//
//     Changes to this file may cause incorrect behavior and will be lost if 
//     the code is regenerated.
// </autogenerated>
//------------------------------------------------------------------------------

// 
// This source code was auto-generated by wsdl, Version=1.1.4322.573.
// 
unit localhost.webservice1;

interface

uses System.Diagnostics, 
  System.Xml.Serialization, 
  System.Web.Services.Protocols, 
  System.ComponentModel, 
  System.Web.Services, System.Web.Services.Description;

/// <remarks/>
type
  [System.Diagnostics.DebuggerStepThroughAttribute]
  [System.ComponentModel.DesignerCategoryAttribute('code')]
  [System.Web.Services.WebServiceBindingAttribute(Name='TWebService1Soap', Namespace='http://tempuri.org/')]
  TWebService1 = class(System.Web.Services.Protocols.SoapHttpClientProtocol)
    /// <remarks/>
  public
    constructor Create;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapDocumentMethodAttribute('http://tempuri.org/ContractInfo', RequestNamespace='http://tempuri.org/', ResponseNamespace='http://tempuri.org/', Use=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)]
    function ContractInfo(Contract: string): string;
    /// <remarks/>
    function BeginContractInfo(Contract: string; callback: System.AsyncCallback; 
      asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndContractInfo(asyncResult: System.IAsyncResult): string;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapDocumentMethodAttribute('http://tempuri.org/MonthlyPay', RequestNamespace='http://tempuri.org/', ResponseNamespace='http://tempuri.org/', Use=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)]
    function MonthlyPay(Money: Integer; Period: Integer; Rate: System.Single): string;
    /// <remarks/>
    function BeginMonthlyPay(Money: Integer; Period: Integer; Rate: System.Single; 
      callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndMonthlyPay(asyncResult: System.IAsyncResult): string;
  end;
  
implementation

{$AUTOBOX ON}
{$HINTS OFF}
{$WARNINGS OFF}

/// <remarks/>
constructor TWebService1.Create;
begin
  inherited Create;
  Self.Url := 'http://localhost/Loan/webservice1.asmx';
end;

/// <remarks/>
function TWebService1.ContractInfo(Contract: string): string;
type
  TSystem_ObjectArray = array of System.Object;
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('ContractInfo', TSystem_ObjectArray.Create(Contract));
  Result := (string(results[0]));
end;

/// <remarks/>
function TWebService1.BeginContractInfo(Contract: string; callback: System.AsyncCallback; 
  asyncState: System.Object): System.IAsyncResult;
type
  TSystem_ObjectArray = array of System.Object;
begin
  Result := Self.BeginInvoke('ContractInfo', TSystem_ObjectArray.Create(Contract), 
      callback, asyncState);
end;

/// <remarks/>
function TWebService1.EndContractInfo(asyncResult: System.IAsyncResult): string;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  Result := (string(results[0]));
end;

/// <remarks/>
function TWebService1.MonthlyPay(Money: Integer; Period: Integer; Rate: System.Single): string;
type
  TSystem_ObjectArray = array of System.Object;
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('MonthlyPay', TSystem_ObjectArray.Create(Money, Period, 
          Rate));
  Result := (string(results[0]));
end;

/// <remarks/>
function TWebService1.BeginMonthlyPay(Money: Integer; Period: Integer; Rate: System.Single; 
  callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
type
  TSystem_ObjectArray = array of System.Object;
begin
  Result := Self.BeginInvoke('MonthlyPay', TSystem_ObjectArray.Create(Money, 
          Period, Rate), callback, asyncState);
end;

/// <remarks/>
function TWebService1.EndMonthlyPay(asyncResult: System.IAsyncResult): string;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.EndInvoke(asyncResult);
  Result := (string(results[0]));
end;

end.