21st Embarcadero Developer Camp

Size: px

Start display at page:

Download "21st Embarcadero Developer Camp"

ぜんぺいむらかわ
5 years ago
Views:

1 17 Th Developer Camp T2 テクニカルセッション実践!Delphi デバッグテクニック株式会社シリアルゲームズ取締役細川淳 1

2 17 Th Developer Camp 1 IDE 統合デバッガ 2

3 Delphi の IDE 統合デバッガ IDE 統合デバッガについて表示デバッグで表示される項目ごとに見ていきます 3

4 17 Th Developer Camp 1 ブレークポイント一覧 4

5 ブレークポイント一覧ブレークポイント一覧では一覧以外にもプロパティや有効無効データブレークポイントアドレスで設定などなど豊富な機能が利用できますここでは特にプロパティとデータブレークポイントアドレスで設定を見ていきます 5

6 ブレークポイント一覧ープロパティ ( 条件 ) ブレーク条件とパスカウントプロパティを開くとブレーク条件とパスカウントという項目がありますブレーク条件 if 文の条件式と同じように条件を書けますたとえば A <> 0 などのように条件を書けますパスカウントそのブレークポイントを何回通った時に停止するかを指定できますたとえばパスカウントに 3 を指定すると 3 回目にブレークポイントを通った時に停止しますこの 2 つの条件を上手く使うとデバッグが捗ります 6

7 ブレークポイント一覧ー複数の条件ブレークポイントで特筆すべきはもう1つ同じ行に違うプロパティを持つ複数のブレークポイントを持てます 7

これはブレークポイント一覧ウィンドウからプロパティを表示した時にしか現れないチェックです

8 ブレークポイント一覧ー複数の条件複数の条件を持たせるには既存のブレークポイントを残すを利用しますこれによって違う条件を持った複数のブレークポイントを設定できます注意したいのはこれはブレークポイント一覧ウィンドウからプロパティを表示した時にしか現れないチェックですブレークポイント一覧から開いたプロパティブレークポイントのコンテキストメニューから開いたプロパティ 8

9 ブレークポイント一覧ーブレークポイントの種類ブレークポイント一覧では次の 3 つのブレークポイントを設定できます名前概要設定可能な状態ソースブレークポイントソースコード上の任意の行に設定できるブレークポイントです通常時実行時アドレスブレークポイントアドレスに対して設定できるブレークポイントです実行時データブレークポイント変数などのデータが変更される時にブレークするブレークポイントです実行時アドレスブレークポイントアドレスブレークポイントはユーザーにプログラムを納品した後に威力を発揮します例外発生ウィンドウにはアドレスが出ていますユーザーから冷害発生時のアドレスを聞いてそこで停止するようにすれば例外の原因を追うことができますデータブレークポイントデータブレークポイントはデータ ( 変数 ) の変更時に停止しますそのためどこでデータが変更されたのか? を追うときに役に立ちます 9

10 ブレークポイント一覧ーその他のブレークポイントモジュールロードブレークポイントブレークポイント一覧からは設定できず実行ブレークポイントの追加モジュールロードブレークポイントから設定できます DLL など他のモジュールを使っている場合にモジュールがロードされると停止できます 10

11 17 Th Developer Camp ブレークポイントのデモンストレーション 11

12 17 Th Developer Camp 2 呼び出し履歴とローカル変数 12

13 呼び出し履歴呼び出し履歴はいわゆるスタックトレースですブレークポイントで止まるまでに呼び出されたルートを記録しています呼び出し 13

14 呼び出し履歴ーローカル変数ローカル変数ウィンドウは呼び出し履歴と密接に関連しています呼び出し履歴で呼び出された単位ごとにローカル変数を表示できます 14

15 呼び出し履歴ーローカル変数 15

16 17 Th Developer Camp 呼び出し履歴のデモンストレーション 16

17 17 Th Developer Camp 3 スレッドの状態とモジュール 17

18 スレッドの状態現在動いているスレッドの状態を示していますカレントスレッドを変更したり実行させないように凍結したりといった操作ができますまたブレークポイントで特定のスレッドでのみブレークさせたい場合はこのウィンドウで表示されているスレッドIDを指定できます TThread のインスタンスなど同じコードが複数のスレッドから呼ばれるときに便利です 18

19 モジュール現在のプロセスにロードされているモジュールの一覧を取得できますここでモジュールロードブレークポイントを置くこともできますまたエントリポイントの逆アセンブル表示も可能です 19

20 17 Th Developer Camp スレッドの状態とモジュールのデモンストレーション 20

21 17 Th Developer Camp 4 イベントログ 21

22 イベントログイベントログは気軽に使えるデバッグツールです OutputDebugString を使っていわゆる printf デバッグができますブレークポイントの停止時にスタックトレースを出力するこができます Windows メッセージを出力できます 22

文字列をデバッガに渡します Delphi では当然統合デバッガに文字列が渡ります

23 イベントログー OutputDebugString OutputDebugString は Win32 API です呼び出したプロセスにアタッチされているデバッガがあるときに文字列をデバッガに渡します Delphi では当然統合デバッガに文字列が渡ります統合デバッガは受け取った文字列をイベントログに出力します OutputDebugString を使って出力したログ 23

24 イベントログーメッセージイベントログには Application が受け取ったメッセージを出力する機能があります 24

25 イベントログーメッセージ実際にメッセージを表示させるとこんな感じになります 25

26 17 Th Developer Camp イベントログのデモンストレーション 26

27 17 Th Developer Camp 5 言語で用意されるデバッグ機能 27

28 デバッグの容易さモダンな言語ではデバッグ作業も重視されていますたとえば Java では VM 上での動作となるためほぼ全ての例外をキャッチできますキャッチした例外オブジェクトから詳細を知ることでデバッグに生かすことができますネイティブ言語から考えると Null ポインタへのアクセスを例外としてキャッチできかつその後続けて実行できるなんて驚異ですもちろん Delphi 言語も例外なくデバッグのための機能が用意されています 28

29 Assert の使用 Assert は System ネームスペースに用意されているグローバルな手続きです実態はコンパイラマジックによって System._Assert へ変換される特殊な手続きです Assert を使うと任意の条件で例外 (EAssertionFailed) を発生させます Assert の第一引数が false の時 EAssersionFailed 発生例えば Assert(Sender is TButton); とすると Sender が TButton では無かったとき例外を発生させます $ASSERTIONS ON/OFF ( もしくは $C +/-) 指令を使ってコンパイラに直接 Assert のコード生成を抑制させることができます 29

30 Assert の使用 Assert の内部を見ると AssertionFailed 発生時に AssertErrorProc という手続きを呼んでいます AssertErrorProc はグローバルな変数です AssertErrorProc の中身を自分のハンドラに変えると詳細な情報を得られます 30

31 Assert の使用ー AssertErrorProc procedure AssertErrorHandler( const imsg, ifilename: String; const ilineno: Integer; const iaddress: Pointer); var Err: String; begin Err := Format( '%s (%s line %x)', [imsg, ifilename, ilineno, Integer(iAddress)]); ShowMessage(Err); end; procedure TForm1.FormCreate(Sender: TObject); begin AssertErrorProc = AssertErrorHandler; Assert(false); end; 31

32 Assert の使用ートリック AssertErrorProc を使うとエラーが発生したユニット行番号アドレスなどが判りますこれを利用して任意の例外でユニットや大まかな行番号を取得できます 32

33 Assert の使用ー AssertErrorProc procedure AssertErrorHandler( const imsg, ifilename: String; const ilineno: Integer; const iaddress: Pointer); begin 省略 end; procedure TForm1.FormCreate(Sender: TObject); var SL: TStringList; begin AssertErrorProc = AssertErrorHandler; SL := nil; try SL.Add('TEST'); except Assert(false); // except 内で Assert を呼び AssertErrorProc を実行させる end; end; 33

34 17 Th Developer Camp Assert のデモンストレーション 34

35 TApplication.OnException TApplication.OnException というイベントハンドラがありますこれは例外が発生したときに呼ばれ例外処理を自前の処理に置き換えることができますデフォルトでは例外ダイアログが表示されますがそれをログファイルに出力するように書き換える事もできます 35

36 System.NoErrMsg NoErrMsg についてついでに紹介しますこのグローバル変数を True に設定するとエラーダイアログが出ません何らかの理由でエラーダイアログを表示したくない場合に TApplication.OnException とともに設定しておくと良いかもしれません 36

37 その他にも TVirtualMethodInterceptor を使うとメソッド呼び出しの後に処理を実行できます Exception.StackTrace プロパティには簡易な呼び出し履歴が入っています Exception.GetExceptionStackInfoProc や Exception.GetStackInfoStringProc を置き換えたり Exception.RaiseOuterException を利用するとサードパーティー製 ( 自前 ) の例外処理を追加できます class helper を使えば任意のクラスのデータを公開することもできます 37

38 17 Th Developer Camp 6 付録 : 外部ツール 38

39 17 Th Developer Camp 7 EventViewer (System Log) 39

40 EventViewer サービスプログラムやサーバープログラムなど GUI を持たないプログラムではログが重要です自前のログシステムでログを吐くことももちろんできますが Windows の SystemLog を使うこともできます Windows の SystemLog はイベントビューアで見ることができます 40

41 EventViewer ー書き込む ( ソース抜粋 ) procedure TEventLog.Add ( const ilogtype: TLogType; const icategory, ieventid: Integer; const imsg: String; const idatalength: Integer; const idata: Pointer); var Ptr: Pointer; begin Ptr := PChar(iMsg); FHandle := RegisterEventSource(nil, PChar(FName)); try ReportEvent( FHandle, Ord(iLogType), // Event Type 0, // Category 0, // Event Id nil, // User Sid 1, // 書き込む文字列の数 idatalength, // // 書き込む文字列 ( ポインタのポインタ ) idata); // バイナリデータ finally DeregisterEventSource(FHandle); end; end; 41

42 EventViewer ー書き込んだ情報の閲覧 42

43 17 Th Developer Camp EventViewer のデモンストレーション 43

44 17 Th Developer Camp 8 EurekaLog 44

45 EurekaLog EurekaLog はパワフルなデバッグ用ツールです全ての例外無限ループメモリの未解放などを検出できますしかも! 検出した例外はスタックトレーススクリーンショット逆アセンブル結果などの情報付きで実行先から送信可能です入手先 : シングルデベロッパーライセンスで 99ドル 45

46 EurekaLog エラーが発生するとエラーダイアログが表示されますが EurekaLog を組み込んだ実行ファイルでは EurekaLog のエラーダイアログが表示されますちなみにちゃんと設定すればこのダイアログに出る文言はローカライズできますクライアントで添付として送ったり EurekaLog が搭載する SMTP サーバを介して送ったり BugZilla 形式のウェブにポストしたりと色々な形式でバグリポートを送信できます 46

47 EurekaLog EurekaLog が送ってきたレポートは専用のビューアでこんな感じに表示されます 47

48 17 Th Developer Camp EurekaLog のデモンストレーション 48

49 17 Th Developer Camp Q & A 49

21st Embarcadero Developer Camp

21st Embarcadero Developer Camp プレゼンテーション資料 Day 1 第 21 回エンバカデロデベロッパーキャンプ 2012 年 3 月 9 日 ~10 日クロスウェーブ船橋プログラム 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