喫茶XRAYトップページ

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

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

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);


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

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

おおっ〜 !!
知りませんでした．いやはや．ありがとうございます．
早速コード修正して再 UP します．

[12329] UniqueString返信　削除
2018/9/22 (土) 17:25:21 Mr.XRAY
> UniqueString(LErrStr);

なんでもやってみると，ということでやってみました．
使用した DLL は以下の質問者が提示したコードです．

[DLL上の例外をコピーした文字列をFreeLibraryにアクセスとエラーになる]
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201809/18090005.txt

DLL を使用する Delphi のコードです．
UniqueString を使用しない場合です．

procedure TForm1.Button1Click(Sender: TObject);
var
  DLLExecute   : function : Integer; stdcall;
  ModuleHandle : HModule;
  TPExecute    : TFarProc;
  S            : string;
  LInt         : Integer;
begin
    ModuleHandle := LoadLibrary('DUMMY.DLL');
    if ModuleHandle <> 0 then
    begin
      TPExecute  := GetProcAddress(ModuleHandle, 'Execute');
      if (TPExecute <> nil) then
      begin
        @DLLExecute := TPExecute;
        try
          LInt := DLLExecute;
        except
          on E: Exception do
          begin
            S := E.Message;
          end;
        end;
      end;
      Memo1.Lines.Add(S);
      // 以下のコードが実行されないので，メモリリークが発生する
      FreeLibrary(ModuleHandle);
      Memo1.Lines.Add(S);
    end;
end;

デバッガ例外通知で [継続] をクリックすると何回かデバッガ例外通知となります．
最後に下図のように表示されます．
動作確認は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL-32 です．

[12330] Re:UniqueString返信　削除
2018/9/22 (土) 17:30:35 Mr.XRAY
続いて UniqueString を使用する場合です．

procedure TForm1.Button1Click(Sender: TObject);
var
  DLLExecute   : function : Integer; stdcall;
  ModuleHandle : HModule;
  TPExecute    : TFarProc;
  S            : string;
  LInt         : Integer;
begin
    ModuleHandle := LoadLibrary('DUMMY.DLL');
    if ModuleHandle <> 0 then
    begin
      TPExecute  := GetProcAddress(ModuleHandle, 'Execute');
      if (TPExecute <> nil) then
      begin
        @DLLExecute := TPExecute;
        try
          LInt := DLLExecute;
        except
          on E: Exception do
          begin
            S := E.Message;
            UniqueString(S);
          end;
        end;
      end;
      Memo1.Lines.Add(S);
      // 以下が実行されるのでメモリリークは発生しない
      FreeLibrary(ModuleHandle);
      Memo1.Lines.Add(S);
    end;
end;

デバッガ例外通知で [継続] をクリックすると下図のように表示されます．
例外通知は 1 回だけです．
EXE の直接起動では例外通知は表示されません．
動作確認は Windows 7 U64(SP1) + DelphiXE5(UP2) Pro VCL-32 です．

[12331] 一連のテストの注意返信　削除
2018/9/22 (土) 17:33:37 Mr.XRAY
テストプロジェクトをダウンロード可能にして，更にテストをしていますが，
そのようなことをしてもいいということではありません．
あくまでも，興味としてのテストです．

[12342] Re:一連のテストの注意返信　削除
2018/9/23 (日) 11:40:18 Mr.XRAY
> そのようなことをしてもいいということではありません．
> あくまでも，興味としてのテストです．

もし，某掲示板の質問者が作成した DLL を使用しなければならなくなった時，
その DLL 内での例外を捕捉できるか ?
という課題とも言えます．

[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]));

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

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

> コードを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]));
>
> を別々のところに差し込むとアドレスが変更されたのがわかります。

なるほど，こういうコードにすればいいですね．

[12340] Re7:DLL内の関数で発生した例外の捕捉返信　削除
2018/9/22 (土) 18:21:43 taka
▼ Mr.XRAYさん
> ▼ takaさん
>
> > コードを1回チェックに修正したらでなくなりました。
> > 落ちていた原因がUniqueStringではなかったみたいです。
> > 違うところで落ちてたみたいです。
>

エラーになった原因は、　win32版のDLLを　unicodeのexeに読み込んだため
例外時の内部的な文字列処理関係で　アクセス違反になったようです。

いまのところ
 E.Messageをローカル変数代入で
  0による除算 では 読み込み違反は発生しない。
  StrToInt('NG')では、読み込み違反が発生する。
という現象があるのがわかっているので
システム関係のエラーはグローバル的な文字列定数から引っ張ってきているのかな？
と思って調べていますが わかりません。


[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