实现进程间数据交换的两种方法和应用
Windows操作系统是一个多任务系统,每个任务都有相应的进程对应。熟悉windows系统的用户知道,每个进程都有自己独立的内存地址和内存空间。这对进程间之间的数据相互访问和相互交换带来一定的不便,但是在实际应用中有时要在进程间进行数据交换。windows系统提供了许多方法实现进程间的数据交换,比如我们可以通过磁盘文件来进行交换,这实际是最简单可行的办法,但运行速度大打折扣,特别是对于大批量数据交换时。另外我们可以通过Windows系统提供的CreateFileMaping、OpenFileMapping、MapViewofFile等API函数来实现进程间的数据交换,但实现方法相对复杂。 本文将介绍另外两种进程间数据交换的方法,一种是通过剪贴板的进程数据交换方法,另一种是直接内存读取的进程数据交换方法。最后将用Delphi语言举例加以实现应用。
一、通过剪贴板的进程数据交换方法 剪贴板是windows系统专门提供用来不同应用程序之间的数据交换,用户只要通过“复制”和“粘帖”两个动作就可以实现应用程序之间的数据交换。用户可以自定义剪贴板格式实现数据交换的目的。 其方法步骤为: 1、数据发送进程向剪贴板“复制”用户自定义的数据内容 2、数据发送进程向数据接受进程发送数据交换的消息。 3、数据接受进程收到消息以后向剪贴板“粘贴”用户自定义的数据内容。 这种方法的实现过程如图一所示:
该方法涉及到的重要API函数主要有: 1、RegisterClipboardFormat 这个函数是向系统剪贴板注册新的剪贴板数据格式其函数调用格式为:
UINT RegisterClipboardFormat( LPCTSTR lpszFormat // 新剪贴板数据格式的名称 ); |
HGLOBAL GlobalAlloc( UINT uFlags, //分配到的内存属性 DWORD dwBytes // 需要内存分配的空间大小 ); LPVOID GlobalLock( HGLOBAL hMem // 需要加锁的内存“句柄” ); |
该方法涉及的重要API函数主要有: 1、GetCurrentProcessId 这个函数主要获取当前运行进程的进程标示号,其函数格式为:
DWORD GetCurrentProcessId(VOID) |
HANDLE OpenProcess( DWORD dwDesiredAccess, // 要打开的进程的访问模式 BOOL bInheritHandle, // 该进程句柄是否在子线程中继承 DWORD dwProcessId // 进程的标示号 ); |
BOOL ReadProcessMemory( HANDLE hProcess, //进程句柄 LPCVOID lpBaseAddress, // 要读取内存的起始地址 LPVOID lpBuffer, //存放读取的数据的变量 DWORD nSize, //需要读取的字节数 LPDWORD lpNumberOfBytesRead // 实际读取到的字节数 ); |
TFriend=packed record name :array[1..8] of char; age :byte; address :array[1..30] of char; end; |
1.WM_Datasend_byClpbrd=WM_user+1000; //用于通过剪贴板的进程数据交换的方法的消息; 2.WM_DataSend_byMemory=WM_user+1001;// 直接内存读取的进程数据交换方法的消息; 3.receivewindowcaption='DataReceiver'; //接收数据进程窗口的标题; 4.receivewindowclassname='Data Receive Window';//接受数据进程窗口的类别名称; 5.userDefineformat='process data exchange'; //自定义剪贴板数据格式名称; |
procedure TForm1.Button1Click(Sender: TObject); var wnd :Hwnd; Friend :TFriend; hmem :Thandle; datapointer :pointer; CF_User :Uint; begin //寻找数据接受进程的窗口 wnd:=findwindow(receivewindowclassname,receivewindowcaption); //如果找到了向剪贴板复制数据并且向数据接受进程发送消息 if wnd<>0 then begin //申请内存 hmem:=globalAlloc(GMEM_MOVEABLE,sizeof(friend)); //给记录赋值 strpcopy(@friend.name,edit1.text); friend.age:=byte(spinedit1.Value); strpcopy(@friend.address,edit2.text); //获取申请到的内存地址并且把记录的值导入内存 DataPointer := GlobalLock(hmem); //把记录数据复制到Global内存中 move(friend,datapointer^,sizeof(friend)); //注册或获取新的剪贴板数据格式标号 CF_User:=registerclipboardformat(userdefineformat); //向剪贴板复制数据 clipboard.Open; clipboard.SetAsHandle(CF_USER,hmem); clipboard.Close; //向接收进程窗口发送消息 sendmessage(wnd,WM_Datasend_byClpbrd,0,0); end; end; |
procedure TForm1.Button2Click(Sender: TObject); var wnd :Hwnd; Friend :TFriend; Begin //寻找数据接受进程的窗口 wnd:=findwindow(receivewindowclassname,receivewindowcaption); //如果找到了向数据接收进程窗口发送消息 if wnd<>0 then begin //对记录赋值 strpcopy(@friend.name,edit1.text); friend.age:=byte(spinedit1.Value); strpcopy(@friend.address,edit2.text); //发送消息,把发送进程的进程标示号作为Wparam //把记录地址作为Lparam进行传递 sendmessage(wnd,WM_DataSend_byMemory, getcurrentprocessID,lparam(@Friend)); end; end; |
procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); params.Caption:=receivewindowcaption; Params.WinClassName :=receivewindowclassname; end; |
procedure Tform1.wndproc(var message:Tmessage); var processhnd :Thandle; Friend :TFriend; numread :dword; hmem :Thandle; clipdata :pointer; CF_User :Uint; Begin Case message.msg of //处理剪贴板方式发送过来的消息 WM_Datasend_byClpbrd: Begin //注册或获取新的剪贴板数据格式标号 CF_User:= registerclipboardformat(userdefineformat); if clipboard.HasFormat(CF_User) then begin //获取剪贴板的内容,并且分别赋值给三个Edit hmem:=clipboard.GetAsHandle(CF_user); clipdata:=globallock(hmem); if clipdata<>nil then begin move(clipdata^,Friend,sizeof(Friend)); edit1.text:=Friend.name; edit2.text:=inttostr(Friend.age); edit3.text:=Friend.address; end; end; message.Result:=1; End; //处理直接内存读取发送过来的消息 WM_DataSend_byMemory: Begin //获取发送进程的“进程句柄”,设置访问模式为“读” processhnd:=openprocess(PROCESS_VM_READ, false,message.WParam); //读取发送进程的内存数据 readprocessmemory(processhnd, ptr(message.lparam), @friend,sizeof(friend),numread); edit1.text:=Friend.name; edit2.text:=inttostr(Friend.age); edit3.text:=Friend.address; closehandle(processhnd); message.result:=1; End; Else //对于其它消息依然按照原来的方法进行消息处理 Inherited wndproc(message); End; |
图三以上程序仅仅是上面介绍的两种方法最简单应用,用户可以根据自己的实际需要加以拓展应用。上述程序在Windows 2000+Delphi 5.0的环境下运行通过
数据分析咨询请扫描二维码
自学数据分析可能是一条充满挑战却又令人兴奋的道路。随着数据在现代社会中的重要性日益增长,掌握数据分析技能不仅能提升你的就 ...
2024-11-14数据分析相关职业选择 数据分析领域正在蓬勃发展,为各种专业背景的人才提供了丰富的职业机会。从初学者到有经验的专家,每个人 ...
2024-11-14数据挖掘与分析在金融行业的使用 在当今快速发展的金融行业中,数据挖掘与分析的应用愈发重要,成为驱动行业变革和提升竞争力的 ...
2024-11-14学习数据挖掘需要掌握哪些技能 数据挖掘是一个不断发展的领域,它结合了统计学、计算机科学和领域专业知识,旨在从数据中提取有 ...
2024-11-14统计学作为一门基于数据的学科,其广泛的应用领域和多样的职业选择,使得毕业生拥有丰厚的就业前景。无论是在政府还是企业,统计 ...
2024-11-14在当今高速发展的技术环境下,企业正在面临前所未有的机遇和挑战。数字化转型已成为企业保持竞争力和应对市场变化的必由之路。要 ...
2024-11-13爬虫技术在数据分析中扮演着至关重要的角色,其主要作用体现在以下几个方面: 数据收集:爬虫能够自动化地从互联网上抓取大量数 ...
2024-11-13在数据分析中,数据可视化是一种将复杂数据转化为图表、图形或其他可视形式的技术,旨在通过直观的方式帮助人们理解数据的含义与 ...
2024-11-13在现代银行业中,数字化用户行为分析已成为优化产品和服务、提升客户体验和提高业务效率的重要工具。通过全面的数据采集、深入的 ...
2024-11-13在这个数据飞速增长的时代,企业若想在竞争中占据优势,必须充分利用数据分析优化其营销策略。数据不仅有助于理解市场趋势,还可 ...
2024-11-13数据分析行业的就业趋势显示出多个积极的发展方向。随着大数据和人工智能技术的不断进步,数据分析在各行各业中的应用变得越来越 ...
2024-11-13市场数据分析是一门涉及多种技能和工具的学科,对企业在竞争激烈的市场中保持竞争力至关重要。通过数据分析,企业不仅可以了解当 ...
2024-11-13数据分析与数据挖掘是数据科学领域中两个关键的组成部分,它们各有独特的目标、方法和应用场景。尽管它们经常在实际应用中结合使 ...
2024-11-13在如今这个数据驱动的时代,数据分析能力已经成为许多行业的重要技能。无论是为工作需要,还是为了职业转型,掌握数据分析都能够 ...
2024-11-13在如今这个数据驱动的时代,数据分析能力已经成为许多行业的重要技能。无论是为工作需要,还是为了职业转型,掌握数据分析都能够 ...
2024-11-13作为一名业务分析师,你肩负着将业务需求转化为技术解决方案的重任。面试这一角色时,涉及的问题多种多样,涵盖技术技能、分析能 ...
2024-11-13自学数据分析可能看似一项艰巨的任务,尤其在开始时。但是,通过一些策略和方法,你可以系统地学习和掌握数据分析的相关知识和技 ...
2024-11-10Excel是数据分析领域中的一款强大工具,它凭借其灵活的功能和易用的界面,成为了许多数据分析师和从业者的首选。无论是简单的数 ...
2024-11-10在快速发展的商业环境中,数据分析能力已经成为许多行业的核心竞争力。无论是初学者还是经验丰富的专家,搭建一个有效的数据分析 ...
2024-11-10在如今的数据驱动世界,数据分析师在各行各业中扮演着至关重要的角色。随着企业越来越依赖数据决策,数据分析职位的需求不断增加 ...
2024-11-10