a2

Size: px

Start display at page:

Download "a2"

ようたなかきむら
6 years ago
Views:

1 A2 Delphi テクニカルセッション Delphi で作るデータベースツールその開発のポイントは 2014 年 11 月 11 日田中芳起 Ver

2 自己紹介名前 : 田中芳起 ( たなかよしき ) 中堅 SIer でパッケージシステムの開発 / プロジェクト管理 / 品質管理等の仕事に従事 26th デブキャンプではじめての FireDAC の講師を担当 Delphi とは 1.0US 版からの付き合いホームページブログ Facebook : : : : 2

3 Agenda Introduction DB-Engines による調査結果 Visual NAVI のご紹介おもな機能動作環境デモ Oracle Database の歴史 Oracle 社が提供するミドルウェア Oracle 接続の仕組み BDE(Borland Database Engine) の構造 BDE の現状ネイティブ接続リポジトリを使う Frame を使う 3

4 Agenda The Next Steps 今後の進化マルチデータベースのサポートソフトウェア構造の根本的な直し無謀にも VCL から FireMonkey(FMX) フォームを呼び出す DLL 内で MDI 子フォームを生成する FireMonkey の状態保存 FireMonkey でクリップボードを扱うコア技術はコールバック関数! コールバック関数の体系コールバック関数の登録コールバック関数の呼出 SQL の実 Visual NAVI の SQL エディタを起動実するパイプを使ってメッセージを横取りする! デモ 4

5 5

6 DB-Engines による調査結果データベースソフトウェアの普及度や気をインターネット上の求情報や職務経歴上での経験および検索エンジンや SNS での情報量を元に毎月作成し公開されている強!? 位 40 位 0 Oracle MySQL MS SQL Server PostgreSQL MongoDB DB2 MS Access SQLite Sybase ASE Firebird Interbase 6

7 Visual NAVI のご紹介コンセプトは Easy to use!( 使いやすさ ) Oracle 専用の統合型開発支援ツールアプリケーション開発に必要な機能やデータベース管理に必要な機能を統合ネイティブ接続 Oracle との接続は OCI (Oracle Call Interface) を使用接続用のミドルウェアは切必要とせず Oracle のクライアント環境がインストールされている端末であれば実モジュールのみで動作 GUI (Graphical User Interface) による操作オブジェクトの作成 SQL の実などを GUI 上で操作することができ開発効率が幅に向上 7

8 おもな機能 DBA 向け機能各種データベース情報の表示表領域ユーザー等の新規作成 / 類似作成 / 変更 / 削除高機能な SQL 実機能 SQL 実 (DDL DML) SQL 文の解析エラー個所 ( 位置 ) の表示バインド変数を使用した SQL の実 DBMS_OUTPUT パッケージを使用したデバッグ機能実計画のグラフィカル表示 SQL のバッチ実スキーマオブジェクトの管理機能 GUI によるオブジェクトの新規作成 / 類似作成 / 変更 / 削除オブジェクトの定義情報ソースデータをリバース表示オブジェクト覧表テーブルビューの仕様書出ストアドプログラムの作成編集実専用エディタによるストアドプログラムの作成 / コンパイル / 実テーブルビューの表示編集機能の編集 / 追加 / 削除 / 全削除各種形式 (XML/HTML/Excel/CSV ) でのデータ出 8

9 動作環境パソコンの動作環境 Windows 日本語版 Vista/7/8(8.1)(32bit/64bit 共に可 ) オラクルのバージョン /Excel のバージョンについて Oracle クライアントがインストール済であること Oracle クライアントと接続する Oracle サーバが以下のバージョンであること Oracle (64bit Oracle には未対応 ) 文字コードは SJIS のみ (UniCode は未対応 ) 仕様書出 Excel 形式でデータを出する場合は Microsoft Excel(97 以降 ) がインストール済みであること 9

10 Oracle Database の歴史 cloud Oracle 12c 開発着手 Oracle9i Oracle10g/11g Oracle8i Oracle8 Oracle V7 Oracle V

11 Oracle 接続の仕組み tnsnames.ora ORCL = ネットサービス名 (DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP) (HOST = host1)(port = 1521)) ) (CONNECT_DATA = (SERVICE_NAME = orcl) ) ) ネットワーク定義ファイルリスナー host1 Connect ユーザー名 / 11

12 Oracle 社が提供するミドルウェア C コンパイラ COBOL コンパイラ Visual Basic/ASP/Access.NET Pro*C Pro*COBOL Oracle Object for OLE OLE DB ODBC.NET Bridge ODP.NET クライアント側 OLE DB Oracle Net Services ( 旧 Net8 SQL*NET) ODBC サーバー側 Oracle Net Services ( 旧 Net8 SQL*NET) OO4O,OLE DB,ODBC,ODP.NET は ODAC(Oracle Data Access Component) として提供されています 12

13 BDE(Borland Database Engine) の構造 Paradox for Windows dbase for Windows Borland C++ Delphi アプリケーション BDE API (IDAPI) BDE (Borland Database Engine) SQL Link ドライバ Paradox Driver dbase Driver ASCII Oracle, MS SQL Server InterBase, Informix, Sybase Driver ODBC Driver TCP/IP, SPX/IPX Paradox dbase Text RDBMS Oracle/MS SQL Server/ InterBase/Informix/Sybase ローカルデータベース 13

14 BDE の現状 BDE は 2002 年に開発保守が終了不具合があっても修正パッチの提供はされていない BDE の最新バージョンは 5.2 Delphi 7/C++Builder 6 以降 BDE のバージョンは更新されていない現在の Delphi/C++Builder 製品に付属する BDE はあくまで過去の資産保守用動作保証プラットフォームは Windows XP まで Windows XP 以降にリリースされた OS バージョンは動作保証がされていない ( 例えば Windows Vista/7/8 Windows2003/2008 Server など ) RAD Studio XE7 では BDE がインストールされないしかし別途インストーラがダウンロードできます 14

15 ネイティブ接続 Delphi 用 OCI*1 ラッパーコンポーネントを開発 ODBC ADO OO4O BDE 等は切不要 Oracle のすべての機能が使用可能処理が高速 Visual NAVI Visual NAVI VCL TQuery, Ttable OCI ラッパーコンポーネント BDE SQL Link OCI.dll Oracle Net Services この部分が不要! OCI.dll Oracle Net Services RDBMS 15 *1 OCI(Oracle Call Interface) は Oracle データベースが提供する API (Application Program Interface) の 1 つです

16 リポジトリを使うリポジトリとは? Delphi のソフトウェア資産の再利用のための機能で Form 等で共通した機能を共有するのために使用するまたチームで開発する場合はテンプレートとしてリポジトリの共有がえる frmbaseclassmdiform を継承 Form 情報の読込 / 保存 TaskBar の追加 / 削除 : 16

17 Frame を使うフレーム (Frame) とは? Form と同じように他のコンポーネントのコンテナ複数のコンポーネントをまとめて配置し部品化することができる 17

18 18

19 今後の進化マルチデータベースのサポートあらゆるデータベースのサポート (Oracle MS SQL Server MySQL ) ソフトウェア構造の根本的な直しソフトウェア資産の流用と拡張性への対応各種プログラミング言語への対応 Delphi 以外の言語への対応 ( 課題は bool int string ) 64 ビット化データベースも急激に 32 ビットから 64 ビットにシフトしている DataSnap による多層化インフラプラットフォームの変化に柔軟に対応マルチデバイスへの対応 Mac スマートディバイス等の普及拡に対応多言語化グローバルな開発環境への対応 ( 英語中国語 ) 19

20 マルチデータベースのサポート FireDAC がサポートする主な DBMS のサポート第段として Oracle 続いて MS-SQL Server MySQL をリリース予定 20

21 ソフトウェア構造の根本的な直し (Before) Visual NAVI SDI or MDI Form & Units Form & Units Oracle DataModule DLL (Plugin) SDI Plugin - interface Form & Units 21

22 ソフトウェア構造の根本的な直し (After) Visual NAVI DLL (Action) SDI or MDI Oracle DataModule Form & Units Action Manager Form & Units Form & Units 22

dll'); if DLLHandle <> 0 then begin @ShowFMXForm := GetProcAddress(DLLHandle, 'ShowFMXForm'); if Assigned(ShowFMXForm) then ShowFMXForm(); FreeLibrary(DLLHandle); *1 *1 ライブラリの解放

23 無謀にも VCL から FireMonkey(FMX) フォームを呼び出す FireMonkey フォームの動的呼出 type TShowFMXForm = procedure stdcall; procedure TForm1.btnShowFMXFormClick(Sender: TObject); var ShowFMXForm: TShowFMXForm; DLLHandle: THandle; begin DLLHandle := LoadLibrary('VCLdll.dll'); if DLLHandle <> 0 then := GetProcAddress(DLLHandle, 'ShowFMXForm'); if Assigned(ShowFMXForm) then ShowFMXForm(); FreeLibrary(DLLHandle); *1 *1 ライブラリの解放 (FreeLibrary 呼出 ) でダンマリ状態になる ( 正しく終了しない ) VCL(.exe/.dll) と FireMonkey(.dll/.exe) とをアプリ内で混在させることは想定されていない詳細は次の QualityCentral(QC) を参照 [DLL developed with FireMonkey crash under FireMonkey app/ VCL app after FreeLibrary to unload the DLL] 23

24 DLL 内で MDI 子フォームを生成するポイントは DLL 内の Application と Screen の値を呼出側の値と致させるメインフォーム子フォーム (DLL 側で生成 ) 実時ライブラリを使っても実現できますがここではレガシィなやりで実装します作成した Form(Unit) をリポジトリとして登録しておくとクラス継承が容易となります 24

25 DLL 内で MDI 子フォームを生成する (DLL 側コードの抜粋 ) var SaveApplication: TApplication; SaveScreen: TScreen; procedure ShowChildForm(AApplication: TApplication; AScreen: TScreen); stdcall; begin if not Assigned(SaveApplication) then begin // Tapplication Tscreen のセーブ SaveApplication := Application; SaveScreen := Screen; // 親の Tapplication Tscreen をセット Application := AApplication; Screen := AScreen; frmchild := TfrmChild.Create(Application); initialization SaveApplication := nil; finalization // Tapplication Tscreen を元に戻す if Assigned(SaveApplication) then begin Application := SaveApplication; Screen := SaveScreen; 25

26 FireMonkey の状態保存 ( 保存 ) XE7 からアプリケーションの状態の保存 / 復帰機能が追加されていますこれにより従来 INI ファイルで処理していたことが簡単に実現することができます procedure TForm1.FormSaveState(Sender: TObject); var BW: TBinaryWriter; begin SaveState.Stream.Clear; // 何かが編集されたときにのみ現在の状態が保存される // 何も変更されていない場合は状態がこのように削除される if Edit1.Text.Length > 0 then begin // したテキストを Edit1 コントロールに保存する BW := TBinaryWriter.Create(SaveState.Stream); try BW.Write(Edit1.Text); BW.Write(Edit2.Text); *2 finally BW.Free; *1 *1 OnSaveState イベントに設定 *2 保存するコントロールを指定する 26

27 FireMonkey の状態保存 ( 復帰 ) uses System.IOUtils; procedure TForm1.FormCreate(Sender: TObject); var BR: TBinaryReader; begin SaveState.StoragePath := TPath.GetHomePath; if SaveState.Stream.Size > 0 then begin // 前にしたテキストを Edit1 コントロールに回復する BR := TBinaryReader.Create(SaveState.Stream); try Edit1.Text := BR.ReadString; Edit2.Text := BR.ReadString; finally BR.Free; *2 *1 *1 保存先を指定この場合はホームパス (C: Users < ユーザー名 > AppData Roaming) に保存される *2 読込むコントロールを指定する 27

28 FireMonkey でクリップボードを扱う uses FMX.Platform; // クリップボードへ文字列をコピーする procedure ClipboardAsString(Text: String); var ClipboardService: IFMXClipboardService; begin ClipboardService := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService)); ClipboardService.SetClipboard(text); // クリップボードから文字列を取得する function GetClipboardAsString: String; var ClipboardService: IFMXClipboardService; begin ClipboardService := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService)); Result := ClipboardService.GetClipboard.AsString; 以下を参照して下さい TPlatformServices : IFMXClipboardService: 28

29 コア技術はコールバック関数! コールバック関数とは? プログラム中で呼び出し先の関数の実中に実されるようにあらかじめ指定しておく関数 (IT 用語辞典より引用 ) Visual NAVI(Action Manager) DLL (Action) function バージョンの取得 SYS_Version SYS_Version 結果

30 30 コールバック関数の体系関数名 SYSTEM info functions SYS_Version SYS_RootDir SYS_IniFileName : IDE functions IDE_Connected IDE_ConnectionInfo IDE_GetAppHandle : SQL functions SQL_Execute SQL_FieldCount SQL_Eof : Oracle functions ORA_Version ORA_OracleHome : 機能概要 Visual NAVI の各種情報を取得バージョンを取得起動 Dir を取得環境設定ファイル名を取得 : IDE の情報を取得 DB 接続の有無を取得 (True: 接続済み ) DB 接続情報の取得アプリケーションハンドル名を取得 : SQL の実と結果の取得 SQL の実項目 ( コンポーネント ) の数を取得データセットの最後かどうかを取得 : Oracle の各種情報取得処理の依頼 Oracle のバージョンを取得 Oracle-Home を取得 :

31 コールバック関数の登録 (Delphi) DLL 側で登録するコールバック関数を RegisterCallback 手続き内で定義をします Visual NAVI 起動時に自動的にコールバック関数が登録される var // コールバック関数の定義 SYS_Version : function: PWideChar; stdcall; SYS_RootDir : function: PWideChar; stdcall; ORA_Version : function: PWideChar; stdcall; ORA_OracleHome: function: PWideChar; stdcall; : // コールバック関数の登録 procedure RegisterCallback(Index: Integer; Addr: Pointer); stdcall; begin case Index of := Addr; := Addr; : := Addr; := Addr; : 31

コールバック関数の呼出 (Delphi) Visual NAVI 側から DLL の OnMenuClick を呼び出すと DLL 側で処理が実される procedure OnMenuClick(Index: Integer); stdcall; begin case Index of 1: ShowLogonInfo; 2:

32 コールバック関数の呼出 (Delphi) Visual NAVI 側から DLL の OnMenuClick を呼び出すと DLL 側で処理が実される procedure OnMenuClick(Index: Integer); stdcall; begin case Index of 1: ShowLogonInfo; 2: ShowMessage(IntToStr(IDE_GetWindowType)); 3: IDE_CreateWindow(3, 'select * from tab', True); 5: ShowMessage(SYS_Version); 6: ShowMessage(SYS_RootDir); 7: ShowMessage(ORA_Version); 実例 32

33 コールバック関数の登録 (VC++) DLL 側で登録するコールバック関数を RegisterCallback 手続き内で定義をします Visual NAVI 起動時に自動的にコールバック関数が登録される // コールバック関数の定義 typedef wchar_t* (*TWcharCharPointerFnct)(); // type Callback function TWcharCharPointerFnct SYS_Version; // Callback function TWcharCharPointerFnct SYS_RootDir; // Callback function : // コールバック関数の登録 extern "C" void CALLBACK RegisterCallback(int Index, void *Addr) { switch (Index) { case 1: SYS_Version = (TWcharCharPointerFnct)Addr; break; case 2: SYS_RootDir = (TWcharCharPointerFnct)Addr; break; : } } 33

34 コールバック関数の呼出 (VC++) Visual NAVI 側から DLL の OnMenuClick を呼び出すと DLL 側で処理が実される extern "C" void CALLBACK OnMenuClick(int Index) { switch (Index) { case 1: MessageBox(NULL, SYS_Version(), _T(" 確認 "), MB_OK); return; case 2: MessageBox(NULL, SYS_RootDir(), _T(" 確認 "), MB_OK); return; } } 実例 34

35 SQL の実次のソースコードは Oracle のデータディクショナリビューからユーザー覧を取得するものです ( 赤字がコールバック関数 ) function GetAllUsers(UserList: TStrings): Boolean; var SQL: TStrings; ErrMessage: PWideChar; begin Result := False; SQL := TStringList.Create; try // SQL 文の編集 SQL.Clear; SQL.Add('/* Visual NAVI */ SELECT'); SQL.Add(' DISTINCT USERNAME'); SQL.Add('FROM'); SQL.Add(' sys.all_users'); SQL.Add('ORDER BY'); SQL.Add(' USERNAME'); // SQL の実 if (SQL_Execute(PWideChar(SQL.Text), ErrMessage) = 0) then begin // Items をクリア UserList.Clear; // ユーザー名を UserList に溜め込む while not SQL_Eof do begin UserList.Add(SQL_Field(0)); SQL_Next; Result := True; end else IDE_OutputEvents(2, ' ユーザ覧取得 (SELECT)', ErrMessage); finally FreeAndNil(SQL); 35

36 Visual NAVI の SQL エディタを起動実する Visual NAVI 側から呼ばれた OnMenuClick 内でコールバック関数を実する procedure OnMenuClick(Index: Integer); stdcall; begin case Index of 1: ; : 3: IDE_CreateWindow(3, 'select * from tab', True); : 36

37 パイプを使ってメッセージを横取りする! パイプ (pipe) とは? あるプログラムの出を別のプログラムのに引き渡す機能 DB ツールにはコマンドラインで実されるものが多くツールが標準出するメッセージをインターセプト (intercept) します DLL (Action) DB ツール側標準標準出 37

38 デモ DLL 内で MDI 子フォームを生成するコールバック関数を使う VCL から FireMonkey(FMX) フォームを呼び出す Visual NAVI(Delphi2007) から XE7 の DLL を呼び出す 38

39 ご清聴ありがとうございました 39

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