DelhiでWeb参照をするとこんなソースが出来上がります。
長いので、遅い回線の人はごめんなさい。
//------------------------------------------------------------------------------ // <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 localhost1.Bookshelf; interface uses System.Diagnostics, System.Xml.Serialization, System.Web.Services.Protocols, System.ComponentModel, System.Web.Services; type Book = class; TArrayOfBook = array of Book; /// <remarks/> [System.Diagnostics.DebuggerStepThroughAttribute] [System.ComponentModel.DesignerCategoryAttribute('code')] [System.Web.Services.WebServiceBindingAttribute(Name='BookshelfSoapBinding', Namespace='h' + 'ttp://localhost:8080/s2-axis-examples/services/Bookshelf')] BookshelfImplService = class(System.Web.Services.Protocols.SoapHttpClientProtocol) /// <remarks/> public constructor Create; /// <remarks/> [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' + 'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' + 'st:8080/s2-axis-examples/services/Bookshelf')] procedure addBook(_book: Book); /// <remarks/> function BeginaddBook(_book: Book; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; /// <remarks/> procedure EndaddBook(asyncResult: System.IAsyncResult); /// <remarks/> [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' + 'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' + 'st:8080/s2-axis-examples/services/Bookshelf')] [result: System.Xml.Serialization.SoapElementAttribute('getBookReturn')] function getBook(isbn: string): Book; /// <remarks/> function BegingetBook(isbn: string; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; /// <remarks/> function EndgetBook(asyncResult: System.IAsyncResult): Book; /// <remarks/> [System.Web.Services.Protocols.SoapRpcMethodAttribute('', RequestNamespace='h' + 'ttp://ex03.examples.axis.seasar.org', ResponseNamespace='http://localho' + 'st:8080/s2-axis-examples/services/Bookshelf')] [result: System.Xml.Serialization.SoapElementAttribute('getBooksReturn')] function getBooks: TArrayOfBook; /// <remarks/> function BegingetBooks(callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; /// <remarks/> function EndgetBooks(asyncResult: System.IAsyncResult): TArrayOfBook; end; /// <remarks/> [System.Xml.Serialization.SoapTypeAttribute('Book', 'http://ex03.examples.' + 'axis.seasar.org')] Book = class /// <remarks/> public author: string; /// <remarks/> isbn: string; /// <remarks/> title: string; end; implementation {$AUTOBOX ON} {$HINTS OFF} {$WARNINGS OFF} /// <remarks/> constructor BookshelfImplService.Create; begin inherited Create; Self.Url := 'http://localhost:8080/s2-axis-examples/services/Bookshelf'; end; /// <remarks/> procedure BookshelfImplService.addBook(_book: Book); type TArrayOfSystem_Object = array of System.Object; begin Self.Invoke('addBook', TArrayOfSystem_Object.Create(_book)); end; /// <remarks/> function BookshelfImplService.BeginaddBook(_book: Book; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; type TArrayOfSystem_Object = array of System.Object; begin Result := Self.BeginInvoke('addBook', TArrayOfSystem_Object.Create(_book), callback, asyncState); end; /// <remarks/> procedure BookshelfImplService.EndaddBook(asyncResult: System.IAsyncResult); begin Self.EndInvoke(asyncResult); end; /// <remarks/> function BookshelfImplService.getBook(isbn: string): Book; type TArrayOfSystem_Object = array of System.Object; var results: TArrayOfSystem_Object; begin results := Self.Invoke('getBook', TArrayOfSystem_Object.Create(isbn)); Result := (Book(results[0])); end; /// <remarks/> function BookshelfImplService.BegingetBook(isbn: string; callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; type TArrayOfSystem_Object = array of System.Object; begin Result := Self.BeginInvoke('getBook', TArrayOfSystem_Object.Create(isbn), callback, asyncState); end; /// <remarks/> function BookshelfImplService.EndgetBook(asyncResult: System.IAsyncResult): Book; type TArrayOfSystem_Object = array of System.Object; var results: TArrayOfSystem_Object; begin results := Self.EndInvoke(asyncResult); Result := (Book(results[0])); end; /// <remarks/> function BookshelfImplService.getBooks: TArrayOfBook; type TArrayOfSystem_Object = array of System.Object; var results: TArrayOfSystem_Object; begin results := Self.Invoke('getBooks', New(TArrayOfSystem_Object, 0)); Result := (TArrayOfBook(results[0])); end; /// <remarks/> function BookshelfImplService.BegingetBooks(callback: System.AsyncCallback; asyncState: System.Object): System.IAsyncResult; type TArrayOfSystem_Object = array of System.Object; begin Result := Self.BeginInvoke('getBooks', New(TArrayOfSystem_Object, 0), callback, asyncState); end; /// <remarks/> function BookshelfImplService.EndgetBooks(asyncResult: System.IAsyncResult): TArrayOfBook; type TArrayOfSystem_Object = array of System.Object; var results: TArrayOfSystem_Object; begin results := Self.EndInvoke(asyncResult); Result := (TArrayOfBook(results[0])); end; end.