| [11931] DLL内の関数とフォームの関数の実行 | 返信 削除 |
| 2018/6/14 (木) 07:41:42 Mr.XRAY |
|
[DLL にて except 使用] 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 は全く関係ありませんです． もちろん，バグでもありません． これが朝起きて最初の作業．おそまつ ! (笑)  |