DLL与EXE之间的通讯调用 以及 回调函数的线程执行空间

时间:2021-09-14 01:57:35

dll 与 exe 之间的通讯方式有很多种, 本文采用回调函数的方法实现, 本文也将研究多线程,多模块的情况下,回调函数所在的线程, 啥也不说了,先附上代码:

下面的是dll模块的的, dll的工程文件:

  1. library DllAPP;
  2. uses
  3. windows,
  4. SysUtils,
  5. Classes,
  6. DllClass in 'DllClass.pas';
  7. {$R *.res}
  8. var
  9. GDllServer: TDllServer;
  10. function AddServer(ADispatchFunc: TDispatchFunc): HRESULT; stdcall;
  11. begin
  12. Result := ERROR_INVALID_FUNCTION;
  13. if not Assigned(GDllServer) then
  14. Exit;
  15. GDllServer.AddServer(ADispatchFunc);
  16. Result := ERROR_SUCCESS;
  17. end;
  18. function DataDispatch(ACommand: Integer):HRESULT; stdcall;
  19. begin
  20. Result := ERROR_INVALID_FUNCTION;
  21. GDllServer.DataDispatch(ACommand);
  22. Result := 0;
  23. end;
  24. function DLLInitialize: HRESULT;
  25. begin
  26. Result := 1;
  27. GDllServer := TDllServer.create;
  28. Result := ERROR_SUCCESS;
  29. end;
  30. function  DllFinalize: HRESULT;
  31. begin
  32. Result := ERROR_INVALID_FUNCTION;
  33. GDllServer.Free;
  34. GDllServer := nil;
  35. Result := ERROR_SUCCESS;
  36. end;
  37. exports
  38. AddServer,
  39. DataDispatch,
  40. DLLInitialize,
  41. DllFinalize;
  42. begin
  43. end.

dll中的类型文件

  1. unit DllClass;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls;
  6. type
  7. TDispatchFunc = function(ACommand: Integer): HRESULT;stdcall;
  8. type
  9. TDLLSERVER = CLAss;
  10. TDLLThread = class(TThread)
  11. private
  12. FCount: Integer;
  13. FDllServer: TDllServer;
  14. public
  15. procedure Execute; override;
  16. public
  17. constructor create;
  18. end;
  19. TDllServer = class
  20. private
  21. FDispatchFunc: TDispatchFunc;
  22. FDllThread: TDLLThread;
  23. public
  24. procedure AddServer(ADispatchFunc: TDispatchFunc);
  25. procedure DataDispatch(ACommand: Integer);
  26. public
  27. constructor Create;
  28. destructor Destroy;
  29. end;
  30. implementation
  31. { TDllServer }
  32. ///保存exe的回调函数指针
  33. procedure TDllServer.AddServer(ADispatchFunc: TDispatchFunc);
  34. begin
  35. FDispatchFunc := ADispatchFunc;
  36. end;
  37. constructor TDllServer.create;
  38. var
  39. LThreadID: Cardinal;
  40. begin
  41. ///
  42. LThreadID := GetCurrentThreadid;
  43. ShowMessage('DLL,create:'+IntToStr(LThreadID));
  44. FDllThread := TDLLThread.create;
  45. FDllThread.FDllServer := Self;
  46. FDllThread.Resume;
  47. end;
  48. ///DLL接受exe传过来的指令, dll留给exe的调用借口
  49. procedure TDllServer.DataDispatch(ACommand: Integer);
  50. var
  51. LThreadID: Cardinal;
  52. begin
  53. if not Assigned(FDispatchFunc) then
  54. Exit;
  55. FDispatchFunc(ACommand);
  56. LThreadID := GetCurrentThreadid;
  57. ShowMessage('DLL,DateDispatch:'+IntToStr(LThreadID));
  58. end;
  59. destructor TDllServer.Destroy;
  60. begin
  61. ////
  62. end;
  63. { TDLLThread }
  64. constructor TDLLThread.create;
  65. var
  66. LThreadID: Cardinal;
  67. begin
  68. FCount := 0;
  69. inherited create(True);
  70. end;
  71. //这个函数的目的就是检验不同模块下的不同线程下,回调函数的执行线程
  72. procedure TDLLThread.Execute;
  73. var
  74. LThreadID: Cardinal;
  75. begin
  76. inherited;
  77. while not Terminated do
  78. begin
  79. Inc(FCount);
  80. if FCount = 2  then
  81. begin
  82. LThreadID := GetCurrentThreadid;
  83. ShowMessage('DLL,Thread--'+IntToStr(LThreadID));
  84. end;
  85. if FCount = 5 then
  86. begin
  87. if assigned(FDllServer) then
  88. begin
  89. FDllServer.FDispatchFunc(2);
  90. end;
  91. end;
  92. Sleep(1000);
  93. end;
  94. end;
  95. end.

exe的文件

  1. unit ExeClass;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, StdCtrls;
  6. type
  7. TDispatchFunc = function (ACommand: Integer): HRESULT;stdcall;
  8. TServerFunc = function (ADispatchFunc: TDispatchFunc): HRESULT;stdcall;
  9. TProc = function: HRESULT;
  10. type
  11. TForm2 = class(TForm)
  12. Button1: TButton;
  13. Memo1: TMemo;
  14. procedure FormDestroy(Sender: TObject);
  15. procedure Button1Click(Sender: TObject);
  16. procedure FormCreate(Sender: TObject);
  17. private
  18. { Private declarations }
  19. FServerDispatch: TServerFunc;    ///exe--->dll
  20. FDataDispatch: TDispatchFunc;    ///EXE--->DLL
  21. FDllInitialize: TProc;
  22. FDllFinalize: TProc;
  23. public
  24. { Public declarations }
  25. end;
  26. var
  27. Form2: TForm2;
  28. GHandleLibrary: THandle;
  29. GCount: Integer;
  30. implementation
  31. {$R *.dfm}
  32. ///DLL--->EXE,留给dll调用的回调函数
  33. function DataDispatch(ACommand: Integer): HRESULT; stdcall;
  34. var
  35. LThreadID: Cardinal;
  36. begin
  37. LThreadID := GetCurrentThreadid;
  38. ShowMessage('EXE:'+IntToStr(LThreadID));
  39. end;
  40. procedure TForm2.Button1Click(Sender: TObject);
  41. begin
  42. Inc(GCount);
  43. FDataDispatch(GCount);
  44. end;
  45. procedure TForm2.FormDestroy(Sender: TObject);
  46. begin
  47. FDllFinalize;
  48. FServerDispatch := nil;
  49. FDataDispatch := nil;
  50. FDllInitialize := nil;
  51. FDllFinalize := nil;
  52. FreeLibrary(GHandleLibrary);
  53. end;
  54. procedure TForm2.FormCreate(Sender: TObject);
  55. var
  56. LThreadID: Cardinal;
  57. begin
  58. GHandleLibrary := LoadLibrary(PChar('DLLAPP.dll'));
  59. @FDllInitialize := GetProcAddress(GHandleLibrary, 'DLLInitialize');
  60. @FDllFinalize := GetProcAddress(GHandleLibrary, 'DllFinalize');
  61. @FServerDispatch := GetProcAddress(GHandleLibrary, 'AddServer');
  62. @FDataDispatch := GetProcAddress(GHandleLibrary,'DataDispatch');
  63. FDllInitialize;
  64. FServerDispatch(DataDispatch);
  65. LThreadID := GetCurrentThreadid;
  66. Memo1.Lines.Add(IntToStr(LThreadID));
  67. end;
  68. end.

1,简单实现的dll与exe之间的通讯, 其实就是利用了dll的导出函数, 先想dll传递一个回调函数的地址,供dll面向exe的通讯。 exe面向dll 的通讯直接执行dll导出函数即可

2, 本文是最基本的实现,当然其中的回调函数,以及dll的处理函数,可以在数据包的级别上实现, 即: 定义不同数据包,根据命令执行不同的函数, 这样只要导出一个函数,保留一个回调函数 就可以实现大量的功能

3, 关于回调函数的线程执行空间,取决于调用者所在的线程, 比如dll线程中回调exe的函数, 则回调函数是执行在该dll线程。 如果是主线程执行回调,则在主线程。 上述代码GDLLclass的创建过程是导出函数,所以GDLLclass的主线程就是exe的主线程,他们在一个线程空间

http://blog.csdn.net/procedure1984/article/details/3985127