21st Embarcadero Developer Camp T9

Size: px

Start display at page:

Download "21st Embarcadero Developer Camp T9"

ひでよりはなだて
5 years ago
Views:

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

2 アジェンダ 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

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

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

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

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

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

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

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

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

11 テーブルの作成および行の 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

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

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

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

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

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

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

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

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

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

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

22 作成するサンプルシステムの目標設計 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

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

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

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

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

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

28 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

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

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

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

iphone シミュレータ上で実行予めターミナルから iphone シミュレータのプロセスを UTF-8 で起動しておく ( 日本語などの文字化け対策 ) QC#101418 http://qc.embarcadero.com/wc/qcmain.aspx?

32 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

33 17 Th Developer Camp Q & A 33

20th Embarcadero Developer Camp

20th Embarcadero Developer Camp 17 Th Developer Camp B4 Delphi/C++Builder テクニカルセッション dbexpressとマルチプラットフォーム開発エンバカデロテクノロジーズエヴァンジェリスト高橋智宏 1 アジェンダ dbexpress Driver のアップデート Win32 / Win64 dbexpress over ODBC Driver Win32 / Win64 例 : PostgreSQL