高手请进：如何将dll中全局变量传递给应用程序？-CSDN论坛

高手请进：如何将dll中全局变量传递给应用程序？

Delphi > Windows SDK/API

收藏回复

[问题点数：100分，结帖人fisher_older]

⋅CCS,Matlab,Delphi,Source Insight之类的代码区用的什么控件？ ⋅请教大神：Webbrower读取html后用execommand修改，如何保存？ ⋅求助：如果截屏时包含悬浮窗口 更多帖子 关注私信空间博客 fisher_older 等级 本版专家分：31 结帖率 100%: 写了个钩子，需要将hook到的字符串传递给我写的应用程序中，请问该怎么做？
似乎内存映射能解决，但是具体不知道怎么做，请各位高手帮忙。有例程最好。谢谢了。

2011-07-27 04:20:36

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅bdmh的留言板

⋅Android:都是Layout的BaselineAligned惹的祸

⋅ListView中Button无法点击

更多帖子

关注私信空间博客

版主

bdmh（vx: memg...

等级

本版专家分：132207

勋章

签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！

名人 2019年荣获名人称号
2013年荣获名人称号

状元 2012年总版技术专家分年内排行榜第一

进士 2013年总版技术专家分年内排行榜第七
2011年总版技术专家分年内排行榜第五
2009年总版技术专家分年内排行榜第九: 首先获得你的程序的实例句柄，然后可以发消息，内存映射，管道等等各种方法

2011-07-27 09:21:18

点赞只看TA 引用举报 #1得分 10

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私信空间博客 funxu 等级 本版专家分：15348 勋章 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 给你个例子
//获得目录
                StrRoot   :=   GetCurrentDir();
                if   (StrRoot[Length(StrRoot)] <> '\ ')then   StrRoot   :=   StrRoot+ '\ ';
                StrRoot   :=   StrRoot+ 'HicMemory.tmp ';
                //创建文件
                FileHandle   :=   CreateFile(PChar(StrRoot),GENERIC_READ   or   GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_TEMPORARY,handle);
                //创建内存空间
                FHand   :=   CreateFileMapping(FileHandle,nil,PAGE_READWRITE,0,64*1024,PChar( 'TESTMEMORY '));
                //映射
                p   :=   MapViewOfFile(FHand,FILE_MAP_WRITE   or   FILE_MAP_READ,0,0,6400);
                //获取内容
                QueryFirst.Close   ;
                QueryFirst.SQL.Clear   ;
                QueryFirst.SQL.Add( 'select   *   from   di_state   order   by   hicno ');
                try
                    QueryFirst.Open;
                except
                end;
                iout   :=0;
                Str   :=   ' ';
                QueryFirst.First   ;
                while   (not   QueryFirst.Eof)   do
                begin
                    if   iout   <>   QueryFirst.FieldByName( 'HICNO ').AsInteger   then
                    begin
                        iData   :=   0   ;
                        iout:=   QueryFirst.FieldByName( 'HICNO ').AsInteger   ;
                        Str   :=   Str+ '! '+Format( '%.2d ',[iout])+ '00 ';
                        QuerySec.Close   ;
                        QuerySec.SQL.Clear   ;
                        QuerySec.SQL.Add( 'select   *   from   di_state   where   hicno= '+IntToStr(iout)+ '   and   state=1   order   by   dino ');
                        QuerySec.Open;
                        QuerySec.First   ;
                        while   (not   QuerySec.Eof)   do
                        begin
                            iData   :=   iData   +   Trunc(power(10,(QuerySec.FieldByName( 'dino ').AsInteger   -1)));
                            QuerySec.Next   ;
                        end;
                        StrTemp   :=   Format( '%.8d ',[idata]);
                        Str   :=   Str+   StrToBit(StrTemp)   +   #13#10;
                    end;
                    QueryFirst.Next   ;
                end;
                StrPCopy(CharTemp,Str);
                //写映射
                ApointerMemory(p)^   :=   CharTemp;

                //以下为测试用代码
{                 ShowMessage( 'Write: '+#10   +   ApointerMemory(p)^);
                readHandle   :=   OpenFileMapping(FILE_MAP_READ,false,PChar( 'HICMEMORY '));
                readP   :=   MapViewOfFile(readHandle,FILE_MAP_READ,0,0,6400);
                ShowMessage( 'read   : '+#10   +   ApointerMemory(readP)^);
}

2011-07-27 12:54:31

点赞只看TA 引用举报 #2得分 10

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私信空间博客 funxu 等级 本版专家分：15348 勋章 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 还有这个
http://www.52delphi.com/list.asp?ID=633

2011-07-27 12:55:20

点赞只看TA 引用举报 #3得分 10

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私信空间博客 funxu 等级 本版专家分：15348 勋章 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 不过内存映射并不好，因为时时更新不好判断，而且读取时还容易出问题，建议用消息机制比较好

2011-07-27 12:56:22

点赞只看TA 引用举报 #4得分 0

⋅Netty性能测试例子代码 ⋅C#版完成端口，包括服务器、客户端、上传协议等介绍 ⋅C#基于SocketAsyncEventArgs实现的完成端口封装，可以支持65535个连接 更多帖子 关注私信空间博客 sqldebug_fan 等级 本版专家分：26053 勋章 红花 2010年7月 Delphi大版内专家分月排行榜第一 2010年3月 Delphi大版内专家分月排行榜第一 蓝花 2010年10月 Delphi大版内专家分月排行榜第三 2010年4月 Delphi大版内专家分月排行榜第三: 如果变量是Integer这类的发消息就可以了，如果是文本或者结构体，就用共享内存，发消息通知更改。

2011-07-27 13:38:31

点赞只看TA 引用举报 #5得分 10

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私信空间博客 funxu 等级 本版专家分：15348 勋章 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 用dll钩子，刚写完内存文件一个消息发过去，那边还没来得及响应，这边钩子新的内容已经写进去了，内存映射只适用于交流不是很频繁的大文件操作，就象我说的时时更新不好判断，而且读取时还容易出问题，还是推荐用消息的好

2011-07-27 13:49:48

点赞只看TA 引用举报 #6得分 0

⋅CCS,Matlab,Delphi,Source Insight之类的代码区用的什么控件？ ⋅请教大神：Webbrower读取html后用execommand修改，如何保存？ ⋅求助：如果截屏时包含悬浮窗口 更多帖子 关注私信空间博客 fisher_older 等级 本版专家分：31: 的确也想过利用消息发送的方法。但是我要传递的是字符串，请问该怎么办？

2011-07-27 21:27:16

点赞只看TA 引用举报 #7得分 0

⋅还是个文件型数据库*.db的问题 ⋅问个关于操作dbf数据库的问题 ⋅感慨ying，程序猿不容易啊 更多帖子 关注私信空间博客 funxu 等级 本版专家分：15348 勋章 红花 2011年11月 Delphi大版内专家分月排行榜第一 2011年10月 Delphi大版内专家分月排行榜第一 黄花 2014年4月 Delphi大版内专家分月排行榜第二 2011年12月 Delphi大版内专家分月排行榜第二 蓝花 2012年1月 Delphi大版内专家分月排行榜第三 2011年9月 Delphi大版内专家分月排行榜第三: 消息结构中的lparam和wparam是32位的dword类型，二者可以互换，不过通常lparam是个指针，可以存储结构地址的，另外sendmessage也可以直接发送字符串啊，你可以找下例子，很多的

2011-07-28 10:02:11

点赞只看TA 引用举报 #8得分 0

⋅vmware死机 ⋅请重新审核资源 ⋅百度面试题? 更多帖子 关注私信空间博客 lactoferrin 等级 本版专家分：3246 勋章 蓝花 2012年3月 VC/MFC大版内专家分月排行榜第三 2012年1月 VC/MFC大版内专家分月排行榜第三: 这个用mailslot比较方便，不喜欢消息

2011-07-28 13:48:54

点赞只看TA 引用举报 #9得分 0

⋅CCS,Matlab,Delphi,Source Insight之类的代码区用的什么控件？ ⋅请教大神：Webbrower读取html后用execommand修改，如何保存？ ⋅求助：如果截屏时包含悬浮窗口 更多帖子 关注私信空间博客 fisher_older 等级 本版专家分：31

引用 8 楼 funxu 的回复:

消息结构中的lparam和wparam是32位的dword类型，二者可以互换，不过通常lparam是个指针，可以存储结构地址的，另外sendmessage也可以直接发送字符串啊，你可以找下例子，很多的

是这样吧？

SendMessage(Handle,WM_TEST,Integer(@MyStr),1);

其中MyStr就是我要发送的字符串。WM_TEST是自定义消息，那么Handle呢？如何获取？

2011-07-28 16:19:39

点赞只看TA 引用举报 #10得分 0

1 2

收起

收藏回复

fisher_older

等级：

关注私信 TA的帖子

DLL和EXE怎样共享全局变量？: 全局共享数据 #pragma data_seg （"shareddata") HWND sharedwnd=NULL;//共享数据 #pragma data_seg() 编译选项加入 /SECTION:shareddata,rws ============================ 用p...

主程序与DLL之间的全局变量问题: 者：杨茂峰Email:DinkySoft@163.com有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户名(UserName)...其实这个问题很简单。下面我把我的做法写出来大家一起分享。把共享的变量放在主程序...

DLL中导出全局变量的方法及导入时需要注意的问题: 今天做程序需要导出DLL中的一个全局指针，可是导出后只要一使用就会发生access violation，后来在网上找了找文章，原来是之前导入方法存在问题，下面把整个DLL导出导入全局函数的方法整理一下，作为记录。...

使用DLL在多个进程间共享全局变量: 第二个实例启动后，在修改全局变量的时候，系统会运用内存管理系统copy- on-write的特性来防止修改了第一个实例的数据，即系统会再分配一些内存，并将全局变量复制到这块内存中，每个实例使用自己的内存空间上的数据...

[转]DLL中使用全局变量: 默认只是其宿主进程的全局变量 也是说每个宿主程序都有这个副本所以这个全局变量不能被所有进程共用， windows好像是用 copy-on-write机制进行保护的。如果共用需要设置共享段并把它放到共享段中这样一个宿主...

全局钩子实例（不使用DLL和使用DLL两种）: 出处：CSDN 作者: xstring 不知道大家是通过什么开始对钩子(Hook)有了解的，我是看过Jeffrey Richter的《WINDOWS 高级编程指南》（新版的中文...在这本书里作者介绍了三种将代码注入其他进程的方法，其中一

C C++面试题: 局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言，在同一个函数内可以定义多个同名的局部变量，比如在两个循环体内都定义一个同名的局部变

Delphi中如何把函数代码调出主程序，写到“DLL”中并调用: 一、开使你的第一个DLL专案 1.File->Close all->File->New［DLL］代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个...

delphi来写你的第一个dll文件，非常简单！: 一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码://自动产生Code如下 library Project2; //这有段废话。 uses SysUtils, Classes; {$R *.RES} begin end.2.加个Func进来：代

《深入BREW开发》——第七章创建新的BREW应用程序: 在BREW中创建应用程序最简单的方式是，通过BREW在Visual Studio C++环境中的应用程序向导。通过向导，可以一步一步的让我们构建成功开发BREW应用程序所需要的组件。接下来我们就详细的介绍一下BREW

c语言面试题1: 局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言，在同一个函数内可以定义多个同名的局部变量，比如在两个循环体内都定义一个同名的局部变量，...

基于VC6.0的DLL开发: 最近在开发一个C/S模式的通讯软件，通讯底层采用DLL方式进行开发，上层应用调用DLL进行通讯操作，因此在此学习了一下DLL的开发，一下是引用别人的文章，文章写的比较易懂，大家一起学习吧。一、前言　自从微软...

DLL 线程本地存储: 构造DLL (1)仅导出函数 DLL可以导出全局变量和类，但我们不建议这么做，建议导出函数。 (2).lib 每个DLL都有与之相对应的.lib文件,该文件中列出了DLL中导出的函数和变量的符号名 (3)指定要导出的函数名因为不同...

CPP-练习: 局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言，在同一个函数内可以定义多个同名的局部变量，比如在两个循环体内都定义一个同名的局部变量，...

如何编译生成dll: 所有的Win32 API函数都包含在DLL中。3个最重要的DLL是KERNEL32.DLL，它由管理内存、进程和线程的函数组成；USER32.DLL，它由执行用户界面的任务（如创建窗口和发送消息）的函数组成；GDI32.DLL，它由绘图和显示文本...

华为软件研发面试题2: C语言面试题大汇总之华为面试题 Eddy整理 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会

C语言面试基本问题: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

N多C语言的面试题（1）: 局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言，在同一个函数内可以定义多个同名的局部变量，比如在两个循环体内都定义一个...

C/C++面试题-1: 1、局部变量能否和全局变量重名？答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言，在...

C语言面试题大汇总之华为面试题 Eddy整理: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

C语言面试题大汇总之华为面试题: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

C语言面试题大汇总: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

delphi dll调用问题: dll传递string实现方法 delphi中dll传递string的实现方法: dll项目uses第一个引用sharemem单元; 调用的项目uses第一个引用sharemem单元; 调用的单元uses第一个引用sharemem单元; *********************************...

C语言面试题汇编: 1.局部变量能否和全局变量重名？答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

c语言笔试题总结: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

C知识点总结（格式以后再整理，近期笔试面试太多）: 1、局部变量能否和全局变量重名？　答：能，局部会屏蔽全局。要用全局变量，需要使用"::" ;局部变量可以与全局变量同名，在函数内引用这个变量时，会用到同名的局部变量，而不会用到全局变量。对于有些编译器而言...

相关热词 c#绘制图形时界面闪烁 c# emgucv 行人 c# datable合并 c# if折叠 c# 设置全局锁 c# 如何定义全局变量 c# 获取剪切板内容 c#推箱子重新开始 c# 读取接口数据 c#配置 mysql