スライド 1

Transcription

1 プレゼンテーション資料 Day 2 第 21 回エンバカデロ デベロッパーキャンプ 2012 年 3 月 9 日 ~10 日クロスウェーブ船橋

2

3 プログラム 3 月 9 日 時間 14:00~14:30 14:30~15:30 15:30~15:40 15:40~16:40 16:40~16:50 16:50~17:50 17:50~18:00 18:00~20:00 20:00~20:30 20:30~23:00 セッション概要 G1 オープニングセッション 2012 年 - エンバカデロの製品戦略 エンバカデロ テクノロジーズ日本法人代表藤井等 T2 テクニカルセッション 実践!Delphiデバッグテクニック 株式会社シリアルゲームズ取締役 シニアエンジニア細川淳 休憩 T3 テクニカルセッション Delphi/C++Builder + FastReport で作る実用レポート出力 株式会社ドリームハイブ代表取締役山本悟 休憩 T4 テクニカルセッション FireMonkey ファーストインプレッション 有限会社エイブル富永英明 休憩 W5 ワークショップ FireMonkey アプリケーション構築実習 司会 : エンバカデロ テクノロジーズエヴァンジェリスト高橋智宏 休憩 移動 Party 懇親会 Developers Night in Funabashi

4 3 月 10 日 時間 9:00~9:50 9:50~10:00 10:00~10:50 10:50~11:00 11:00~11:50 11:50~12:00 12:00~12:50 セッション概要 W6 ワークショップ 挑戦!Delphi クイズで実力チェック エンバカデロ テクノロジーズエヴァンジェリスト高橋智宏 休憩 T7 テクニカルセッション RadPHP でスマホアプリを作ろう! エンバカデロ テクノロジーズエヴァンジェリスト高橋智宏 休憩 T8 テクニカルセッション Delphi 言語再入門 株式会社シリアルゲームズ取締役 シニアエンジニア細川淳東洋テクニカルシステム株式会社システム開発部福士光 休憩 T9 テクニカルセッション Delphi/C++Builder で ios/mac アプリを作ろう! エンバカデロ テクノロジーズエヴァンジェリスト高橋智宏 ネットワークの使用について セッション会場では 無線 LAN をご利用いただけますが オンライン配信パフォーマンスに影響を与える恐れがあるため 会場無線 LAN を用いた Ustream GotoWebinar YouTube 等のビデオ視聴 その他のダウンロードなどはお控えください セッション資料のダウンロード セッション資料の最新版ならびに配布資料に含まれないプレゼンテーション資料については 後日 Embarcadero Developer Network 日本語版 ( からダウンロードいただけます

5 T7 テクニカルセッション 17 Th Developer Camp RadPHP で スマホアプリを作ろう! エンバカデロ テクノロジーズ エヴァンジェリスト高橋智宏 1

6 アジェンダ RadPHP XE2 に関するアップデート Web 画面のレイアウト調整デモ 横幅が重要 PHP & JavaScript のイベントの実装詳細 画面右端に張り付くボタンを実機で確認 ios (iphone 4, ipad 2) Android 2.2~ ( スマホ, タブレット ) Windows Phone 7.5 BlackBerry 少し本格的な Web アプリを作ってみる jquery Mobile 特有の注意点!! TMS 社の IntraWeb iphone Controls Pack のデモアプリと同様のものを Web アプリをフルスクリーンで ios Safari デモ 2

7 17 Th Developer Camp RadPHP XE2 に関するアップデート 1 3

8 アップデート 主な変更点 Update 4 ビルド番号 : ZendFramework のサンプルを追加 ZHttp, ZJson, ZJsonServer, ZRestClient, ZRestServer モバイル端末の背景を追加 各種 Android 端末 BlackBerry JQuery Mobile 1.0 final を統合 jquery を内蔵 PhoneGap を統合 生成コンテンツは Windows Phone 7.x でも利用可能 4

9 17 Th Developer Camp jquery Mobile 2 5

10 jquery Mobile とは? 2010 年 8 月 11 日に始まったオープンソースプロジェクト jquery をベースに モバイルデバイスの Web ブラウザに特化した GUI を提供する JavaScript ライブラリおよび CSS 先日 1.0 Final がリリースされました 6

11 サポートされるプラットフォーム A グレード ( フルサポート ) 7

12 横幅は重要 基本的に モバイル Web アプリは横スクロールしません もちろん 縦スクロールはします Web 画面の横幅は 端末ごとに異なります さらに ios, Android, WP7 では 端末の回転により変化します 横幅は JavaScriptの window.innerwidth で取得可能 8

13 端末の回転を検知するには? ios jquery Mobile の orientationchange イベントを利用する window.onresize イベントの監視は不要!! Android 2.2~ window.onresize イベントを利用する orientationchangeイベントが来ても無視する!! innerwidthは回転前の値を示すので使えない Windows Phone 7.5 window.onresize イベントを利用する そもそも orientationchange イベントが発生しない BlackBerry PlayBook も含め そもそも回転しない ( はず ) 9

14 viewport meta タグの width パラメータ スマホでもタブレットでも width=320 で OK!? WP7 以外の端末 window.innerwidth 端末の向きに応じた実際の横幅 Windows Phone 7.5 window.innerwidth 常に320!? 端末が横向きなら画面全体が拡大表示されてしまう!! viewoport で width=device-width を指定すると window.innerwidth 端末の向きに応じた実際の横幅 10

15 画面右端に張り付くボタン PHP 側の実装 手順その1 : MPageのOnCreateイベント WP7 に対処 手順その 2 : MPage の OnStartBody イベント ボタンの移動を行う関数を JavaScript で記述 jquery の API で ボタンの外側の div の CSS の left を変更 11

16 画面右端に張り付くボタン 手順その 3 : MPage の OnOrientationChange Javascript イベント Android に対処 手順その 4 : MPage の OnPageShow Javascript イベント Android, WP 向けに onresize イベントハンドラのインストール とりあえず すぐにボタンの移動を行う 12

17 実機で確認 画面サイズ, ボタンサイズ, 回転 iphone 4, ipad 2 Androidスマホ, Androidタブレット Windows Phone 7.5 BlackBerry 13

18 17 Th Developer Camp 少し本格的な Web アプリ 3 14

19 jquery Mobile 特有の注意点 複数の Web ページのイメージが 単一の Web 画面内で同居することがある Ajax を利用した画面遷移 例 : 横にスライドしながら新しいページが表示される場合 そのため あるページを設計 実装する際 その中に配置するコンポーネント名は 複数ページ全体で一意になるようにすべき 同一のidを持つHTML 要素が 同居して競合を起こすのを防ぐ 独自に コンポーネント名 ( 変数名 ) の命名規約を設けてください ios 5.0 の iphone の Safari 向けには MPage の touchoverflowenabled プロパティを false に設定!! 今後 jquery Mobile 以降は非推奨にもなる 15

20 まずは お手本となる Web アプリを確認 Delphi XE2(C++Builder XE2) IntraWeb XII TMS IntraWeb iphone Controls Pack( トライアル版 ) のデモアプリ 16

21 メインページ デザイン MList は PHP 側で動的に構築 MLink 画面遷移に使う 単にボタンとしても使える MobileTheme テーマを指定する カスタムテーマへの応用も可 MList リストビュー 行数は可変なので 高さが変わる項目クリック時に編集ページに遷移させる MToolBar 複数の Mlink を配置できる Setting クリック時に設定ページに遷移させる 17

22 メインページ コード MPage の OnCreate イベントで MList の項目を動的に生成 Web 画面の高さ およびツールバーの位置を調整 18

23 設定ページ デザイン Save ボタン : PHP の $_SESSION 変数を Ajax で更新 MLink 遷移元 ( 前 ) のページに戻る 特別なリンク MToggle 2 つの値を管理できるトグルスイッチ MButton 画面情報を PHP に送信 Ajax モードで RadPHP のイベントハンドラを起動可 19

24 設定ページ コード トグルスイッチの値を $_SESSION で管理 最初に画面を生成する際に トグルスイッチの初期値を指定 [Back] ボタンに関する処理は無い Web ブラウザ内だけで 前の画面を復帰させてしまう 前の画面の内容を PHP 側で更新できないので注意!! 20

25 編集ページ デザイン Back ボタンは Update ボタンで Ajax 更新後 モードを変更 MLink 遷移元 ( 前 ) のページに戻る 特別なリンク MEdit 文字列を編集する MSlider 例 : 最小値 (0)~ 最大値 (100) のスライダ MComboBox 項目を選択するコンボボックス 複数選択可 MButton 画面情報を PHP に送信 Ajax モードで RadPHP のイベントハンドラを起動可 21

26 編集ページ コード MSlider と MComboBox の値はテキトーに設定する [Save] ボタンを押して Ajax 経由で画面を更新 Back ボタンは [Save] ボタンで画面を更新後 メインページを明示的に呼び出すリンクに変化させる メインページの内容を更新して表示させたいので 22

27 17 Th Developer Camp ios で Web アプリを フルスクリーン表示 4 23

28 ios 専用のタグを <head> </head> に追加 MPage の OnShowHeader イベントを利用 スプラッシュ画像を用意 iphone,iphone(retina),ipad 用に3 種類のアイコンを用意 フルスクリーン可であることを知らせるmetaタグ ios の Safari で [ ホーム画面に追加 ] を利用 24

29 17 Th Developer Camp T8 テクニカルセッション Delphi 言語再入門 株式会社シリアルゲームズ 取締役細川淳 1

30 17 Th Developer Camp 1 Class について改めて 2

31 class Delphi を使う上で切っても切れない class 型 class 型について どの位の事をご存じですか? 良くは判らないけど component もクラスだし Form を作ったら強制的にクラスになっちゃうから ただ何となく使っている? ここでは そんな class 型について深く見ていくことにします ただ そもそも class とはなんぞや? という話はしません もう少し深く見ていきます 3

32 class 定義 class 定義はヘルプより下記の様になっています type classname = class [abstract sealed] (ancestorclass) memberlist end; abstaract, sealed って? ancestorclass? 4

33 class 属性 abstract 属性 抽象クラスを表す属性です この属性を指定するとクラスは抽象クラスとなり生成が禁じられ ません 下位互換性を保つために抽象クラスの生成が許可されています 実質 abstract 属性は あまり意味がありません しかし abstract メソッドがある場合 警告が出ます abstract メソッドについては後述 5

34 class 属性 sealed 属性 sealed を付けて宣言すると そのクラスを継承する事ができなくなります Java の final と同じです Delphi にも final はあるのですが メソッドに付けます ただし class helper は使えます 拡張するだけなので当然ですね class helper でメソッドを隠蔽可能です 6

35 class 属性 - sealed type TTestClass = class sealed public procedure Test; virtual; end; TTestClass2 = class(ttestclass) public procedure Test; override; end; ここで 下記のエラーが発生する [DCC エラー ] Unit1.pas(35): E2353 シールドクラス 'TTestClass' は拡張できません 7

36 class 属性 - sealed type TTestClass = class sealed public procedure Test; virtual; end; TTestClass2 = class helper for TTestClass procedure Test; end; class helper として拡張するのは OK メソッドを隠蔽して元の Test を呼ばないようにできる隠蔽した元の Test は inherited Test; として呼び出し可能 8

37 class 定義 - ancestorclass ancestorclass は継承元クラス 何も指定しないと TObject を継承します TObject もクラスとして定義されている (System.pas) ので TObject って一体なんだ! という話になりますが コンパイラマジックの一種と考えて良いと思います TObject TObject は特別なクラスです 全てのクラス型の大元になります TObject のメソッドを使えないクラスはありません record 型もメソッドを持てるようになりましたが class 型との最大の相違は TObject を先祖にもつか? ということです つまり record 型は TObject を先祖にもちません! 9

38 class とクラス参照型 ( メタクラス ) Delphi 言語では class も 1 つのオブジェクト ( ) です 例えば Application.CreateForm(TForm1, Form1); は 皆さん見たことがあると思います ここで 見て欲しいのが TForm1 と書いてあるところです class は型ですが 型そのものを引数として渡しています これは integer などでは不可能な事です このように class 型を参照する型を クラス参照型 といいます ( メタクラス ともいいます ) より正確にいうと VMT へのポインタです 10

39 class とクラス参照型 ( メタクラス ) Application.CreateForm の宣言を見てみます procedure TApplication.CreateForm( InstanceClass: TComponentClass; var Reference); TComponentClass = class of TComponent; こんな風になっています ここで 赤枠で囲った部分がクラス参照型の宣言です このようにクラス型そのものを渡す事によって Factory を作ったり 多態性を確保する事が容易になります 11

40 class とクラス参照型 ( メタクラス ) type TFigure = class(tobject) public procedure Draw; virtual; abstract; end; TFigureClass = class of TFigure; TTriangle = class(tfigure) public procedure Draw; override; end; TRect = class(tfigure) public procedure Draw; override; end; クラス参照型を定義 三角形を描画する 四角形を描画する TFigureDrawer = class(tobject) private FFigure: TFigure; public constructor Create(const ifigureclass: TFigureClass); procedure Draw; end; constructor TFigureDrawer.Create(const ifigureclass: TFigureClass); begin FFigure = ifigureclass.create; end; 渡されたクラスのインスタンスを作っている描画される内容を TFigureDrawer は知らない 12

41 class クラスメソッド class にはクラスメソッドといわれるものがあります 具体的には type TFoo = class(tobject) public class procedure Method1; class procedure Method2; static; end; このように宣言の前に "class" をつけたメソッドです クラスメソッドはインスタンスを必要としません つまり procedure Test; begin TFoo.Method1; TFoo.Method2; end; のように呼び出すことができます さて Method1(); と Method2(); の違いはなんでしょうか? 13

42 class クラスメソッドと静的メソッド 普通に考えるとクラスメソッドはインスタンスが存在しないため Self が存在しません それは Self とは インスタンスを表しているからです しかし! ここで Delphi では Class もオブジェクトである という事を思い出してください! Method1; の中で Self を参照できてしまうのです! type TFoo = class(tobject) public class procedure Method1; class procedure Method2; static; end; クラスメソッド中の Self はクラスオブジェクトそのものを指します なので このように Self をクラスのように使えるのです class procedure TFoo.Method1(); begin Self.Method2; Self.Create; end; 14

43 class クラスメソッドと静的メソッド それに対して "static" 指定をされたクラスメソッドは Self を持ちません このことから static 指定されたメソッドを特に 静的メソッド と呼びます type TFoo = class(tobject) public class procedure Method1; class procedure Method2; static; end; class procedure TFoo.Method2(); begin Self.Create; end; ここで 下記のエラーが出ます [DCC エラー ] Unit1.pas(149): E2003 未定義の識別子 : 'Self' [DCC エラー ] Unit1.pas(149): E2076 このメソッドの呼び方はクラスメソッドの場合に限られます 15

44 class クラスメソッドと静的メソッド type TFoo = class(tobject) public class procedure Method1; class procedure Method2; static; end; procedure Test; var Foo: TFoo; begin Foo := TFoo.Create; TFoo.Method1(); Foo.Method1(); TFoo.Method2(); end; ちなみに バイナリレベルでも違いがでます static 指令がない Method1 の呼び出しでは eax レジスタに Self を代入して呼び出しています しかし Method2 ではシンプルに何もせずに呼び出しているだけです 特にクラス参照型を欲しない場合は static 指令を付けた静的メソッドを使うとコードサイズが若干小さくなります Unit1.pas.58: TFoo.Method1; 0051A757 A16CA65100 mov eax,[$0051a66c] 0051A75C E call TFoo.Method1 Unit1.pas.59: Foo.Method1; 0051A761 8B45FC mov eax,[ebp-$04] 0051A764 8B00 mov eax,[eax] 0051A766 E call TFoo.Method1 Unit1.pas.61: TFoo.Method2; 0051A76B E call TFoo.Method2 16

45 class メンバの可視性 private, protected, public, published これらの指定を もちろん見たことがあると思います private, protected, public については 説明は不要かと思いますが 一応説明すると下表の様になります 可視性自分自身継承先クラス同一ユニット private protected public strict private strict protected 17

46 class メンバの可視性 - published published と public は 公開範囲は同じように思えます では 何が違うのでしょうか? published は public と違い RTTI を生成します RTTI とは 実行時型情報 です 本来 型 とは コンパイル時に必要なものです たとえば Integer 型に Class のインスタンスを代入しようとすればコンパイルエラーになります しかし Integer 型と Class のインスタンスは同じ4バイトです (32bitの時) CPU から見たときに違いはありません 本来の 型 とは プログラマを助けるために導入された概念とみなすことができます 18

47 class メンバの可視性 - published published 指定されたメンバは ソースコードレベルの可視性は同じ RTTI が生成される RTTI を介して外部のプログラムがメンバーを参照できる オブジェクトインスペクタでプロパティを編集できるのは このためです メソッドの overload はできない もちろん public では overload できます 19

48 class メンバの可視性 - published public, published の違いについて誤解を恐れずにいうと public は ソースコードレベルで公開 ソースコード中でメンバを参照できる published は バイナリレベルで公開 コンパイル済みのバイナリに対して 参照できる となります 20

49 class のバインディング RTTI が出てきたので ここでバインディングについても見ていきます バインディングとは virtual dynamic override のことです 21

50 class のバインディング virtual と dynamic virtual と dynamic はソースコードレベルでは同じ動作をします どちらも override 可能 abstract 指定可能です 違いをヘルプで引くと下記の様に書かれています バインディング最適化備考 virtual 実行速度を最適化最も効率的な方法 dynamic サイズを最適化たまにしかオーバーライドされない時に使用する 意味はわかるけど仕組みが判りませんね 22

51 class のバインディング 実際の所 実装上の違いは どうなっているかというと バインディング意味 virtual 派生クラスでもメソッドテーブルが生成される dynamic 基本クラスにのみメソッドテーブルが生成される となります 先ほどの表の たまにしかオーバーライドされない時に使用する というのは 派生先でメソッドテーブル が生成されないため コードサイズが小さくなる という意味です 23

52 class のバインディング - VMT VMT とは Virtual Method Table の事です メソッドの呼び出しは Table への参照に置き換わります概念的にはメソッドのポインタへの配列です VMT Method1 Method2 Method3 Method4 たとえば ソースコードに Method1(); という呼び出しコードがあった場合 VMT[0](); といったコードになる ということです Method1(); VMT 内の 0 番目の参照を呼び出す 24

53 class のバインディング - VMT と override override type TFoo = class(tobject) public procedure Method1(); virtual; procedure Method2(); virtual; end; TBar = class(tfoo) public procedure Method1(); override; end; Class Foo の VMT Method1 Method2 テーブルの内容が置き換わる! Class Bar の VMT Method1 Method2 // 擬似コードとして書くと VMT[0] // Method1 のアドレスが入った // TBar で TFoo の Method1 を override すると VMT[0] // TBar の Method1 アドレスに変わる // 呼び出し側では下記のように呼び出しているだけなので 中身が入れ替われば呼び出し先も変わる! VMT[0](); 25

54 class のバインディングと abstract abstract type TFoo = class(tobject) public procedure Method1(); virtual; abstaract; end; TBar = class(tfoo) public procedure Method1(); override; end; Class Foo の VMT Method1 Method1 Method2 場所が確保されているだけで中身は無い! Class Bar の VMT Method2 // 擬似コードとして書くと VMT[0] := nil; // アドレスは nil! // TBar で TFoo の Method1 を override すると VMT[0] // TBar の Method1 アドレスが入る 26

55 メソッドポインタ 今まで見てきた通り Class には 2 つの構成要素があります Self インスタンスのアドレスを表す Method メソッドのアドレス クラス参照型は クラスオブジェクトのアドレスを渡しています アドレスは 32bit のマシンでは 4 バイトで表されます VMT に格納されているメソッドのアドレスも 4 バイトです Self が指すクラスのインスタンスも 4 バイトです 27

56 メソッドポインタ ここで イベントについてちょっと見てます type TFoo = class(tobject) private FEvent: TNotifyEvent; procedure TestEvent(Sender: TObject); end; procedure Test; var Foo: TFoo; begin Foo := TFoo.Create; Foo.FEvent := Foo.TestEvent; end; Foo と TestEvent で それぞれ4バイト必要 Object 必要なバイト数 Self 4 byte Method 4 byte 計 8 byte Delphi の Pointer 型は 4 バイトしか格納できないけど どうやって アドレスを代入しているのか?? 28

57 メソッドポインタ Delphi では メソッドポインタ を使ってイベントを管理しています ヘルプを引用すると メソッドポインタは, 特定のクラスインスタンスの特定のメソッドを指す特殊なポインタ型です メソッドポインタはほかの手続き型と同じように動作しますが, 手続き型と違ってクラスインスタンスへの隠されたポインタを保持しています つまり メソッドポインタは コードを書いていると気づきませんが 実は8バイトのポインタなのです メソッドポインタの宣言には下記の様に of object を指定します type TTestEvent = procedure(sender: TObject; ifoo: TFoo) of object; var Event: TTestEvent; // Event は 8 バイト 29

58 メソッドポインタ - TMethod TMethod という面白い機構が存在します TMethod は 8 byte のレコードで メソッドポインタを保持できます type TFoo = class(tobject) private procedure Method; end; procedure Test; type TProc = procedure of object; var Foo: TFoo; Proc: TProc; Method: TMethod; begin Foo := TFoo.Create; Proc := Foo.Method; Method := TMethod(Proc); TProc(Method)(); Foo.Free; end; メソッドポインタは TMethod へキャスト可能です そして TMethod もメソッドポインタにキャストできます procedure Test; type TProc = procedure of object; var Foo: TFoo; Proc: TProc; begin Foo := TFoo.Create; TMethod(Proc).Data:= Foo; TMethod(Proc).Code:= Foo.MethodAddress('Method') Proc; Foo.Free; end; こんな風にも書けます 30

59 メソッドポインタ - TMethod TMethod は Code, Data という 2 つのメンバを持っています Code は メソッドのアドレス Data は インスタンスのアドレスです 下記の様に Data の値を入れ替えると? type TProc = procedure of object; TFoo = class(tobject) private FMsg: String; procedure Method; end; procedure TFoo.Method; begin ShowMessage(FMsg); end; procedure Test; var Foo: TFoo; Bar: TFoo; Proc: TProc; Method: TMethod; begin Foo := TFoo.Create; Bar := TFoo.Create; Foo.FMsg := 'Foo' Bar.FMsg := 'Bar'; Proc := Foo.Method; Method := TMethod(Proc); TProc(Method)(); Method.data := Bar; TProc(Method)(); end; 31

60 17 Th Developer Camp 2 Class の演習 33

61 TMethodCaller を作る いままで 通して来てクラスについての理解が深まったと思います ここで 少し演習をしてみます 34

62 TMethodCaller の要件 クラスとメソッド名を引数にもつ静的メソッド メソッドの名前は仮に execute とした場合 下記の様に呼び出せる TMethodCaller.Execute(TTestClass, 'Method'); このメソッドを呼び出すとクラスを生成し 該当メソッドを呼び出す つまり 上記の例は と同じ事をする (TTestClass.Create).Method(); なお 呼び出せるメソッドは引数を持たない手続きとします 35

63 TMethodCaller - RTTI RTTI を扱うクラスがあります それを使うとメソッドの引数なども簡単に取得できます それを使えば今回のように引数なしのメソッドではなくても 安全に呼び出すことができます 腕に自信がある方は 是非挑戦してみてください 36

64 TMethodCaller - 宣言部 unit umethodcaller; interface type TMethodCaller = class(tobject) private type TCalledProc = procedure of object; public class procedure Execute( const iclass: TClass; const imethodname: String); static; end; 37

65 TMethodCaller - 実現部 implementation class procedure TMethodCaller.Execute( const iclass: TClass; const imethodname: String); var Obj: TObject; Proc: TCalledProc; begin Obj := iclass.create; try TMethod(Proc).Data := Obj; TMethod(Proc).Code := Obj.MethodAddress(iMethodName); if (TMethod(Proc).Code <> nil) then Proc; finally Obj.Free; end; end; end. 38

66 TMethodCaller - 使い方 type TTestClass = class(tpersistent) // TObject から生成すると published のところで警告発生 published procedure Test; end; procedure TTestClass.Test; begin ShowMessage('TEST'); end; procedure TForm1.Button1Click(Sender: TObject); begin TMethodCaller.Execute(TTestClass, 'Test'); end; 39

67 17 Th Developer Camp T8 テクニカルセッション Delphi 言語再入門 ~ 拡張された RTTI を試してみる 東洋テクニカルシステム株式会社システム開発部福士光 1

68 アジェンダ 従来の RTTI でできること Delphi 2010 で新しく拡張された RTTI( 拡張 RTTI) でできるようになったこと 試してみる (1)~ クラス内のメンバの列挙 試してみる (2)~ クラス内のメンバの値の取得 拡張 RTTI と属性を使う上での注意事項 3

69 基本知識 ~RTTI とは? RTTI( 実行時型情報 ) とは? RunTime Type Information の略 (Information ではなく Identification とすることもある ) 実行時にメモリ上のオブジェクトのデータ型に関する情報を取得 操作できる Delphi では従来から published 宣言を行うことで RTTI が生成され IDE がコンポーネントの持つ RTTI を利用している Delphi 2010/XE/XE2 では RTTI が拡張され より多くのことが可能になった ( 実行バイナリのサイズが大きくなるという副作用がある ) 5

70 17 Th Developer Camp 2 従来の RTTI でできること 6

71 従来の RTTI でできること (1) (System.)TypInfo ユニット 実行時にプロパティの型情報を探す published なプロパティのみ ( コンパイラ指令 {$M+} または {$TYPEINFO ON} が必要 ) GetPropInfo 関数 GetPropList 関数など PPropInfo = ^TPropInfo ( レコード型へのポインタ ) 実行時に型情報を元に値を取得 設定する GetXXXXProp/SetXXXXProp 関数 (XXXX は対象となるプロパティの型による ) Delphi の IDE がフォームをストリーム化したりプロパティエディタで使用しているのはご存知のとおり 7

72 従来の RTTI でできること (2) 仮想メソッドテーブル (VMT) virtual/overrideと宣言されたメソッドのテーブル ( クラスごとに存在 ) 動的なメソッドのテーブル dynamic/overrideあるいはmessageと宣言されたメソッドのテーブル ( テーブル上では動的メソッドなのかメッセージハンドラなのかは区別されていない ) 8

73 17 Th Developer Camp 3 拡張 RTTI でできるように なったこと 9

74 拡張 RTTI でできるようになったこと (1) (System.)RTTI ユニット 実行時にフィールド プロパティ メソッドの型情報を取得する コンパイラ指令 {$RTTI} で拡張 RTTI をプロパティ フィールド メソッドのそれぞれに対してどの範囲 (published/public/protected/private) のものに付けるのかを制御 クラス型 (class) またはレコード型 (record) が対象 型情報そのものは全ての型 (Integer, Boolean,...) に存在している 10

75 拡張 RTTI でできるようになったこと (2) 実行時に型情報とインスタンスへのポインタを元に各種の操作を行う フィールドの値の取得 設定 プロパティの値の取得 設定 メソッドの呼び出し (invocation) 11

76 拡張 RTTI でできるようになったこと (3) 属性 (attribute) による注釈付け (annotation) クラス型あるいはレコード型に属性で注釈を付ける クラス型あるいはレコード型のメンバ ( フィールド プロパティ メソッド ) に属性で注釈を付ける.NET Framework と同様の記法を使う [<Attr>] [<Attr>(<parameterlist>)] 先頭の T と末尾の Attribute コンストラクタの.Create を省略できる [T<Attr>Attribute.Create] [T<Attr>Attribute.Create(<parameterlist>)] 12

77 拡張 RTTI でできるようになったこと (4) 属性 (attribute) による注釈付け (annotation) カスタム属性 (custom attribute) の宣言 ( プロパティやフィールドの値ではなく ) 属性クラスの型で区別する 例外ハンドラを記述するときに例外オブジェクトの型で区別を行うのと同様に コンストラクタで渡した値 ( 定数のみ ) をフィールドまたはプロパティに保存して参照することもできる TCustomAttribute クラスから派生したカスタム属性クラスを宣言して使用する 13

78 拡張 RTTI でできるようになったこと (5) 属性 (attribute) による注釈付け (annotation) 実行時にクラス型 レコード型に付けられている属性を抽出する 実行時にクラス型 レコード型のメンバに付けられている属性を抽出する 属性を使う状況 同じ型から派生していても区別して処理したい 同じ型のメンバでも区別して処理したい 14

79 拡張 RTTI でできるようになったこと (6) 拡張 RTTI と属性についての補足 拡張 RTTI はデフォルトでは以下の範囲に付けられている (System ユニットで定義 ) 可視性 private protected public published フィールド〇〇〇〇 プロパティ 〇〇 メソッド 〇〇 Delphi 2010 以降の実行ファイルが大きくなってしまう原因のひとつ {$RTTI EXPLICIT...} で ( 継承元クラスの指定とは独立して ) 拡張 RTTI を付ける範囲を指定できる 15

80 拡張 RTTI でできるようになったこと (7) 拡張 RTTI と属性についての補足 属性は検索 抽出されるときに実体が生成される 検索 抽出しなければ性能上のペナルティはない 実行バイナリ 占有メモリのサイズのペナルティはある 拡張 RTTI を扱うコードは遅い どのような場合に拡張 RTTI を使えばよいのか? クラスに対する汎用な処理の記述 ORマッパやXMLへのシリアライズ / デシリアライズ クラス構造のツリー表示 16

81 17 Th Developer Camp 4 試してみる (1) クラス内のメンバの列挙 17

82 クラス内のメンバの列挙 (1) TRTTIContext ((System.)RTTI ユニット ) 全ての操作はここから始まる 高度なレコード型 内部リソースの管理 解放のためクラスのコンストラクタ デストラクタのように class function Create と procedure Free を呼ぶことが推奨されています uses Rtti; var ctx: TRttiContext; begin ctx := TRttiContext.Create; try // RTTI を扱う finally ctx.free; end; end; 18

83 クラス内のメンバの列挙 (2) TRTTIContext GetType メソッド 指定されたクラス型の RTTI オブジェクト (TRTTIType から派生したクラスのインスタンス ) を取得 function GetType(AClass: TClass): TRttiType; 19

84 クラス内のメンバの列挙 (3) TRTTIType クラス型 (RTTI オブジェクトの基底クラス ) GetProperties メソッド 所属するクラスのプロパティの RTTI 情報を全て取得 function GetProperties: TArray<TRttiProperty>; GetFields メソッド 所属するクラスのフィールドの RTTI 情報を全て取得 function GetFields: TArray<TRttiField>; GetMethods メソッド 所属するクラスのメソッドの RTTI 情報を全て取得 function GetMethods: TArray<TRttiMethod>; 階層順に ( 継承先から継承元に向かって )RTTI 情報がリストアップされる 20

85 クラス内のメンバの列挙 (4) TRTTIType GetDeclaredProperties メソッド GetDeclaredFields メソッド GetDeclaredMethods メソッド そのクラスで定義したプロパティ / フィールド / メソッドの RTTI 情報だけがリストアップされる 21

86 クラス内のメンバの列挙 (5) TRTTIProperty クラスのプロパティの RTTI 情報 クラス型 (TRTTIMember から派生 ) Name プロパティ ( 名前 ) property Name: string; Visibility プロパティ ( 可視性 ) property Visibility: TMemberVisibility; 22

87 クラス内のメンバの列挙 (6) それでは実際に試してみましょう 新規作成 VCL フォームアプリケーション フォーム上にボタン (Button1) とメモ (Memo1) を配置 メモの Anchors に akright と akbottom を追加 crollbars を ssboth に変更 23

88 クラス内のメンバの列挙 (7) procedure TForm1.EnumProperties(AObject: TObject); const MemberVisibilities: array [TMemberVisibility] of String = ('private', 'protected', 'public', 'published'); var ctx: TRttiContext; prop: TRttiProperty; begin Memo1.Lines.Add('Class: ' + AObject.ClassName); ctx := TRttiContext.Create; try for prop in ctx.gettype(aobject.classtype).getproperties do begin Memo1.Lines.Add(' Property: ' + prop.name + ( + MemberVisibilities[prop.Visibility] + ) ); end; finally ctx.free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin EnumProperties(Form1); EnumProperties(Button1); EnumProperties(Memo1); end; 24

89 クラス内のメンバの列挙 (8) とりあえず実行してみましょう Memo1.Lines.Add の行にブレークポイントを設定し prop(trttiproperty) を評価してみる prop の実際の型は? 25

90 17 Th Developer Camp 試してみる (2) 5 クラス内のメンバの値の 取得 26

91 クラス内のメンバの値の取得 (1) TValue ((System.)RTTI ユニット ) 拡張 RTTI でデータを格納する 高度なレコード型 バリアントもどき ( バリアント型の軽量版 ) 実際のデータは FData フィールド (TValueData レコード型 共用体 ) に格納している 27

92 クラス内のメンバの値の取得 (2) TValue Kind プロパティ 型の種類を列挙として取得 property Kind: TTypeKind; TypeInfo プロパティ TypeData プロパティ 型の情報をレコード型として取得 property TypeInfo: PTypeInfo read GetTypeInfo; property TypeData: PTypeData read GetTypeDataProp; 28

93 クラス内のメンバの値の取得 (3) TValue IsXXXX メソッド / プロパティ 格納されているデータの状態を問い合わせる IsEmpty/IsObject/IsInstanceOf/IsClass/IsOrdinal/IsType/IsArray AsXXXX/TryAsXXXX メソッド 格納されているデータを特定の型で取得する AsObject/AsClass/AsOrdinal/AsType/AsInteger/AsBoolean AsExtended/AsInt64/AsInterface/AsString/AsVariant/AsCurrency TryAsOrdinal/TryAsType 29

94 クラス内のメンバの値の取得 (4) TValue 暗黙の型変換 (implicit conversion) データを格納する string/integer/extended/int64/tobject/tclass/boolean FromXXXX メソッド データを格納する FromVariant/From<T>/FromOrdinal/FromArray ToString メソッド データをとりあえず文字列化 30

95 クラス内のメンバの値の取得 (5) TRTTIProperty と TValue TRTTIProperty.GetValue 特定のインスタンスのプロパティの値を取得 function GetValue(Instance: Pointer): TValue; TRTTIProperty.SetValue 特定のインスタンスのプロパティの値を設定 procedure SetValue(Instance: Pointer; const AValue: TValue); TRTTIProperty が示しているのは型に関する情報であることに注意 31

96 クラス内のメンバの値の取得 (6) こちらも試してみましょう GetValueでプロパティの値を取得して TValue.ToStringで文字列化します GetValueは例外が起きるかもしれないので try...except...endで保護します procedure TForm1.EnumProperties(AObject: TObject); const MemberVisibilities: array [TMemberVisibility] of String = ('private', 'protected', 'public', 'published'); var ctx: TRttiContext; prop: TRttiProperty; V: TValue; Str: String; 32

97 クラス内のメンバの値の取得 (7) begin Memo1.Lines.Add('Class: ' + AObject.ClassName); ctx := TRttiContext.Create; try for prop in ctx.gettype(aobject.classtype).getproperties do begin try V := prop.getvalue(aobject); Str := V.ToString; except on E: Exception do begin Str := 'Error (' + E.Message + ')'; end; end; Memo1.Lines.Add(' Property: ' + prop.name + ' (' + MemberVisibilities[prop.Visibility] + ')' + ' Value = ' + Str); end; finally ctx.free; end; end; 33

98 クラス内のメンバの値の取得 (8) SetValue メソッドでプロパティの値を変更することも可能です GetValue で取得した TValue の TypeInfo.Kind が tkclass なら AsObject はクラス型のプロパティです あるいは TRTTIProperty や TRTTIField の Handle プロパティが nil でなければ PTypeInfo (=^TTypeInfo) なので Handle.Kind でそのプロパティ / フィールドの定義の型を知ることもできます 再帰処理で複合クラスのトラバースが実現できます 34

99 17 Th Developer Camp 6 拡張 RTTI と属性を使う上での注意事項 35

100 拡張 RTTI と属性を使う上での注意事項 (1) 配列に対するサポートが弱い Delphi XE2 では TRttiType に GetIndexedProperties メソッドが追加されて配列プロパティに関する情報を取得できるようになったが 通常のプロパティに比べて微妙に使えない 静的配列のフィールドもうまく扱えない 動的配列のフィールドは通常のプロパティ並に扱えるので 配列プロパティ 静的配列のフィールドの代替として動的配列のフィールドを用意してエイリアス的に使うという回避策が有効 36

101 拡張 RTTI と属性を使う上での注意事項 (2) 属性のコンストラクタ TCustomAttribute のコンストラクタはパラメータを持たないが 派生したクラスでコンストラクタを定義することで値を渡すことができる ( フィールド プロパティでその値を保持する ) constructor Create(const AFooValue: String); しかしコンストラクタのパラメータは定数しか使えない ( 文字列定数はOK) ポインタでも定数なら使えるはずだが 現実には内部エラーが発生してコンパイルできない 37

102 17 Th Developer Camp 7 参考文献 38

103 参考文献 (1) Delphi のヘルプ RTTI の操作 ( オンライン ) %E3%81%AE%E6%93%8D%E4%BD%9C%EF%BC%9A%E3%82%A4%E 3%83%B3%E3%83%87%E3%83%83%E3%82%AF%E3%82%B9 Rob s Technology Corner Delphi RTTI & Attributes シリーズ 英語です 39

104 参考文献 (2) Delphi 2010 Handbook Marco Cantù 著 CreateSpace ( ISBN (ISBN ) 43.50USD( 書籍版 ) 28.00USD(ebook) ( 書籍 ) delphi2010handbook (ebook/pdf) 英語ですが表現は比較的平易 拡張 RTTI について記述があります (Chapter 3 4) 40

105 参考文献 (3) Delphi クイックリファレンス Ray Lischner 著 光田秀 竹田知生訳 オライリー ジャパン ISBN (ISBN ) 4,725 円 残念ながら絶版です 従来の RTTI について記述があります 41

106 参考文献 (4) Inside Delphi Ray Lischner 著 光田秀訳 大野元久 服部誠監修 アスキー ISBN (ISBN ) 9,240 円 こちらも残念ながら絶版です 従来の RTTI について記述があります 42

107 T9 テクニカルセッション 17 Th Developer Camp Delphi/C++Builder で ios/mac アプリを作ろ う! エンバカデロ テクノロジーズ エヴァンジェリスト高橋智宏 1

108 アジェンダ OS X で動的ライブラリ (.dylib) Delphi で作成して Delphi アプリから呼び出し C++Builder で作成して C++Builder アプリから呼び出し SQLite3 を利用する デモ C++Builder で OS X 内蔵の SQLite3 を利用する デモ OpenCL を利用する C++BuilderでOS X 内蔵のOpenCLを利用するデモ OS XでSOAPクライアントを作成する Win32/Win64のSOAPサーバーからのTClientDataSetを受信して FireMonkeyのStringGridに表示 Update 4 で新たに追加されたFireMonkey 向けモ デモ バイルコネクタ ios(4.x, 5.0) から FreePascal 向けプロキシで DataSnap を呼び出す 注意点あり デモ 2

109 17 Th Developer Camp OS X で動的ライブラリ (.dylib) 1 3

110 Delphi で作成 lib[ プロジェクト名 ].dylib が生成される 共有メモリマネージャ (ShareMem ユニット,BORLNDMM.DLL) は無い 4

111 Delphi アプリから呼び出し external xxxx.dylib ; 配置ウィザードで.dylib ファイルを追加 5

112 C++Builder で作成 [ プロジェクト名 ].dylib が生成される 共有メモリマネージャ (MEMMGR.LIB,BORLNDMM.DLL) は無い int32_t, char16_t などの型 (stdint.h) を使いましょう MacOS X では wchar_t は 4 バイト (32bit) です!! 6

113 C++Builder アプリから呼び出し #pragma link xxxx.dylib 配置ウィザードで.dylib ファイルを追加 7

114 17 Th Developer Camp SQLite3 を利用する 2 8

115 /usr/include/sqlite3.h, /usr/lib/libsqlite3.dylib [ ツール ]-[ オプション ]-[ 環境オプション ]-[ リモートプロファイル ]-[ リモートパス ] 必要に応じて.h と.dylib を PAServer からインポート [ ローカルファイルキャッシュの更新 ] を忘れずに! 9

116 データベースファイルの作成またはオープン #include <sqlite3.h> #pragma link libsqlite3.dylib sqlite3_open: 作成またはオープン sqlite3_close: クローズ 10

117 テーブルの作成および行の INSERT C++Builder の UnicodeString 型 (1 文字 16 ビット ) を使用 一部 UTF8String 型 (UTF8Encode 関数 ) を使用 テーブルの存在確認 システムテーブルにSELECT 文を実行 sqlite3_get_table / sqlite3_free_table テーブルの作成 sqlite3_exec で CREATE TABLE 文を実行 行の INSERT パラメータ付きクエリ ( 例 : =:param ) char16_t 版の関数を利用 sqlite3_prepare16 / sqlite3_reset: SQL 文の準備 sqlite3_bind_text16: 文字列パラメータのセット sqlite3_step: SQL 文の実行 sqlite3_finalize: SQL 文の後始末 11

118 テーブルの作成および行の INSERT ( 続き ) 12

119 SELECT 文で行を検索 sqlite3_step とその戻り値で結果セットをイテレート SQLITE_ROW: 行がある SQLITE_DONE: 行が無くなった sqlite3_column_text16 でカレント行の文字列を取得 戻り値の型を char16_t* 型にするのを忘れずに!! C++BuilderのUnicodeString 型に変換する 13

120 17 Th Developer Camp OpenCL を利用する 3 14

121 OpenCL on Snow Loepard, Lion OpenCL とは? 出典 : wikipedia C++Builder XE2 がサポートしている OS X 10.6.x, 10.7.x には OpenCL が標準搭載 15

122 OpenCL,OpenGL - /System/Library/Frameworks [ ツール ]-[ オプション ]-[ 環境オプション ]-[ リモートプロファイル ]-[ リモートパス ] フレームワークとして OpenCL と OpenGL をインポート OpenGL も忘れずに!! 必要なヘッダとライブラリが利用できるようになります 16

123 GPUに送り込むカーネルコードを定義 コンパイル前のカーネルコードを文字列で定義 C 言語的なコードを書きます char 配列でもファイルでも OK float 値を 2 乗して 結果を入れて返す : y[i] = x[i] * x[i]; 17

124 計算用の初期値, GPU に接続, コードのコンパイル アプリ ( ホスト ) 側で計算用の初期値 ( 配列 ) を準備 この配列の値を GPU( デバイス ) にコピーして渡します 1 個の GPU( デバイス ) に接続して コードをコンパイル OpenCL では GPU ではなく CPU を利用することも可 18

125 GPU で使用するパラメータの作成 パラメータ用の配列を GPU 内に作成して そこにアプリ ( ホスト ) 側の配列をコピーする 計算結果を格納する配列を GPU 内に作成 計算用の配列のサイズも渡しておく 19

126 GPU で計算実行, 結果を取得して確認, 後始末 GPU 内の複数の計算ユニットで並列実行 clfinish 関数で実行終了を待ち合わせ clenqueuendrangekernel 関数は非同期で実行される 計算結果の配列を GPU からホストにコピー clenqueuereadbuffer 関数で取得 ( 読み込みが終わるまで待たされる ) 試しに CPUの計算結果とGPUの計算結果を比較する 作成したリソース群を解放 20

127 17 Th Developer Camp OS X で SOAP クライアントを作成する 4 21

128 作成するサンプルシステムの目標 設計 SOAP サーバー Win32( または Win64) の Delphi( または C++Builder) で作成 スタンドアロン (.exe) サーバー ポート番号 8080 TClientDataSet を返すメソッドをクライアントに公開 ただし TClientDataSet そのものではなく XML 化した文字列 (string) を採用 SOAP クライアント MacOS X 向け FireMonkey アプリケーション Delphi または C++Builder で作成 WSDL から SOAP クライアント用プロキシを生成 Windows 版および MacOS X 版で共通!! サーバーから取得した TClientDataSet を TStringGrid に表示 22

129 SOAP サーバー データモジュールを用意 [ ファイル ]-[ 新規作成 ]-[ その他 ]-[Delphi プロジェクト ]-[Web サービス ]-[SOAP サーバーアプリケーション ] サンプルの SOPA サーバーインターフェースを作成 サービス名は Employee [ ファイル ]-[ 新規作成 ]-[ その他 ]-[Delphi プロジェクト ]-[Delphi ファイル ]-[ データモジュール ] TClientDataSet を配置 [ 項目の設定 ] でフィールドを追加 TIntegerField FieldName は id TWideStringField FieldName は fullname 23

130 クライアントに公開するメソッド function getemployeedatasetxml: string; stdcall; interface と実装 class を編集 [ サービス名 ]Intf.pas [ サービス名 ]Impl.pas TClientDataSet の XMLData プロパティで XML 表現を取得 24

131 SOAP クライアント WSDL をインポート [ ファイル ]-[ 新規作成 ]-[ その他 ]-[Delphi プロジェクト ]-[Web サービス ]- [WSDL インポータ ] FireMonkey フォームからクライアントプロキシユニットを参照 FireMonkey フォーム上に 以下を配置 TButton TClientDataSet TStringGrid [ 項目エディタ ] で項目 (TStringColumn) の追加 Id fullname 25

132 SOAP クライアント TClientDataSet を復元 TClientDataSet の XMLData プロパティに XML 表現をセットするだけ 26

133 17 Th Developer Camp 5 Update 4 で新たに追加された ios/firemonkey 向けモバイルコネクタ 27

134 Update 4 をインストールすると ios FireMonkey(FreePascal) 向けのモバイルコネクタがリポジトリフォルダに追加される RAD Studio 9.0 ObjRepos ja[en] dsrest connectors freepascal_ios42 フォルダ : ios 4.2 以降 freepascal_ios50 フォルダ : ios 5.0 向け DataSnap REST サーバーのプロジェクト Delphi の WebModule 用ユニットの uses( 例 : WebModuleUnit1.pas) Datasnap.DSProxyFreePascal_iOS C++Builder の WebModule 用ユニットの.h( 例 : WebModuleUnit1.h) #include <Datasnap.DSProxyFreepascal_iOS.hpp> プロジェクトの proxy フォルダにモバイルコネクタ ( 必要があればコピー ) サーバーを起動して Web ブラウザまたは専用ツールを起動 DSProxy.pas が自動生成される 28

135 モバイルコネクタをクライアントで利用する モバイルコネクタ用の.pas ファイル 15 個をプロジェクトに追加 接続先を指定デフォルトのプロトコルは http DataSnap サーバーへの接続サーバーメソッドの呼び出し DataSnap 特有の例外 DBXException 29

136 Windows 上で実行すると モバイルコネクタでサーバーメソッドの呼び出しをテストする Windows 上では メソッドの呼び出し時に例外が発生する仕様 XcodeとiPhoneシミュレータでのデバッグが必須 30

137 日本語などの Unicode 文字列が化けて送信される Update 4 に付属する DSRESTConnection.pas の不具合 QC# uses 句と EncodeUrlNS2 関数に加筆修正を施してください 予め リポジトリ内のファイル自体を書き換えておくと便利 31

138 iphone シミュレータ上で実行 予め ターミナルから iphone シミュレータのプロセスを UTF-8 で起動しておく ( 日本語などの文字化け対策 ) QC# $ export LANG=ja_JP.UTF-8 $ cd /Developer/Platforms/iPhoneSimulator.platform/Developer/Applications/iPhone Simulator.app/Contents/MacOS $./iphone Simulator Xcode でビルドして起動!! 32