webserviceをつないで見るの巻

s2axis-exampleで用意されているserviceを接続してみるサンプル
１．プロジェクトを作成します

新規作成 Delphi.netプロジェクト作成 Windowsフォームアプリケーション作成を選択肢OKボタンをクリック

２．プロジェクトの保存
　　プロジェクトに名前をつけて保存を選択
　　form1.pas
WebServiceSample.bdsproj
で保存する

３．web参照の追加
　　プロジェクトマネージャーでWebServiceSample.exe場で右クリック
　　web参照の追加を選択
　　URL http://localhost:8080/s2-axis-examples/services/Bookshelf?wsdl
　　Web参照フォルダ名をlocalhost.Bookshelfで参照の追加ボタンをクリック
　　プロジェクトマネージャにweb参照が追加される。

４．書籍情報の追加オペレーション
　　画面にTextBoxを３つ、Labelを３つ、ボタンを一つポトペタ
　　textプロパティを設定
　　Labelは、書籍名、著者、ISBNを設定
ボタンには、書籍を追加を設定する。
implementationにuses localhost1.Bookshelf;を追加

procedure TWinForm.button1_Click(sender: System.Object; e: System.EventArgs);
var
  book_ :Book;
  bookshelf_ :BookshelfImplService;
begin
  bookshelf_ :=BookshelfImplService.Create;
  book_ := Book.create;
  book_.title := TextBox1.Text;
  book_.author := TextBox2.Text;
  book_.isbn := TextBox3.Text;
  bookshelf_.addBook(book_);
  bookshelf_.Free;
  book_.Free;

end;

　　実行して、ボタンを押しても、反応なし。結果が特に返ってこないのでしょうがない。結果を表示するようにしよう。

５．書籍一覧の追加
　　リストボックスの追加
　　ボタンを追加
　　textプロパティに一覧の取得を設定

procedure TWinForm.Button3_Click(sender: System.Object; e: System.EventArgs);
var
  book_ :Book;
  bookshelf_ :BookshelfImplService;
  arrayOfBook_ :TArrayOfBook;
begin
  bookshelf_ :=BookshelfImplService.Create;
  arrayOfBook_ := bookshelf_.getBooks;
  ListBox1.Items.Clear;
  for book_ in arrayOfBook_ do
  begin
    ListBox1.Items.Add(book_.title);
  end;
  bookshelf_.Free;
end;

これで、追加したのを表示できるようになりました。
次は、.netのノータッチデプロイメントに挑戦します。