喫茶XRAYトップページ

[スレッド全体
]

[12322] DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 07:37:53 Mr.XRAY
[DLL上の例外をコピーした文字列をFreeLibraryにアクセスとエラーになる]
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201809/18090005.txt

の関連ですが,taka さんが Lazarus でテストしたというので,
C++ で DLL を作成してテストしてみました.
DLL の作成には Visual C++ 2013 を使用しました.
Delphi では .dpr ファイルを 1 つ提供すれば,それをコンパイルして DLL が作成
できますが,VC++ ではそうはいかないので DLL を添付しています.
ランタイムライブラリもリンクしていますから,VC++ がインストールされていない
環境でもテスト可能です.以下は TestDll.cpp のコードです.

添付の TestDll.dll は y = 4; の例外発生なし,
TestDll_div0.dll は y = 0; の例外発生ありです.
 

#include "stdafx.h"

#ifdef _MANAGED
#pragma managed(push, off)
#endif

BOOL APIENTRY DllMain(HMODULE hModule,
        DWORD  ul_reason_for_call,
        LPVOID lpReserved
        )
{
        return TRUE;
}

EXPORT int TestFunc()
{
        int x;
        int y;

        x = 100;
        y = 0;
        return  x / y;
}

#ifdef _MANAGED
#pragma managed(pop)
#endif


DLL を使用する Delphi のテスト用コードです.
IDE から実行するとメモリアクセス違反の例外が発生しますが,
エラーの文字列は表示されます.
EXE 単独実行の場合は例外のダイアログは現れません.

動作確認は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro です.
Ansi 版 (非ユニコード版) の Delphi でコンパイルすると表示文字が化けます.

procedure TForm1.Button1Click(Sender: TObject);
var
  DLLExecute   : function : Integer; stdcall;
  ModuleHandle : HModule;
  TPExecute    : TFarProc;
  LInt         : Integer;
  LErrStr      : string;
begin
  Memo1.Lines.Clear;

  ModuleHandle := LoadLibrary('TestDll_div0.DLL');    // 0除算用DLLのロード
//  ModuleHandle := LoadLibrary('TestDll.DLL');
  if ModuleHandle <> 0 then
  begin
    TPExecute  := GetProcAddress(ModuleHandle, 'TestFunc');
    if (TPExecute <> nil) then
    begin
      @DLLExecute := TPExecute;
      try
        LInt := DLLExecute;
        Memo1.Lines.Add(IntToStr(LInt));
      except
        on E: Exception do
        begin
          LErrStr := PChar(E.Message);
        end;
      end;
    end;
    Memo1.Lines.Add(LErrStr);
    FreeLibrary(ModuleHandle);
    Memo1.Lines.Add(LErrStr);
  end;
end;


http://mrxray.on.coocan.jp/Delphi/zip/QandA_20180920_dllException.zip




[12324] Re:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 16:48:34 taka
▼ Mr.XRAYさん
>           LErrStr := PChar(E.Message);

PChar(E.Message);
だと
コンパイラの最適化方法に依存するので
LErrStr := E.Message;
などの代入後に
UniqueString(LErrStr);
をいれて確実に参照カウンタ1のユニークなアドレスを持つようにする必要があるとわかりました。

http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E6%96%87%E5%AD%97%E5%88%97%E5%9E%8B%EF%BC%88Delphi%EF%BC%89
文字列型(Delphi)
> 文字列が固有であることを保証するには、
> SetLength、SetString
> または UniqueString の各手続きを呼び出します。


LErrStr := E.Message;
UniqueString(LErrStr);



[12327] Re2:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 17:05:29 Mr.XRAY
▼ takaさん

> http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E6%96%87%E5%AD%97%E5%88%97%E5%9E%8B%EF%BC%88Delphi%EF%BC%89

恥ずかしながらこのページをまともに読んだことがありませんでした.
貴重なことが書いてありますね.


[12328] Re3:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 17:25:11 taka
▼ Mr.XRAYさん
> ▼ takaさん
>
> > http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E6%96%87%E5%AD%97%E5%88%97%E5%9E%8B%EF%BC%88Delphi%EF%BC%89
>
> 恥ずかしながらこのページをまともに読んだことがありませんでした.
> 貴重なことが書いてありますね.


いまUnicodeでテストすると

UniqueString(LErrStr);
でアクセス違反になってしまいました。
うーん。。。

string型にはつかえないみたい

Win32
 procedure UniqueString(var str: string); overload;
 procedure UniqueString(var str: WideString); overload;

Unicode
 procedure UniqueString(var str: UnicodeString); overload;
 procedure UniqueString(var str: _WideStr);
 procedure UniqueString(var str: _AnsiStr);

対象の型が違うみたいですね

StrUtils.LeftStr(E.Message, Length(E.Message));
のほうがいいのかな・・・


[12332] Re4:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 17:41:29 Mr.XRAY
▼ takaさん

> UniqueString(LErrStr);
> でアクセス違反になってしまいました。


このアクセス違反のダイアログの表示は 1 回だけのようです.
EXE を直接起動すると表示されませんでした.

デバッガで追跡したわけではないのですか,
IDE から実行すると DLL がメモリにロードされます
すると,デバッガの機能が働いて,DLL 側の (メモリ上の) エラーを検出するのでは
と思ってします.この DLL 側のアクセス違反は try - except で捕捉できないのではと.


[12333] Re5:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 17:48:38 taka
▼ Mr.XRAYさん
> ▼ takaさん
>
> > UniqueString(LErrStr);
> > でアクセス違反になってしまいました。
>
> このアクセス違反のダイアログの表示は 1 回だけのようです.
> EXE を直接起動すると表示されませんでした.
>
> デバッガで追跡したわけではないのですか,
> IDE から実行すると DLL がメモリにロードされます
> すると,デバッガの機能が働いて,DLL 側の (メモリ上の) エラーを検出するのでは
> と思ってします.この DLL 側のアクセス違反は try - except で捕捉できないのではと.


dll2個と関数2個の4回チェックしていたので
コードを1回チェックに修正したらでなくなりました。
落ちていた原因がUniqueStringではなかったみたいです。
違うところで落ちてたみたいです。


     if (PChar(LErrStr) = PChar(E.Message)) then
         Memo1.Lines.Add(Format('%d %d', [Integer(PChar(LErrStr)),Integer(PChar(E.Message))]));
     UniqueString(LErrStr);

    Memo1.Lines.Add(Format('%d %s', [Integer(PChar(LErrStr)), LErrStr]));

を別々のところに差し込むとアドレスが変更されたのがわかります。


[12336] Re6:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 17:59:19 SO
▼ takaさん

UniqueStringって、某掲示板での「Copy on write」を強制させるやつなんですね。


[12338] Re7:DLL内の関数で発生した例外の捕捉返信 削除
2018/9/22 (土) 18:12:13 taka
▼ SOさん
> ▼ takaさん
>
> UniqueStringって、某掲示板での「Copy on write」を強制させるやつなんですね。


私も さっきまで この関数の存在をしりませんでした。(笑

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82