DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu ( 年 12 月 05 日 DB2 をバックエンドとした Delphi での Web サービスの構築はじめに Borland TM 社の Delphi

Size: px

Start display at page:

Download "DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu ( 年 12 月 05 日 DB2 をバックエンドとした Delphi での Web サービスの構築はじめに Borland TM 社の Delphi"

ゆきたかはし
4 years ago
Views:

DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu (www.marcocantu.com.

サービスサポートは Web サービスのインプリメンテーション用として広く普及しているテクノロジーである SOAP (Simple Object Access Protocol) をその基礎としています (SOAP の詳細は http://www.w3.

Delphi での Web サービスの作成 Borland 社が最初に Web サービスサポートを開始したのは Delphi 6 でした他の方法とは異なりこのテクノロジーは開発環境だけでなく言語自体にも統合されていますかなり以前から Delphi 言語には Java?

1 DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu ( 年 12 月 05 日 DB2 をバックエンドとした Delphi での Web サービスの構築はじめに Borland TM 社の Delphi および Kylix が提供する数ある機能の中で他のビジュアル開発ツールと一線を画するものは XML Web サービス用のサーバーおよびクライアントアプリケーションの開発に対する広範かつ総合的なサポートです Delphi の Web サービスサポートは Web サービスのインプリメンテーション用として広く普及しているテクノロジーである SOAP (Simple Object Access Protocol) をその基礎としています (SOAP の詳細はを参照 ) Web サービスは企業間 (B2B) アプリケーションへと大勢が移り変わる原動力となった主要テクノロジーですこのテクノロジーを理解して活用できるように Delphi とバックエンドの IBM DB2 Universal Database TM からデータを提供するテストクライアントとで作成されている実用的な Web サービスの例を紹介します Delphi での Web サービスの作成 Borland 社が最初に Web サービスサポートを開始したのは Delphi 6 でした他の方法とは異なりこのテクノロジーは開発環境だけでなく言語自体にも統合されていますかなり以前から Delphi 言語には Java? の概念によく似たインターフェースという考え方が反映されています今回 Borland 社ではインターフェースに対するイントロスペクションのサポートを取り入れましたこれによりインターフェースの公開とリモート起動のための汎用的なメカニズムが実現していますこれは特に SOAP マッピング層に適合するように調整されていてそのまま使えるいくつかのコンポーネントがあります以上が簡単な背景ですが次に Delphi 7 で Web サービスを実際にどのように作成するかを説明します Delphi IDE で [File] [New] [Other] というメニューコマンドを使用して新規プロジェクトを作成し [New Items] ダイアログボックスの [WebServices] タブに移動し [SOAP Server Application] を選択します Web サービスは通常は Web サーバー拡張機能として配備されるため使用アプリケーションに最適の Web サーバーアーキテクチャーが何であるかを判断する必要があります Delphi では Apache モジュール ( もちろん Kylix でも使用可能 ) CGI ISAPI (Microsoft IIS Server を使用する Copyright IBM Corporation 2002 商標 DB2をバックエンドとしたDelphiでのWebサービスの構築ページ 1 / 7

2 WindowsR 上のみで使用可能 ) および内部的な Web アプリケーションデバッガーという選択肢の中から選べます最初に知っておくべきことはここで選択したことがその後のすべてを左右することにはならないということですここでの選択はメインプロジェクトファイル内のいくつかのコード行に影響しますが Web サーバー拡張機能または Web サービスの実際のコードの開発にはほとんど影響ありません実際 Delphi WebBroker アーキテクチャーでは実際に使用されるテクノロジーからサーバー側プログラムの開発を抽出します新しいプロジェクトを作成し既存アプリケーションのソースコードファイルをすべてこのプロジェクトに追加するだけでモデル間を自由に移動できますこの記事では Web アプリケーションデバッガーモデルを使用しますこのモデルはソケット接続を使用してカスタム Web サーバーからアクティブにされるスタンドアロンの実行可能ファイルです Web アプリケーションデバッガーアプリケーション自体は呼び出しをトレースしアプリケーションの HTTP 要求および応答をモニターするためのものですこの記事で説明されているサーバーをテストするにはこのプログラムを実行する必要がありますこのテクノロジーを使用する利点は Delphi IDE からサーバーアプリケーションを実行しそのアプリケーションのデバッグをすぐに開始できるということです Web サーバーの拡張ライブラリーのデバッグに必要な煩雑な作業を省けます Web サーバーアーキテクチャーを選んだ後は Web サービスのインターフェースを作成するかどうかを Delphi に指示しますここでは Yes ボタンをクリックしてインターフェースウィザードを起動しますこのウィザードに作成するインターフェースの名前とインターフェースを保存するファイルの名前を入力しますこのウィザードは Web サービスに適したアーキテクチャーの作成を支援するものなのでウィザードを使う方が賢明です Web サービスアプリケーションの構造以上の手順が終了すると Delphi は Web サービス用プロジェクトの完全な構造を生成しますこの構造には以下が含まれますいくつかの標準コンポーネントをホストする SOAP データモジュール SOAP サーバーとして公開される Delphi インターフェースの定義を含むインターフェースユニット公開するインターフェースのメソッドをインプリメントするためのインプリメンテーションユニット完全な Windows アプリケーションである Web デバッガーアーキテクチャーに基づいたサーバーを表すフォームフォームは開発専用なので今回は無視しますこれで Delphi によりコードが生成されたので次は Web サービスの開発に取りかかります最初のステップはインターフェースのメソッドの定義ですこれは Web サービスの機能の定義を意味するものであるためこれが核になるステップですこのステップを進めるにあたり 2 つの方法があります 1 つは既存の WSDL (Web サービス記述言語 ) ファイルを利用しこれをインポートして適切な Delphi インターフェースを生成する方法ですこの記事の例ではこの方法を使用します 2 つ目は Delphi コードでインターフェースを定義しデフォルトで Web サービスデータモジュールに追加されるコンポーネントの中の 1 つ (WSDLHTMLPublish コンポーネント ) により Delphi インターフェースをパブリック WSDL に変換する方法です DB2 をバックエンドとした Delphi での Web サービスの構築ページ 2 / 7

Web サービスインターフェースの定義と WSDL この例では会社の社員に関するデータを公開できる Web サービスを作成しますこの Web サービスは DB2 に含まれている SAMPLE データベースの EMPLOYEE 表にマップされますこの Web サービスの Delphi インターフェースを次のように SoapEmployeeIntf ユニットに定義します ( ソース

3 Web サービスインターフェースの定義と WSDL この例では会社の社員に関するデータを公開できる Web サービスを作成しますこの Web サービスは DB2 に含まれている SAMPLE データベースの EMPLOYEE 表にマップされますこの Web サービスの Delphi インターフェースを次のように SoapEmployeeIntf ユニットに定義します ( ソースコードの SoapEmployeeIntf.pas ファイルを参照 ) type ISoapEmployee = interface (IInvokable) ['{77D0D940-23EC-49A ADE0751E3DB3}'] function GetEmployeeNames: string; stdcall; function GetEmployeeData (EmpID: string): string; stdcall; このユニットにはインターフェースをアプリケーション内の内部 SOAP レジストリーに登録する内部初期化コードも含まれていますこのインターフェースを作成すると Web サービスアプリケーションにより WSDL ファイルが生成されブラウザーを使用して Web サービスに接続したときに図 1 のように Web サービスの説明が最初のページに表示されます図 1. ブラウザー経由で Web サービスに接続したときに表示される Web サービスの説明 1 回クリックするだけでこの Web サービスの SOAP インターフェースを説明する WSDL ファイルをダウンロードできる別ユニットの SoapEmployeeImpl が次のクラスを使用したこのインターフェースのインプリメンテーションを提供します type TSoapEmployee = class(tinvokableclass, ISoapEmployee) publicfunction GetEmployeeNames: string; stdcall; function GetEmployeeData (EmpID: string): string; stdcall; これを見てわかるようにこのクラスは Delphi ライブラリーの TInvokableClass を継承するクラスで先に定義したインターフェースをインプリメントしますこの Web サービスの実際のインプリメンテーションには上記の 2 つのメソッドと返される XML データを管理するいくつかのヘルパー関数が含まれます DB2 をバックエンドとした Delphi での Web サービスの構築ページ 3 / 7

4 DB2 データベースのアクセス dbexpress TM アーキテクチャーは DB2 データベースへのアクセスを提供します ( 詳細はこのサイトに掲載されている Bob Swart 氏の記事を参照してください ) 本記事の例ではデータセットは 1 回読み込むだけで済むので何もキャッシュせずに 1 方向データセットを使用しても安全であるという点が Swart 氏の説明とは異なりますすべての接続と SQL は次に示す DFM ファイルにより定義されるデータモジュール ( 非ビジュアルコンポーネントのコンテナー ) にホストされます ( 以下のリストには主な要素だけを示してあります ) object DataModule3: TDataModule3 object SQLConnection: TSQLConnection ConnectionName = 'DB2Connection' DriverName = 'DB2' LoginPrompt = False Params.Strings = ( 'Database=SAMPLE' 'User_Name=***' 'Password=***') VorLib = 'db2cli.dll' object dsempllist: TSQLDataSet CommandText = 'select EMPNO, LASTNAME, FIRSTNME from EMPLOYEE' SQLConnection = SQLConnection object dsempllistempno: TStringField object dsempllistlastname: TStringField object dsempllistfirstnme: TStringField object dsempdata: TSQLDataSet CommandText = 'select * from EMPLOYEE where EmpNo = :id' Params = < item DataType = ftfixedchar Name = 'id' ParamType = ptinput > SQLConnection = SQLConnection このデータモジュールには SQLDataSet コンポーネントによりホストされる SQL 照会が 2 つ含まれています 1 つ目は各社員の名前と ID を取り出し 2 つ目は特定の社員のデータセット全体を返しますただしここでこのデータをリモートクライアントプログラムにどのように返すかという問題に直面しますこの例では複雑な SOAP データ構造を操作するのではなく XML ドキュメントを返しています XML への変換この例の GetEmployeeNames メソッドは社員の姓と名を値とし関連データベース ID を属性として持つ社員のリストを含む XML 文書を作成しますヘルパー関数 MakeXmlStr および MakeXmlAttribute のコードは省略しましたがこのコードはこの記事をダウンロードして使用できる完全なソースコードの中に含まれています function TSoapEmployee.GetEmployeeNames: string; var DB2 をバックエンドとした Delphi での Web サービスの構築ページ 4 / 7

5 dm: TDataModule3; begin dm := TDataModule3.Create (nil); try dm.dsempllist.open; Result := '' + slinebreak; while not dm.dsempllist.eof do begin Result := Result + ' ' + MakeXmlStr ('employee', dm.dsempllistlastname.asstring + ' ' + dm.dsempllistfirstnme.asstring, MakeXmlAttribute ('id', dm.dsempllistempno.asstring)) + slinebreak; dm.dsempllist.next; Result := Result + ''; finally dm.free; 2 つ目のメソッドの GetEmployeeData はパラメーターを使用する照会を使用し結果のフィールドを個別の XML ノードにフォーマットします ( 著者が作成しここには記載していないヘルパー関数の FieldsToXml を使用します ) function TSoapEmployee.GetEmployeeData(EmpID: string): string; var dm: TDataModule3; begin dm := TDataModule3.Create (nil); try dm.dsempdata.parambyname('id').asstring := EmpId; dm.dsempdata.open; Result := FieldsToXml ('employee', dm.dsempdata); finally dm.free; 主要な部分以外の詳細コード (Delphi およびそのクラスライブラリーに関する知識のない読者には興味のわくものかも知れません ) は割愛しましたがこれで Web サービスのサーバー側コードは完成です SOAP 関連のコードがどこにあるかと疑問に思われるかも知れませんがどこにもないというのが答えです WSDL に関して前述のように Delphi はウィザードが SOAP データモジュールに入れた 2 つのコンポーネント (HTTPSoapDispatcher と HTTPSoapPascalInvoker) を使用して SOAP エンジンを自動的に提供するのですテストクライアントの作成以上で Web サービスが立ち上がって実行可能になったので次はサーバーと通信するクライアントを作成しますこれは通常 Web サービスを定義する WSDL ファイルをインポートして行いますこの記事の場合は受け取る XML データをより管理しやすいものに変換する必要がありますそこで Delphi の XMLMapper を使用して Web サービスから受け取る社員リストを DBGrid を使用してビジュアルに表示できるデータセットに変換しました XMLMapper はどちらかというと複雑なツールでありこの記事では紙面の都合上 XMLMapper に関しては触れませんここではこの記事のソースコードに含まれているクライアントプログラム ( 図 2) を使用します Delphi を使用した SOAP クライアントアプリケーションの作成方法は今後の記事で詳しく説明します DB2 をバックエンドとした Delphi での Web サービスの構築ページ 5 / 7

図 2. Web サービスのテストに使用するクライアントプログラムまとめこの記事では Delphi で Web サービスを作成し DB2 データベースに接続してデータを取り出すことがいかに容易かを説明しましたここでは XML を生成しただけですデータベースデータを XML にマッピングするために Delphi がサポートしている技法は多数ありそれをすべて説明したわけではありません

6 図 2. Web サービスのテストに使用するクライアントプログラムまとめこの記事では Delphi で Web サービスを作成し DB2 データベースに接続してデータを取り出すことがいかに容易かを説明しましたここでは XML を生成しただけですデータベースデータを XML にマッピングするために Delphi がサポートしている技法は多数ありそれをすべて説明したわけではありません記載した例では XML を直接生成してあります特記すべきことはここで作成したプログラムは Linux サーバーに完全に移植可能であるということですこれにはこのプログラムを Kylix を使用して再コンパイルしデバッグバージョンから Apache モジュールに変換しますこの分野で説明すべきことはまだ多数あります今後も関連記事に注意していてください DB2 をバックエンドとした Delphi での Web サービスの構築ページ 6 / 7

7 著者について Marco Cantu Marco Cantu 氏は Mastering Delphi シリーズ (Delphi 7 用の最新版が近々発刊予定 ) の著者で開発者会議での講演者 Delphi に関する先進プログラミング技術の指導者 XML ベースのビジネスアプリケーションの開発者でもあります Cantu 氏は夫人と子供とともにイタリア在住です Copyright IBM Corporation 2002 ( 商標 ( DB2 をバックエンドとした Delphi での Web サービスの構築ページ 7 / 7

知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 8.0

知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス 8.0 セッション No.3 知って得する! 現役ヘルプデスクが答える Delphi テクニカルエッセンス 8.0 株式会社ミガロ. RAD 事業部技術支援課吉原泰介アジェンダ - サポートからの問合せフィードバック - Q1. Excel ファイルを PDF に変換するには? Q2. EXE のサイズを小さくするには? Q3. C/S アプリで 3 階層接続を行うには? Q1. Excel ファイルを

DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu ( 年 12 月 05 日 DB2 をバックエンドとした Delphi での Web サービスの構築 はじめに Borland TM 社の Delphi

DB2 をバックエンドとした Delphi での Web サービスの構築 Marco Cantu ( 年 12 月 05 日 DB2 をバックエンドとした Delphi での Web サービスの構築はじめに Borland TM 社の Delphi