Win9x下程序间的数据传递
大家知道在Window 9x中一个应用程序不能直接访问另一个程序的内存地址，因为WIN9x为每个运行中的进程提供了自己的虚拟空间，这起到了很好的保护作用，然而，它也使得两个程序间不能轻易的交换数据，但是这并不是说程序间就一定不能进行数据传送了，Win9x为我们提供了几个特殊的方法来实现这个目的，如通过Windows消息WM_CopyData 和存储影响文件等方法。使用消息WM_CopyData传送需要传递的数据缓冲区的内存地址，前面讲过，我们不能从一个应用程序向另一个程序发送内存块的地址，因为一个虚拟存储空间中的地址在另一个地址空间中没有意义。但是WM_CopyData消息回在后台执行一些特殊操作之后在传递数据，因此我们能够在接受方得到正确的地址。该消息使用时需要传递正在发送消息的窗口的句柄，及一个指TCopyDataStruct结构的指针。该结构如下：tagCOPYDATASTRUCT = packed recorddwData: DWORD;//这是一个附加的32位参数；cbData: DWORD;//我们将要传递的数据缓冲区的大小；lpData: Pointer;//指向数据缓冲区的指针。 end;TCopyDataStruct=tag COPYDATASTRUCT;一个例子，SendData程序包含一个文本框，在它的OnChange事件中将文本框中的内容发送到GetData程序重并显示出来。在SendCopyData程序里，文本框OnChange事件的处理函数如下：procedure TForm1.InputEditChange(Sender: TObject);varcds: TCopyDataStruct;ss: PChar;targetHandle: THandle;begincds.cbData:=Length(InputEdit.Text)＋1;GetMem(ss,cds.cbData); //申请cbData大小的缓冲区，并把指针赋给ss;strCopy(ss,Pchar(InputEdit.text));cds.lpData:=ss; //设置缓冲区指针targetHandle:=FindWindow(′TForm1′,′GetCopyData′); //用API函数获取″GetCopyData″窗口句柄if targetHandle=0 thenbeginShowMessage(′Don′'t find target window′);exit;end;SendMessage(targetHandle,WM_COPYDATA,Handle,Integer((@cds)));//将cds结构指针发送个目标窗口；//targetHandle使目标窗口句柄；//Handle 发送消息的窗口句柄；FreeMem(ss);end;在GetCopyData程序中，通过一个定制的消息处理程序接受wm_CopyData消息：publicprocedure GetCopyData(var msg: TWMCopyData); message WM_COPYDATA;procedure TForm1.GetCopyData(var msg: TWMCopyData);beginwith msg.CopyDataStruct^ dobeginForm1.Edit1.Text:=PChar(lpdata);end;end;其中TWMCopyData结构定义如下：TWMCopyData = recordMsg: Cardinal;From: HWND; //发送该消息的窗口的句柄CopyDataStruct: PCopyDataStruct; //即SendCopyData程序中cds结构的指针Result: Longint;end;除了用wm_CopyData消息传递数据外，Windows还提供了File_Mapping内存共享技术用于实现程序间数据共享。使用与上例窗口相似的两个程序来说明在MapWrite程序中：PrivateHMapFile: Thanale;MapFilePointer: Pointer;procedure TForm1.FormCreate(Sender: TObject);begin//使用API函数来建立映象文件hMapFile:=CreateFileMapping(＄FFFFFFFF, //指定共享内存nil,Page_ReadWrite, //共享方式0,1000, //共享内存大小′MyMappedFile′); //映象文件的名字if hMapFile<>0 then //如果映象文件建立成功//MapViewOfFile函数返回一个指向共享内存块的在该程序内存空间中有效的指针 MapFilePointer:=MapView OfFile(hMapFile,File－Map－All－Access,0,0,0)elseShowMessage(′Can′'t Create MapFile′);if MapFilePointer=nil thenShowMessage(′MapFilePointer=nil′);end;procedure TForm1.Edit1Change(Sender: TObject);beginStrCopy(PChar(MapFilePointer),PChar(Edit1.Text));//将文本框中的字符串copy到共享内存中end;在MapRead程序中使用API函数OpenFileMapping打开MapWrite程序中已建立的映象文件procedure TForm1.FormCreate(Sender: TObject);beginhMapFile:=OpenFileMapping(FILE_MAP_READ,true,′MyMappedFile′); //取得′MyMappedFile′映象文件的句柄 if hMapFile<>0 thenMapFilePointer:=MapViewOfFile(hMapFile,File_Map_All_Access,0,0,0)elsebeginShowMessage(′Can not open Mapp File′);Timer1.Enabled:=false;end;end;//定时从共享内存中读取数据并显示出来procedure TForm1.Timer1Timer(Sender: TObject);varss: String;beginss:=PChar(MapFilePointer);Edit1.Text:=ss;end;当然最后我们要释放共享内存句柄UnMapViewOfFile(MapFilePointer);CloseHandle(hMapFile);（西安 hszj）
