Azure DevOps のデータ 用のシンプルな VCL アプリケーションを構築

Embarcadero RAD Studio は、Delphi および C++Builder アプリケーション用の開発環境を提供します。CData ODBC Driver for Azure DevOps を使用すると、RAD Studio 内からリアルタイムAzure DevOps のデータにアクセスでき、データをテーブル、ビュー、ストアドプロシージャとして抽象化してAzure DevOps のデータの取得および更新が可能です。この記事では、Azure DevOps に接続し、フォームデザイナを使用してシンプルな VCL アプリケーションを作成する方法を説明します。

Azure DevOps のデータ への接続を作成

まだ設定していない場合は、ODBC DSN（データソース名）で接続プロパティを指定します。これはドライバーインストールの最後のステップです。Microsoft ODBC データソースアドミニストレーターを使用して、ODBC DSN を作成・設定できます。

AzureDevOps 接続プロパティの取得・設定方法

Azure DevOps アカウントに接続するには、Profile -> Organizations に移動し、アカウントの組織名を取得します。Organization プロパティをこの値に設定します。

Note: 複数のカタログやスキーマに存在するテーブル名もあります。テーブルをクエリする際は、Catalog およびSchema 接続プロパティ、または完全修飾テーブル名のいずれかでカタログとスキーマを指定する必要があります。

Azure DevOps への認証

Azure DevOps は、Basic 認証とAzure AD（OAuth ベース）認証の両方をサポートします。

Basic

Basic 認証でAzure DevOps に接続する場合、Organization とPersonalAccessToken の両方を指定します。 パーソナルアクセストークンを生成するには、Azure DevOps 組織アカウントにログインし、Profile -> Personal Access Tokens -> New Token に移動します。生成されたトークンが表示されます。

Azure AD

Azure AD は、Microsoft のマルチテナント、クラウドベースのディレクトリおよびID 管理サービスです。 これはユーザーベースの認証で、AuthScheme をAzureAD に設定し、Organization をAzure DevOps Organization の名前に設定する必要があります。 Web アプリケーションを介したAzure AD への認証には、必ずカスタムOAuth アプリケーションの作成が必要です。 詳しい認証方法は、ヘルプドキュメント の「Azure DevOps への認証」セクションを参照してください。

次に、以下の手順で Data Explorer を使用してAzure DevOps のデータへの FireDAC 接続を作成します。

1. 新しい VCL フォームアプリケーションで、Data Explorer の FireDAC ノードを展開します。
2. Data Explorer で ODBC Data Source ノードを右クリックします。
3. ［新しい接続の追加］ をクリックします。
4. 接続の名前を入力します。
5. 表示される FireDAC Connection Editor で、DataSource プロパティに Azure DevOps 用 ODBC DSN の名前を設定します。

Azure DevOps のデータ に接続する VCL アプリケーションを作成

以下の手順に従って、クエリ結果をグリッドに表示するシンプルな VCL アプリケーションからAzure DevOps のデータへのクエリ実行を開始します。

1. TFDConnection コンポーネントをフォームにドロップし、以下のプロパティを設定します。

   • ConnectionDefName:Azure DevOps のデータへの FireDAC 接続を選択します。
   • Connected: メニューから True を選択し、表示されるダイアログで資格情報を入力します。

2. TFDQuery コンポーネントをフォームにドロップし、以下のプロパティを設定します。

   • Connection: まだ指定されていない場合は、このプロパティを TFDConnection コンポーネントに設定します。

   • SQL: SQL プロパティのボタンをクリックしてクエリを入力します。例:

     SELECT Id, BuildNumber FROM Builds WHERE Reason = 'Manual'
     

   • Active: このプロパティを true に設定します。

3. TDataSource コンポーネントをフォームにドロップし、以下のプロパティを設定します。

   • DataSet: このプロパティのメニューで、TFDQuery コンポーネントの名前を選択します。

4. TDBGrid コントロールをフォームにドロップし、以下のプロパティを設定します。

   • DataSource: TDataSource の名前を選択します。
5. TFDGUIxWaitCursor をフォームにドロップします。これはランタイムエラーを回避するために必要です。

これで、TFDQuery オブジェクトに設定された SQL クエリの結果を表示する実行可能なアプリケーションが完成しました。

関連記事

RAD Studio、Delphi、C++ Builder で CData ODBC ドライバを使用するその他の記事は以下をご覧ください。

• C++Builder で Azure DevOps のデータ にコントロールをデータバインド
• Delphi で Azure DevOps のデータ にコントロールをデータバインド
• RAD Studio Data Explorer で Azure DevOps のデータ を表示