实现进程间数据交换的两种方法和应用
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的环境下运行通过
数据分析咨询请扫描二维码
《Python数据分析极简入门》 第2节 8-1 Pandas 数据重塑 - 数据变形 数据重塑(Reshaping) 数据重塑,顾名思义就是给数据做各种变 ...
2024-11-26统计学基础 - 理解统计学的基本概念和方法是数据分析师必备的技能之一。统计学为他们提供了处理数据、进行推断和建模的基础。 数 ...
2024-11-25数据分析师在如今信息爆炸的时代扮演着至关重要的角色。他们不仅需要具备扎实的数据分析技能,还需要不断学习和适应不断发展的技 ...
2024-11-25数据分析师的工作职责涉及多个关键方面,从数据的获取到处理、分析再到可视化,旨在为企业的决策提供有力支持。让我们深入了解数 ...
2024-11-25数据分析师:洞察力量的引擎 数据分析师的兴起 数据分析师行业目前正处于快速发展阶段,市场需求持续增长,薪资水平也有所提升。 ...
2024-11-25数据收集与整理 - 从各种来源收集数据,清洗和整理以确保数据质量和可用性。 数据分析与建模 - 运用统计学方法和机器学习模型对 ...
2024-11-25数据分析是当今社会中不可或缺的一项技能,涵盖了广泛的工具和技术。其中,掌握各种数据处理函数对于数据分析师至关重要。本文将 ...
2024-11-25“大数据治理”是一个涵盖广泛的复杂概念,其核心在于确保大规模、多样化的数据资源能够被有效管理和利用。不仅涉及数据的采集、 ...
2024-11-25一、引言 背景介绍 随着信息技术的快速发展和互联网的普及,大数据已经成为现代社会的重要资产。大数据的兴起不仅推动了各行各业 ...
2024-11-25《Python数据分析极简入门》 第2节 7 Pandas分组聚合 分组聚合(group by)顾名思义就是分2步: 先分组:根据某列数据的值进行 ...
2024-11-25数据分析需要学习的内容非常广泛,涵盖了从理论知识到实际技能的多个方面。以下是数据分析所需学习的主要内容: 数学和统计学 ...
2024-11-24数据分析师需要具备一系列多方面的技能和能力,以应对复杂的数据分析任务和业务需求。以下是数据分析师所需的主要能力: 统计 ...
2024-11-24数据分析师需要学习的课程内容非常广泛,涵盖了从基础理论到实际应用的多个方面。以下是根据我搜索到的资料整理出的数据分析师需 ...
2024-11-24《Python数据分析极简入门》 第2节 6 Pandas合并连接 在pandas中,有多种方法可以合并和拼接数据。常见的方法包括append()、conc ...
2024-11-24《Python数据分析极简入门》 第2节 5 Pandas数学计算 importpandasaspdd=np.array([[81,&n ...
2024-11-23数据分析涉及多个方面的学习,包括理论知识和实践技能。以下是数据分析需要学习的主要方面: 基础知识: 数据分析的基本概念 ...
2024-11-22数据分析适合在多个单位工作,包括但不限于以下领域: 金融行业:金融行业对数据分析人才的需求非常大,数据分析师可以从事经 ...
2024-11-22数据分析是一种涉及从大量数据中提取有用信息和洞察力的过程。其工作内容主要包括以下几个方面: 数据收集与整理:数据分析师 ...
2024-11-22数据分析师需要掌握多种技能,以确保能够有效地处理和分析数据,并为业务决策提供支持。以下是数据分析师需要掌握的主要技能: ...
2024-11-22数据开发和数据分析是两个密切相关但又有所区别的领域。以下是它们的主要区别: 定义和目标: 数据开发:数据开发涉及数据的 ...
2024-11-22