a1

Size: px

Start display at page:

Download "a1"

うまじさかいざわ
4 years ago
Views:

1 A1 Delphi オンプレからクラウドに移行する中新旧含め様々なデバイスと接続しないといけない要求に Delphi のクラウド接続で応えてみるシステムプランベネックス研究開発室毛利春幸

2 1 アジェンダ 2

3 アジェンダ AWS C3 データ送受信 EC2(Amazon Linux) でXMLを使う Azure WEBSITEでSOAP Azure Storage Azure Table(NoSQL) Couchbase 問合せしてみる 3

4 2 業務概要 4

5 会社での業務弊社カラオケシステムカラオケの人の完全子会社でカラオケシステムを作っている会社ですフロント精算 POSや採点履歴などをカラ鉄ナビアプリなどiOS / Androidアプリとの連動やカラオケメーカ (DAM/JOYSOUND) 機器の外部コントロールをするマイコンハードを作っています 5

6 旧端末は Linux(K lix2) で組んでますもう 10 年ぐらいたちますがまだ健在ですまだまだ現役 1000 以上部屋で利用 6

7 マイコン基板とか作ったりしてます 8Bit(Z80)が主だったりもします 7

8 会員サーバ私が担当している部分 200 万ユーザカード会員の管理をオンプレサーバ Delphiで組んでいます現在 20 台オーバーのDCサーバあり 70 店舗 (1500 部屋 ) からほぼ24 時間アクセスがあります ios / Androidコンシューマ向けアプリ接続も常にある状態です 8

9 管理内容会員情報管理楽曲の再生履歴 ( 採点履歴 ) モバイル会員キャリア決済の有効期間管理 POSからの会員年会費決済有効期限管理 9

10 仕事柄いろんなデバイスへのアクセスが必要になります端末 Linux 端末 / デンモク (WindowsCE) / Android 2.3 マイコンハード端末 Z80デバイス / arm(linux) / DaVinci(TI) POSや店舗のサーバ VB モバイル PHP / ios(objective-c) / Android(Java) こんないろんなデバイスがクロスポイントで繋がっています 10

11 Web 屋さんの要望 PHP 例 xml の接続で良いですか? どんなの返してもらえますか? xml CSV かなんかの形式で返します ( 今は JSON でも xml でも OK だと思いますがこれ 5 年ほど前だとこんな会話でした ) 11

12 マイコン屋さんとの打合せではい RS232C な返事は Ack な固定長なそれ以上長いとオーバーフローするからあっはい最後の 1Byte はサムチェックなはいはい 12

13 スマホ屋さんとの打合せで CSV で吐いてるんでそれでお願いします JSON じゃないの? 他のインターフェイスと共通にしたいんです JSON じゃないの? この部分は JSON で吐き出しますね 13

14 要望や文化が様々です Web(PHP) 最近 JSONでOKになってきましたが CSVもありますマイコン端末側できるだけ固定長で簡単にしてほしい (RS232Cとか) ios / Android JSONで送って欲しい VB 側 CSVフォーマットで欲しい 14

15 SOAP や DataSnap は便利なんですが先ほどのスライドでも説明致しましたが弊社では様々なデバイスとの接続が必要になるので文化的にDataSnapは使えません Server 側も様々な部署との連動が必要なので WindowsだけではなくPHP(Linux) との連動が必要になります 15

16 サーバ側はオンプレからクラウドへ新旧含め様々なデバイスに接続しないといけないのですがサーバ側はDCだけの事なので末端のデバイス無関係に簡単に思われオンプレからクラウドに変えないと行けないシーンが出てきますクラウドサービスは各社それぞれサービス内容が違うのでオンプレで作った実行ファイルが使えなかったりします 16

XE7 はクラウドに親切です http://docwiki.embarcadero.

17 XE7 はクラウドに親切です pg/767px-rad_cloud.jpg ここから絵勝手に拝借しました 17

18 各社クラウドサービスでどの様な事ができるのかデモしてみたいと思います今回デモするのは Amazon Web Services と Microsoft Azure です 18

19 Amazon Linux と Delphi( マルチデバイス ) テスト (ec2) Amazon Linux (PHP) instanceと Delphi Xml 通信, バイナリ通信 TAmazonStorageServiceを使ってs3 接続 19

20 AWS で launch instance で Linux せっかくなんで Amazon Linux を立ててみました Mac から ssh でログインし Apache や PHP を確認します 20

21 Apache と php などの環境 Apache と php を動かします phpinfo(); が動けば良いのかと思います 21 今回テストなので elastic IP にはしません

22 Apache(php) + fuse と s3fs-1.74 で s3 バケットとマウント Ec2 Amazon Linux Apache (php) s3fs でマウント S3 バケット 22

23 Delphi から ec2 経由で s3 にファイル移動インターネットから Web 経由で s3 に Data を置く Ec2 Amazon Linux Apache (php) s3fs でマウント S3 バケット Delphi アプリここまでは普通の http アクセスとなんら変わりないです 23

24 デモ

25 TAmazonStorageService で s3 インターネットから Web 経由で s3 に Data を置く S3 バケット Delphi アプリ.ListBuckets(); // バケットのリスト取得. GetBucket(); //S3 バケット内容を取得 25

26 デモ

27 TAmazonStorageService TAmazonStorageService で Bucket リストと Object のリストを取得するソース 27

28 Object 名を指定して GetObject 28

29 Amazon Linux(php)XML を Delphi で読む Amazon Linux(php) で XML を構築します Delphi 側は Ec2 Amazon Linux Delphi アプリ XML Apache (php) php 側は require_once("xml/serializer.php"); $serializer = new XML_Serializer($option); echo $serializer->serialize($data); 29

30 デモ

31 TRESTClient で取得した XML TRESTClient で取得した XML を parse 後 TClientDataSet に格納して TStringGrid に対してライブバインディングしています 31

32 Microsoft Azure と Delphi Microsoft Azure は下記のようなサービスがあります IIS だけを提供頂けるサービス仮想マシン Amazon で言う ec2 みたいな SQL Server ストレージ Amazon で言う c3 みたいな 32

33 Azure WEBSITE で ISAPI WEBSITEサービスはIISだけ提供されるので管理が楽です DelphiはISAPI 用のdllを作る事が出来ます Azureの WEBSITE サービスは標準でDLL 実行を禁止していますローカルのIISマネージャーから DLLを実行許可する事ができます 33

34 ローカルの IIS マネージャで Azure の WEBSITE の設定を行うローカルの IIS で接続し Handler Mappings の ISAPI-DLL を Enabled にする必要があります 34

35 デモ

36 Azure WEBSITE で Delphi の TWebModule(SOAP) を実行します Delphi で作成した DLL が実行できました 36

37 Delphi から Azure ストレージ Blob を取得する Azure にも aws と同じくストレージサービスがありますストレージの Container に格納したファイル (Blob) を取得してみます 37

38 デモ

39 Container の List から Blob ファイルをダウンロード 39

40 Azure にも aws にも NoSQL データベースが存在して Delphi から操作できます Azure Storage には 3 つの Service があります Storage NoSQL? AWS には DynamoDB です 40

41 TAzureTableService で操作できます TCloudTableRow TAzureTableService.InsertEntity Table Data QueryEntities() TList<TCloudTableRow> 41

42 デモ

43 Couchbase に接続する Couchbase は JSON ドキュメントで管理する NoSQL データベースです 43

44 aws の ec2 の Couchbase に Delph 接続する Couchbase のドキュメントは REST で取得できます Ec2 Amazon Linux Delphi アプリ JSON Couchbase Server Response.JSONValue TJSONObject TJSONValue TJSONArray 44

45 Couchbase のドキュメントデータ Couchbase の default Buckets にいくつかのデータを入れてみました 45

46 デモ

47 まとめ 47

48 まとめ Amazon aws も Microsoft Azure も TCloudService 継承したサービスが使えます Azure WEBSITE は Delphi の DLL も使えます TRESTClient は JSON が parse できるので Couchbase の Data 取得で使えます 48

49 Appendix 49

50 Appendix なし 50

51 Q&A 51

Server and Cloud Platform template

Server and Cloud Platform template 利用形態に合わせたクラウド利用クラウドプラットフォーム利用形態に合わせたクラウド利用アプリケーションアプリケーションアプリケーションデータデータデータランタイムランタイムミドルウエアミドルウエア OS OS 仮想化サーバーストレージネットワーク Windows Server Microsoft Azure 仮想マシン Windows Server Hyper-V Microsoft