喫茶XRAY [Mr.XRAY掲示板]

[DLL にて except 使用]
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201806/18060002.txt

abc 2018/06/14(木) 05:58:32

のコードを解読すると以下のようなことのようです．
何とも言えない，面白いのか，変なのか，摩訶不思議なと言うか... (^^:

DLL を使用する側のプロジェクトのコード

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

procedure FormProcA(AText: PChar);stdcall;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure DLL_funcA(AProc: TFarProc); stdcall; external 'Test_DLL.dll';

//-----------------------------------------------------------------------------
//  DLL内の関数を実行
//  引数はこのユニット内で定義している関数
//  つまり，DLLからこのフォームの関数を実行している
//-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  DLL_funcA(@FormProcA);
end;

//-----------------------------------------------------------------------------
//  この関数をDLLから実行する
//-----------------------------------------------------------------------------
procedure FormProcA(AText: PChar);
begin
  Form1.Memo1.Lines.Add(AText);
end;

end.

DLL のコード

library Test_DLL;

uses
  Windows;

type
  TMyFuncType =  procedure (AText: PChar);stdcall;

var
  FormProcA : TMyFuncType;

//-----------------------------------------------------------------------------
procedure DLL_funcA(AProc: TFarProc); stdcall;
begin
  @FormProcA := AProc;
  FormProcA('*** ABC ***');
end;

//-----------------------------------------------------------------------------
exports
  DLL_funcA;

end.

実行結果です．
実行環境は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro です．
質問された方が書いている LogWriteProc2 は無理です．
何故なら関数内関数になっています．
もちろん，expect は全く関係ありませんです．
もちろん，バグでもありません．

これが朝起きて最初の作業．おそまつ ! (笑)