[delphi-users:2296] ＤＬＬ内での例外再生成で実行時エラー（XE2、Win64）

[高木太郎]

　こんばんは、イマジオムの高木です。　

　Delphi XE2 で、Win64 ネイティブのＤＬＬを作っている時に
不可思議な現象に遭遇したので報告いたします。　同様の現象に
出会った方はいらっしゃいませんか？

■現象

１．ＤＬＬを作り、その中に次の二つのエクスポート手続きを用意。

procedure ExportA; stdcall;
begin
Abort;
end;
　　
procedure ExportB; stdcall;
begin
try
Abort;
except
raise;
end;
end;

２．Delphi XE2 の Win64 Release モードでＤＬＬをコンパイル。

３．Windows 7 64-bit Edition の動作環境を用意し、適当なホスト
　　アプリケーション（もちろん６４ビット）にＤＬＬをリンク
　　させて、それぞれのエクスポート手続きを呼び出してみる。

すると ExportA では、ホストアプリケーション側にトラップ可能な
例外が生じるのに、ExportB では Runtime error 216（アクセス
違反）が生じ、ホストアプリケーションが強制終了されます。
raise; の時点で違反が生じるようで、これを try-finally 文で
くるんでも、finally 節まで処理が行きません。

　もしかすると私の環境や、プログラムの作りに特有の現象なのかも
しれませんが（時間を見つけて最小コードで試そうと思います)、
それにしても例外を except でトラップして再生成させただけで
動作が異なるというのは不可思議です。
――――――――――――――――――――――――――――――――――――
株式会社イマジオム 代表取締役 高木太郎
〒３１６－００２４ 茨城県 日立市 水木町 １－１１－１０
電話：０２９４－２８－０１４７
ファクシミリ：０２９４－２８－０１４８
電子メール：tarou_...@imageom.co.jp
ホームページ：http://www.imageom.co.jp/

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
戦国時代の武将達とともに天下統一を目指そう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=h1FPE
-----------------------------------------------------[freeml by GMO]--

[高木太郎]

　こんにちは、イマジオムの高木です。　

　昨夜報告した現象について、最小コードでも再現が確認されましたので、
報告いたします。　テストに使用したＤＬＬとアプリケーションのソース
コードを末尾に掲載いたします。　これらを Delphi XE2 update 1 で
ビルドし、同じディレクトリに置きます。　アプリケーションを起動して
TestAButton や TestBButton を押すと、次のようになります。

　　━━━━━━━━┯━━━━━━━┯━━━━━━┯━━━━━━
　　コンパイル　　　│動作環境　　　│テストＡ　　│テストＢ
　　────────┼───────┼──────┼──────
　　Win32 　　　　　│Windows XP　　│正常　　　　│正常
　　Release モード　│３２ビット　　│※１　　　　│※１
　　　　　　　　　　├───────┼──────┼──────
　　　　　　　　　　│Windows 7 　　│正常　　　　│正常
　　　　　　　　　　│６４ビット　　│※１　　　　│※１
　　────────┼───────┼──────┼──────
　　Win64 　　　　　│Windows 7 　　│正常　　　　│異常
　　Release モード　│６４ビット　　│※１　　　　│※２
　　━━━━━━━━┷━━━━━━━┷━━━━━━┷━━━━━━
　　※１：「Test*ButtonClick で例外」と表示されます。
　　※２：Runtime error 216（アクセス違反）が生じ、アプリケーションが
　　　　　強制終了されます。

Delphi のバグかと思いますので、ＱＣに上げておきます。

(以下、テストプログラムのソースコード）
――――――――――――――――――――――――――――――――――――
■ＤＬＬのソースコード

library TestDLL;

uses SysUtils;

procedure ExportA; stdcall;
begin
Abort;
end;

procedure ExportB; stdcall;
begin
try
Abort;
except
raise;
end;
end;

exports ExportA name 'ExportA',
ExportB name 'ExportB';

begin
end.

■アプリケーションのソースコード

unit Main;

interface

uses Forms,Windows,Classes,Controls,StdCtrls;

type TTestAProc=procedure; stdcall;
TTestBProc=procedure; stdcall;

type TMainForm=
class(TForm)
TestAButton:TButton;
TestBButton:TButton;
procedure MainFormCreate(Sender:TObject);
procedure MainFormDestroy(Sender:TObject);
procedure TestAButtonClick(Sender:TObject);
procedure TestBButtonClick(Sender:TObject);
private
DLLHandle:THandle;
TestAProc:TTestAProc;
TestBProc:TTestBProc;
end;

var MainForm:TMainForm;

implementation

{$R *.DFm}

procedure TMainForm.MainFormCreate;
begin
DLLHandle:=LoadLibrary('TestDLL.DLL');
TestAProc:=GetProcAddress(DLLHandle,'ExportA');
TestBProc:=GetProcAddress(DLLHandle,'ExportB');
end;

procedure TMainForm.MainFormDestroy;
begin
FreeLibrary(DLLHandle);
end;

procedure TMainForm.TestAButtonClick;
begin
try
TestAProc;
except
WriteLn('TestAButtonClick で例外');
end;
end;

procedure TMainForm.TestBButtonClick;
begin
try
TestBProc;
except
WriteLn('TestBButtonClick で例外');
end;
end;

end.

――――――――――――――――――――――――――――――――――――
株式会社イマジオム 代表取締役 高木太郎
〒３１６－００２４ 茨城県 日立市 水木町 １－１１－１０
電話：０２９４－２８－０１４７
ファクシミリ：０２９４－２８－０１４８
電子メール：tarou_...@imageom.co.jp
ホームページ：http://www.imageom.co.jp/

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
「アルテイル」オンラインカードゲームで暇つぶし！
http://ad.freeml.com/cgi-bin/sa.cgi?id=h1JkU

[高木太郎]

　こんにちは、イマジオムの高木です。　たびたびで失礼いたします。

> 　昨夜報告した現象について、最小コードでも再現が確認されましたので、
> 報告いたします。　テストに使用したＤＬＬとアプリケーションのソース
> コードを末尾に掲載いたします。　これらを Delphi XE2 update 1 で
> ビルドし、同じディレクトリに置きます。　アプリケーションを起動して
> TestAButton や TestBButton を押すと、次のようになります。
>
> 　　━━━━━━━━┯━━━━━━━┯━━━━━━┯━━━━━━
> 　　コンパイル　　　│動作環境　　　│テストＡ　　│テストＢ
> 　　────────┼───────┼──────┼──────
> 　　Win32 　　　　　│Windows XP　　│正常　　　　│正常
> 　　Release モード　│３２ビット　　│※１　　　　│※１
> 　　　　　　　　　　├───────┼──────┼──────
> 　　　　　　　　　　│Windows 7 　　│正常　　　　│正常
> 　　　　　　　　　　│６４ビット　　│※１　　　　│※１
> 　　────────┼───────┼──────┼──────
> 　　Win64 　　　　　│Windows 7 　　│正常　　　　│異常
> 　　Release モード　│６４ビット　　│※１　　　　│※２
> 　　━━━━━━━━┷━━━━━━━┷━━━━━━┷━━━━━━
> 　　※１：「Test*ButtonClick で例外」と表示されます。
> 　　※２：Runtime error 216（アクセス違反）が生じ、アプリケーションが
> 　　　　　強制終了されます。
>
> Delphi のバグかと思いますので、ＱＣに上げておきます。

　本件、サンプルプロジェクトつきで QualityCentral に上げておきました。

　　http://qc.embarcadero.com/wc/qcmain.aspx?d=100562

６４ビットＤＬＬの中で例外の再生成ができないのは非常に不便です。
早期に対処していただきたいので、皆さまの Vote をお願いいたします。

――――――――――――――――――――――――――――――――――――
株式会社イマジオム 代表取締役 高木太郎
〒３１６－００２４ 茨城県 日立市 水木町 １－１１－１０
電話：０２９４－２８－０１４７
ファクシミリ：０２９４－２８－０１４８
電子メール：tarou_...@imageom.co.jp
ホームページ：http://www.imageom.co.jp/

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=h1MUC