用Delphi實現程序間的數據傳遞 (2001年5月15日) 

本站更新  分類:系統   作者:wangjing  推薦:   閱讀次數:305  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

在實際應用中，我們經常需要多個程序相互配合來完成某些特定功能。例如兩個應用程序間的同步、互斥；應用程序在起第二份實例時的參數自動傳遞…。要實現這些功能，就必須能實現程序間的數據傳遞。

有些特殊的高級技術可在不同的程序間傳遞數據，如剪貼板、動態數據交換以及OLE自動化，但有條件限制并且相對較復雜。這里，我介紹三種有效的底層技術，希望對編程愛好者有所幫助。

利用WM_COPYDATA消息 
　

使用該消息涉及一個TcopyDataStruct結構類型的指針。該結構中有三個成員：

dwData 是一個32位的附加參數

cbData 表示要傳遞的數據區的大小

lpData 表示要傳遞的數據區的指針

下面舉個例子。該例子由兩個程序構成，分別為SendData和GetData。

SendData程序向GetData程序發送消息，并傳遞edit1中的字符串；GetData在收到消息后，把SendData發送的字符串接受下來，并顯示在相應的edit1中。

SendData程序： 
……

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

ds: TCopyDataStruct;

hd: THandle;

begin

ds.cbData := Length (Edit1.Text) + 1;

GetMem (ds.lpData, ds.cbData ); //為傳遞的數據區分配內存

StrCopy (ds.lpData, PChar (Edit1.Text));

Hd := FindWindow (nil, 'Form2'); // 獲得接受窗口的句柄

if Hd <> 0 then

SendMessage (Hd, WM_COPYDATA, Handle,

Cardinal(@ds)) // 發送WM_COPYDATA消息

else

ShowMessage ('目標窗口沒找到！');

FreeMem (ds.lpData); //釋放資源

end;

GetData程序： 
　

TForm2 = class(TForm)

Edit1: TEdit;

private

{ Private declarations }

public

procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA;

{ Public declarations }

end;

var

Form2: TForm2;

implementation

procedure TForm2.Mymessage(var t:TWmCopyData);

begin

Edit1.text:=StrPas(t.CopyDataStruct^.lpData);//接受數據并顯示。

end;

使用這種方法是WIN32應用程序進行交互的最簡單的方法。

使用全局原子 
Win32系統中，為了實現信息共享，系統維護了一張全局原子表。每個原子中存放了一些共享數據。關于對原子的操作，有一組專門的API函數：

GlobalAddAtom 在表中增加全局原子

GlobalDeleteAtom 在表中刪除全局原子

GlobalFindAtom 在表中搜索全局原子

GlobalGetAtomName 從表中獲取全局原子

筆者用這種方法實現了避免程序二次啟動，但把第二次啟動所帶的參數傳到第一個實例中以進行相應的處理的程序。基本處理如下：

在工程文件中：

program Pvdde;

uses

Forms,shellapi,Windows,dialogs,dde in 'dde.pas' {Form1};

{$R *.RES}

begin

if GlobalFindAtom(PChar('PDDE_IS_RUNNING')) = 0 then

//避免二次啟動

begin

K:=GlobalAddAtom(PChar('PDDE_IS_RUNNING'));

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end

else

begin

//傳遞二次啟動時的參數到第一個實例

H := FindWindow(PChar('TForm1'), PChar('資料保密 嚴禁外傳'));

if ParamCount > 0 then

begin

L := GlobalAddAtom(PChar(ParamStr(1)));

if H<>0 then

SendMessage(H, WM_MYMESSAGE, 0, L); 

{ 傳遞原子句柄 }

GlobalDeleteAtom(L); { 使用后釋放 }

end;

Application.Terminate;

end;

end.

在相應的窗口單元dde.pas增加對自定義消息WM_MYMESSAGE的處理：

procedure TForm1.MyMessage(var T:TMessage); 

{對 WM_MYMESSAGE消息進行處理 }

var

P:Array [0..255] of char;

begin

GlobalGetAtomName(T.LParam, P,255); { 接受數據到p數組中 }

。。。

end;

使用存儲映象文件 
　

這種方法相對較復雜一些。

當Win95與Winows Nt向內存中裝載文件時，使用了特殊的全局內存區。在該區域內，應用程序的虛擬內存地址和文件中的相應位置一一對應。由于所有進程共享了一個用于存儲映象文件的全局內存區域，因而當兩個進程裝載相同模塊（應用程序或DLL文件）時，它們實際可以在內存中共享其執行代碼。

筆者通過調用一個帶有特殊參數的CreateFileMapping函數，來間接達到程序間共享內存的目的。下面簡要解釋一下該函數。

HANDLE CreateFileMapping(

HANDLE hFile, //文件句柄 

LPSECURITY_ATTRIBUTES lpFileMappingAttributes, // 可選安全屬性

DWORD flProtect, // 映象文件保護方式 

DWORD dwMaximumSizeHigh, // 映象文件區域的底值 

DWORD dwMaximumSizeLow, // 映象文件區域的頂值 

LPCTSTR lpName // 映象文件的名字

); 

如果hFile是0xFFFFFFFF，在調用程序中必須指定dwMaximumSizeHigh 和dwMaximumSizeLow參數的值以確定映象文件的大小。通過這樣的參數指定，該函數就創建了一個由操作系統頁文件支持的特殊邏輯映象文件，而不是由實際操作系統的文件支持的邏輯映象文件。這個邏輯映象文件可以通過復制、繼承或者按名字來達到共享。至于其它參數的詳細說明，請參看在線幫助。

在建立了映象文件之后，我們可以通過調用另外一個API函數MapViewOfFile來訪問它的內存，該函數會返回一個指向共享內存塊的特定指針。

LPVOID MapViewOfFile(

HANDLE hFileMappingObject, // 映象文件句柄 

DWORD dwDesiredAccess, // 訪問方式 

DWORD dwFileOffsetHigh, // 映象文件區域的底值 

DWORD dwFileOffsetLow, // 映象文件區域的頂值

DWORD dwNumberOfBytesToMap // 映射字節數

);

如果 dwNumberOfBytesToMap 是0，映射整個文件。

以下舉例說明：

private

hMapFile: THandle;

MapFilePointer: Pointer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

hMapFile := CreateFileMapping (

$FFFFFFFF, // 特殊內存映射句柄

nil, page_ReadWrite, 0,10000, 

'DdhDemoMappedFile'); // 文件名

if hMapFile <> 0 then

MapFilePointer := MapViewOfFile (

hMapFile, // 上面映象文件的句柄

File_Map_All_Access, 

0, 0, 0) // 訪問整個映象文件

else

ShowMessage ('hMapFile = 0');

if MapFilePointer = nil then

ShowMessage ('MapFilePointer = nil');

end;

　

procedure TForm1.BtnWriteClick(Sender: TObject);

begin

StrCopy (PChar (MapFilePointer),

PChar (EditWrite.Text));//把內容寫入共享內存

end;

　

procedure TForm1.BtnReadClick(Sender: TObject);

var

S: string;

begin

S := PChar (MapFilePointer);//從共享內存讀出內容

EditRead.Text := S;

end;

用這種方法，不但可以在不同的程序之間共享數據，還可以在同一程序的不同實例間共享數據。為了及時通知其它進程共享數據的變化，可以自定義一條用戶消息，通過發消息來實現，這里不再贅述。