delphi DLL开发模式,共享全局变量问题

COMPUTERZZZ 2012-03-19 10:27:26

delphi DLL开发模式,共享全局变量问题，我把TDATAMODULE 写在一个DLL中，还写了一个全局文件global.pas,定义了一个
ADOConn:TADOConnection 在TDATAMOUDLE　的CREATE时把连接赋线ADOCOnn这个全局变量,其它的DLL就可以共用了.应该如何共享了

...全文

4103 56 打赏收藏转发到动态举报

写回复

用AI写文章

56 条回复

切换为时间正序

请发表友善的回复…

发表回复

s11ss 2012-07-16

打赏
举报

[Quote=引用 55 楼的回复:]
1、dll与调用程序之间是二个线程，环境不同。因而不共享数据，全局变量不通用。
2、解决办法：
（1）内在映射；
（2）读取XML文件办法；
（3）消息传递。
总之，比较复杂。
[/Quote]
dll与调用程序之间是在同一个线程，除非dll内创建了线程。
知道进程的堆吗，fish? 即便是二个线程，也可以通过堆共享数据！

lyhoo163 2012-07-16

打赏
举报

1、dll与调用程序之间是二个线程，环境不同。因而不共享数据，全局变量不通用。
2、解决办法：
（1）内在映射；
（2）读取XML文件办法；
（3）消息传递。
总之，比较复杂。

s11ss 2012-07-14

打赏
举报

[Quote=引用 52 楼的回复:]
引用 41 楼的回复:
LZ结贴啊，分要全部给我！！！

你真行，楼主的问题好像没有解决呀，
分又不能当饭吃
先助人吧
[/Quote]我的方法可以吧，只是楼主玩失踪啊！迟迟不结帖，郁闷！

山东蓝鸟贵薪 2012-05-01

打赏
举报

[Quote=引用 41 楼的回复:]
LZ结贴啊，分要全部给我！！！
[/Quote]
你真行，楼主的问题好像没有解决呀，
分又不能当饭吃
先助人吧

tsp3ng 2012-04-30

打赏
举报

用 TDATAMOUDLE 存放连接, 主程序调用dll时,可以把adoconnection通过参数直接传给dll

s11ss 2012-04-28

打赏
举报

有三个工程[Quote=引用 48 楼的回复:]
win7下用2010编译后，project1.exe无法正常运行，界面出不来
[/Quote]

人鱼传说 2012-04-26

打赏
举报

win7下用2010编译后，project1.exe无法正常运行，界面出不来

ffwin 2012-03-26

打赏
举报

[Quote=引用 21 楼 s11ss 的回复:]

可是，貌似不能导入dll的变量。。。
见delphi7的帮助：
The Delphi language does not support importing of variables from shared libraries.

所以，我觉得你可以定义一个全局结构体，这样方便访问全局数据，如：
global 单元
type
PGlobalData = ^TGlobalData;
……
[/Quote]

这个可以

s11ss 2012-03-22

打赏
举报

[Quote=引用 44 楼 zhangqiwen 的回复:]
不懂搞的那么复杂是干什么，似乎我连代码都写了，难道不是需要的？
共享dll某个变量，就是导出他的地址指针，既然加载这dll，就直接取这个指针就搞定。

加载进来后都在同个进程了，什么内存共享，发消息。。。不是很多余么。
多个dll跟这些也无关。只需要导出的变量名字你知道就是了。
[/Quote]+1

可是23L代码中一定要VirtualProtect吗？

代码跳动 2012-03-22

打赏
举报

是不是用VirtualProtect，这个不是一定，只是其中一个方法。
直接指针， CopyMemory, WriteProcessMemory等，用什么合适不算是此问题的关键。

代码跳动 2012-03-22

打赏
举报

不懂搞的那么复杂是干什么，似乎我连代码都写了，难道不是需要的？
共享dll某个变量，就是导出他的地址指针，既然加载这dll，就直接取这个指针就搞定。

加载进来后都在同个进程了，什么内存共享，发消息。。。不是很多余么。
多个dll跟这些也无关。只需要导出的变量名字你知道就是了。

我看见佛 2012-03-21

打赏
举报

[Quote=引用 41 楼 s11ss 的回复:]
LZ结贴啊，分要全部给我！！！
[/Quote]支持下s11ss!

jonathanscor 2012-03-21

打赏
举报

下载看了下，果然

s11ss 2012-03-21

打赏
举报

LZ结贴啊，分要全部给我！！！

我看见佛 2012-03-21

打赏
举报

由我来盖第四十重楼，看看能不能顶到第一百下！

yunzm_wang 2012-03-21

打赏
举报

2个思路，均实现过的。
1.调用dll的时候直接传递，dll中exports一个方法出来，将adoConn传递过去。
2.在exe主form中定义变量，dll中用sendmessage发消息取。

s11ss 2012-03-20

打赏
举报

对21L补充：其他调用全局数据的dll需要设置指针指向全局数据。

[url=http://download.csdn.net/detail/s11ss/4155942]Delphi多个DLL共享全局数据Demo[/ur

s11ss 2012-03-20

打赏
举报

对21L补充：其他调用全局数据的dll需要设置指针指向全局数据。

Delphi多个DLL共享全局数据Demo

COMPUTERZZZ 2012-03-20

打赏
举报

library connect;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
SysUtils,
Classes,
ADODB,
global in 'global.pas';

{$R *.res}
function GetGlobalData: PGlobalData; stdcall;
begin
New(g_pGlobalData);
g_pGlobalData^.ADOConn:=TADOConnection.Create(nil);
g_pGlobalData^.ADOConn.ConnectionString:='FILE NAME=.\connect.udl';
g_pGlobalData^.ADOConn.Connected:=True;

g_pGlobalData^.a:=1;
g_pGlobalData^.b:='connection is open';
Result := g_pGlobalData
end;

exports
GetGlobalData;

begin

end.

---------------------------
Debugger Exception Notification
---------------------------
Project zyjxc.exe raised exception class EOleSysError with message '尚未调用 CoInitialize。'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

s11ss 2012-03-20

打赏
举报

[Quote=引用 34 楼 computerzzz 的回复:]
在主程序DPR 中
function GetGlobalData:PGlobalData; stdcall; external 'connect.dll';
var
hWnd: THandle;
hMutex: THandle;

Application.Initialize;
//isConnected := LoadDM; //装载数据模块
//s:=AD……
[/Quote]ADOConn还没创建出来呢！