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

Dibyendu Datta
Dibyendu Datta
Lead Technology Evangelist
CData ODBC Driver for Vimeo を使用して RAD Studio でVimeo のデータを表示するシンプルな VCL アプリケーションを構築する方法を説明します。



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

Vimeo のデータ への接続を作成

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

Vimeo はプロフェッショナル向けの動画ホスティングプラットフォームです。Vimeo API は、動画メタデータ、ユーザー情報、チャンネル、グループ、カテゴリ、関連リソースへの安全なアクセスを可能にするために、パーソナルアクセストークン（Bearer トークン）を使用します。

API キー認証の設定

Vimeo API への認証には、パーソナルアクセストークンを指定する必要があります。アクセストークンを取得するには、以下のステップで進めます：

  1. https://vimeo.com で Vimeo アカウントにログインします
  2. https://developer.vimeo.com/apps に移動します
  3. 新しいアプリを作成するか、既存のアプリを選択します
  4. 「Personal Access Tokens」で「Generate」をクリックして新しいトークンを作成します
  5. 必要なスコープを選択します：読み取りアクセスには public と private
  6. 生成されたトークンをコピーします

アクセストークンを取得したら、以下の接続プロパティを設定します：

  • AuthScheme：APIKey に設定します。
  • APIKey：Vimeo のパーソナルアクセストークンに設定します。

接続文字列の例

Profile=C:\profiles\Vimeo.apip;ProfileSettings='APIKey=your_personal_access_token';

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

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

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

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

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

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

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

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

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

      SELECT ,  FROM Videos WHERE UserUri = '/users/12345678'
    • Active: このプロパティを true に設定します。

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

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

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

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

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

関連記事

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

はじめる準備はできましたか？

API Driver で Vimeo のライブデータに接続

Vimeo に接続

この記事の内容

関連記事