主程序与DLL之间的全局变量问题
2005-12-31 17:54
239 查看
有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户名(UserName)...
其实这个问题很简单。下面我把我的做法写出来大家一起分享。
把共享的变量放在主程序里:UserName,....等等,
在主程序里写两个函数
Function CurUserName():PChar;
begin
Result:=pchar(UserName);
end;
procedure SetCurUserName(LoginUserName: PChar)
begin
UserName:=LoginUserName;
end;
然后在主程序的工程文件(*.dpr)里输出这两个函数里写
.....
{$R *.res}
exports
CurUserName, SetCurUserName;
....
这样在每个DLL里就可以使用这两个函数了
function CurUserName: PChar; //从主程序里获取当前登陆帐号
var
GetCurUserName: function: pchar;
begin
@GetCurUserName := GetProcAddress(GetModuleHandle(pchar(application.Exename)), 'CurUserName');
if Assigned(GetCurUserName) then //找到
result := GetCurUserName
else
result := 'admin';
end;
其实这个问题很简单。下面我把我的做法写出来大家一起分享。
把共享的变量放在主程序里:UserName,....等等,
在主程序里写两个函数
Function CurUserName():PChar;
begin
Result:=pchar(UserName);
end;
procedure SetCurUserName(LoginUserName: PChar)
begin
UserName:=LoginUserName;
end;
然后在主程序的工程文件(*.dpr)里输出这两个函数里写
.....
{$R *.res}
exports
CurUserName, SetCurUserName;
....
这样在每个DLL里就可以使用这两个函数了
function CurUserName: PChar; //从主程序里获取当前登陆帐号
var
GetCurUserName: function: pchar;
begin
@GetCurUserName := GetProcAddress(GetModuleHandle(pchar(application.Exename)), 'CurUserName');
if Assigned(GetCurUserName) then //找到
result := GetCurUserName
else
result := 'admin';
end;
相关文章推荐
- 主程序与DLL之间的全局变量问题
- 主程序与DLL之间的全局变量问题
- 主程序与DLL之间的全局变量问题
- 主程序与DLL之间的全局变量问题
- 主程序与DLL之间的全局变量问题
- Solution(VS)下多工程之间共享全局变量失效问题
- C# 调用 C++ dll 动态链接库中多个函数时全局变量的问题
- 多个进程范文DLL中的函数/全局变量/数据共享段问题
- 关于百度EChart 与dataTables 之间交互问题的解决方案(利用js全局变量)
- Python全局变量在模块之间引用的问题
- linux动态链接库全局变量共享问题&DLL共享数据段
- linux动态链接库全局变量共享问题&DLL共享数据段
- Dll 中设置全局类变量, LoadLibrary 998错误, TLS问题.
- linux动态链接库全局变量共享问题&DLL共享数据段
- VC 在DLL中使用全局变量出现异常问题
- linux动态链接库全局变量共享问题&DLL共享数据段
- DLL中导出全局变量的方法及导入时需要注意的问题
- dll(动态链接库)之间以及和exe之间的函数、类或全局变量互传
- 使用shell全局变量出现的问题
- 父类子类之间的一个经典题目(有关成员变量何时赋值和在哪里赋值的问题)