|
このセクションでは、Visual Basic、Active Server Pages(ASP)および Delphi DTO を使用するためのセットアップ方法を説明します。
DTO は デュアル インターフェイス COM オブジェクトのライブラリなので、Visual Basic ではこれらのオブジェクトを使って作業する 2 つの方法があります。Active Server Pages を使用している場合、2 番目の方法を使う必要があります。第一にお勧めする方法は、プロジェクトにタイプ ライブラリを追加する方法です。この方法を使用すれば、VB で型のチェックを行うことができ、オブジクトの作成や関数のパラメーターに対して便利なドロップダウン オプション(Intellisense 機能)を開発者に提供することができます。
もう 1 つの方法は、CreateObject 関数を使用する方法です。これは実行時にオブジェクトを作成するため、型のチェックと Intellisense 機能がありません。
Visual Basic プロジェクトに Pervasive Distributed Tuning Library を追加するには、以下の手順に従います。
これで VB では DTO に含まれるすべてのオブジェクトを認識することができます。すべてのオブジェクトが参照可能になります。使用可能なオブジェクトを表示するには、以下の手順に従います。
ASP でオブジェクトのインスタンスを作成する場合は、この方法を使用する必要があります。CreateObject の構文は次のようになります。
Dim my_session as Object 'DTO バージョン 2 の場合 Set my_session = CreateObject("DTO.DtoSession.2") '旧バージョンの DTO アプリケーションとの互換性を保つ場合は、 'DTO バージョン 1 を使用する Set my_session = CreateObject("DTO.DtoSession.1")
ほとんどの DTO オブジェクトは、後でセッション オブジェクトから取得することができます。
ASP で DTO を使用するために必要な初期化は特にありません。ただし、次の点に注意してください。
デフォルトで、ASP は呼び出し間の状態の情報を保存しません。Microsoft IIS の組み込みオブジェクトである Session オブジェクトを使用して、オブジェクト参照と変数の状態を保存する必要があります。
たとえば、DTO バージョン 2 の DtoSession オブジェクトを初期化するには以下のように記述します。
Delphi で COM オブジェクトを使用するには、2 つの方法があります。Visual Basic と同様、第一にお勧めするセットアップ方法は Delphi プロジェクトにタイプ ライブラリをインポートする方法です。
もう 1 つの方法では、CreateOleObject 関数を使って直接 COM インターフェイスを呼び出すことができます。この関数は Automation オブジェクトの単一のインスタンスをインスタンス化します。
タイプ ライブラリをインポートし、必要な Pascal 宣言を生成するには、以下の手順に従います。
var Result:DTOResult; Session:DTOSession; MySettings:DTOSettings; MyCategories:DTOCategories; MyCategory:DTOCategory; i:integer; begin Session:=CoDTOSession.Create; Result:=Session.Connect ('ServerName','UserName','Password'); MyCategories:=Session.Categories; for i:=1 to MyCategories.Count do MyCategory:=MyCategories.Item[i]; end;
var Session, Categories, Category:Variant; I:Integer; begin Session := CreateOleObject('DTO.DtoSession'); Session.Connect('ServerName','UserName','Password'); Categories := Session.Categories; for I := 1 to Categories.Count do Category := Categories.Item[I]; end;
|