TAzureConnectionInfoを使用してAzure Storageに接続するには (ID:41853)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Rad Studio XE2で追加されたAzure用コントロール
「TAzureConnectionInfo」を使用して、Windows Azure Storageの
テーブルに接続するプログラムを作成しています。

デプロイしたものではなく、ローカル開発用ストレージで
接続検証しているのですが、エラーとなりうまくいきませんでした。

■手順
１．新規プロジェクト（VCLフォームアプリケーション作成）
２．フォームにTAzureConnectionInfoとボタンを配置
３．ボタンのクリックイベントで以下のコードを記述

procedure TForm1.Button1Click(Sender: TObject); var
 TableService1 :  TAzureTableService;
 TableRow : Data.Cloud.CloudAPI.TCloudTableRow;
begin
  with AzureConnectionInfo1 do
  begin
    Protocol := 'http';
    RequestProxyHost := '127.0.0.1'; //localhost
    RequestProxyPort := 80;
    UseDefaultEndpoints := True;
    UseDevelopmentStorage := True; //開発用ストレージ
  end;

TableService1 :=  TAzureTableService.Create(AzureConnectionInfo1);
  ShowMessage(IntToStr(TableService1.QueryEntities('TABLE1').Count)); //ローカルストレージのある「TABLE1」に接続
end;

■結果
  「EIdHTTPProtocolException」エラーとなり、接続することができませんでした。
  ・Visual Studioのサーバーエクスプローラでは
    ローカル開発ストレージ上のTABLE1テーブルの
    レコードが正常に表示されること確認しています。
  ・Protocolの設定をhttpsにしても同エラーとなります。
  ・方法の問題と思うのですが、参考になるサイトも見当たらず。。。

■問い合わせ内容
  エラーを回避し、正常にテーブルのレコード情報を取得する方法が
  わかりましたら教えていただけますでしょうか。

←解決時は質問者本人がここをチェックしてください。

戻る