localhost.webservice1.pas

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

//------------------------------------------------------------------------------
// <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>
//------------------------------------------------------------------------------

// 
// 此源代码由 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='h' +
  'ttp://tempuri.org/')]
  TWebService1 = class(System.Web.Services.Protocols.SoapHttpClientProtocol)
    /// <remarks/>
  public
    constructor Create;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapDocumentMethodAttribute('http://tempu' +
    'ri.org/Equation_x1', RequestNamespace='http://tempuri.org/', ResponseNamespace='h' +
    'ttp://tempuri.org/', Use=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)]
    function Equation_x1(a: System.Double; b: System.Double; c: System.Double): System.Double;
    /// <remarks/>
    function BeginEquation_x1(a: System.Double; b: System.Double; c: System.Double; 
      callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndEquation_x1(asyncResult: System.IAsyncResult): System.Double;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapDocumentMethodAttribute('http://tempu' +
    'ri.org/Equation_x2', RequestNamespace='http://tempuri.org/', ResponseNamespace='h' +
    'ttp://tempuri.org/', Use=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)]
    function Equation_x2(a: System.Double; b: System.Double; c: System.Double): System.Double;
    /// <remarks/>
    function BeginEquation_x2(a: System.Double; b: System.Double; c: System.Double; 
      callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndEquation_x2(asyncResult: System.IAsyncResult): System.Double;
    /// <remarks/>
    [System.Web.Services.Protocols.SoapDocumentMethodAttribute('http://tempu' +
    'ri.org/Circle', RequestNamespace='http://tempuri.org/', ResponseNamespace='h' +
    'ttp://tempuri.org/', Use=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)]
    function Circle(r: System.Double): System.Double;
    /// <remarks/>
    function BeginCircle(r: System.Double; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
    /// <remarks/>
    function EndCircle(asyncResult: System.IAsyncResult): System.Double;
  end;
  
implementation

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

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

/// <remarks/>
function TWebService1.Equation_x1(a: System.Double; b: System.Double; c: System.Double): System.Double;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('Equation_x1', TArrayOfSystem_Object.Create(a, b, c));
  Result := (System.Double(results[0]));
end;

/// <remarks/>
function TWebService1.BeginEquation_x1(a: System.Double; b: System.Double; c: System.Double; 
  callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('Equation_x1', TArrayOfSystem_Object.Create(a, b, 
          c), callback, asyncState);
end;

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

/// <remarks/>
function TWebService1.Equation_x2(a: System.Double; b: System.Double; c: System.Double): System.Double;
type
  TArrayOfSystem_Object = array of System.Object;
var
  results: TArrayOfSystem_Object;
begin
  results := Self.Invoke('Equation_x2', TArrayOfSystem_Object.Create(a, b, c));
  Result := (System.Double(results[0]));
end;

/// <remarks/>
function TWebService1.BeginEquation_x2(a: System.Double; b: System.Double; c: System.Double; 
  callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('Equation_x2', TArrayOfSystem_Object.Create(a, b, 
          c), callback, asyncState);
end;

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

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

/// <remarks/>
function TWebService1.BeginCircle(r: System.Double; callback: System.AsyncCallback; 
  asyncState: System.Object): System.IAsyncResult;
type
  TArrayOfSystem_Object = array of System.Object;
begin
  Result := Self.BeginInvoke('Circle', TArrayOfSystem_Object.Create(r), callback, 
      asyncState);
end;

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

end.