Google Cloud Storage のデータ 用のシンプルな VCL アプリケーションを構築

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

Google Cloud Storage のデータ への接続を作成

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

ユーザーアカウントでの認証

ユーザー資格情報の接続プロパティを設定することなく接続できます。InitiateOAuth をGETANDREFRESH に設定したら、接続の準備が完了です。

接続すると、Google Cloud Storage OAuth エンドポイントがデフォルトブラウザで開きます。ログインして権限を付与すると、OAuth プロセスが完了します。

サービスアカウントでの認証

サービスアカウントには、ブラウザでユーザー認証を行わないサイレント認証があります。サービスアカウントを使用して、企業全体のアクセススコープを委任することもできます。

このフローでは、OAuth アプリケーションを作成する必要があります。詳しくは、ヘルプドキュメントを参照してください。以下の接続プロパティを設定したら、接続の準備が完了です：

• InitiateOAuth: GETANDREFRESH に設定。
• OAuthJWTCertType: PFXFILE に設定。
• OAuthJWTCert: 生成した.p12 ファイルへのパスに設定。
• OAuthJWTCertPassword: .p12 ファイルのパスワードに設定。
• OAuthJWTCertSubject: 証明書ストアの最初の証明書が選ばれるように"*" に設定。
• OAuthJWTIssuer: 「サービスアカウント」セクションで「サービスアカウントの管理」をクリックし、このフィールドをサービスアカウントID フィールドに表示されているE メールアドレスに設定。
• OAuthJWTSubject: サブジェクトタイプが"enterprise" に設定されている場合はエンタープライズID に設定し、"user" に設定されている場合はアプリユーザーID に設定。
• ProjectId: 接続するプロジェクトのID に設定。

これで、サービスアカウントのOAuth フローが完了します。

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

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

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

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

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

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

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

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

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

     SELECT Name, OwnerId FROM Buckets WHERE Name = 'TestBucket'
     

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

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

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

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

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

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

関連記事

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

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