Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

Delphi XE7(Android)でAzure StorageのTableにアクセスする

Delphi XE7を使うと Azure StorageTableを簡単に登録一覧を行う事ができます
更にDelphiはマルチデバイス対応しておりますのでAndroid OSアプリとして
今回はAzure StorageのTableService内のTable取得をしたいと思います
201411291027
上絵がDelphi EX7のデザイン画面です
右下のツールパレットには複数のコンポーネントが用意されています
その中からTAzureConnectionInfoと言うコンポーネントを
デザイン画面に貼り付けます

201411291032
AzureConnectionInfo1と言う名称で配置されていると思います
デザイン画面内の AzureConnectionInfo1をマウスで選択すると
オブジェクトインスペクタのプロパティに設定画面がでます

201411291037
設定するのは上記3種類だけです

AzureConnectionInfo1.AccountName := 'Azureで設定されているアカウント名';
AzureConnectionInfo1.AccountKey := 'Azureで設定されているキー';
AzureConnectionInfo1.Protocol := 'https';
上記の設定で接続する為の条件は出来上がりました

Azure側のStorageのアカウント名やキーはどこにあるのかわからない人もいるかと思います
201411291100azure
上絵のようにMicrosoft Azureの管理画面左側メニュから[ストレージ]を選ぶと
下のバーに 「アクセスキーの管理」と言う項目が出てその「アクセスキーの管理」を
選択すつと キーが書かれたダイアログが出てきます。そこで文字列が取得ができます。

「Azure Storage Explorer」をダウンロードし
Tableの新規作成をします201411291122
Delphiのコードを書けばTable新規作成やTableにInsertする事も可能ですが
とりあえずテストなので Storage Explorerを使います

1.Storage Explorerの左側のメニューからNewで 「mytable」と言う名前でTableを作成しました
2.画面右上のアイコンNewを選択すると 「Insert New Entry」ダイアログが出ます
 PrimaryKeyとRowKeyを指定し今回は「myvalue」と言うFieldを作成しました
3.「myvalue」には「デルファイでマイクロソフトAzureを使う」と言う文字列をString指定でInsertしました。

201411291131azure

ここに入れたmyvalueフィールドの文字列を Delphi Androidで取得してみます
デザイナ画面から配置したButton1をマウスでダブルクリックします
201411291136delphi
ダブルクリックしますとコードが出てきます201411291138delphi
このButton1Click()のbegin〜end;内にコードを書きます。

TAzureTableServiceと言うClassをインスタンス立てます
TAzureTableService.Create(AzureConnectionInfo1);
Createの際に 先ほどデザイナから配置したAzureConnectionInfo1の引数に渡します

QueryEntity()メソッドで先ほど作成した"mytable"とPrimaryKey, RowKeyを指定します
QueryEntity('mytable', 'A01', '1');
実行するとTCloudTableRowが返るのでTCloudTableRowからGetColumn()で取り出したいフィールドを指定すると文字列が返ってきます

それをTEditコンポーネントEdit1に内容をコピーします
下記がコードです
201411291206Delphi

Androidで実行してみます。
実はKindleなんですが。。。 Fire HD 6インチのモノです

201411291217DelphiAndroidKindle
Azure Storageで作成したTable "mytable"の内容をEdit1に表示できました

簡単に出来ますのでお試しあれ








スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2014/12/06(土) 00:01:01|
  2. Azure

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。