Question

我想在两个应用程序之间共享数组数据。在我看来，第一个程序创建数组，第二个程序可以从已分配的内存区读取数组。该数组不是动态数组。

我找到了一种使用OpenFileMapping和MapViewOfFile分享指针的方法。我没有运气实现数组共享，我想我还不想使用IPC方法。

是否可以规划这样的方案（共享阵列）？我的目的是最大限度地减少内存使用和快速读取数据。

Answer 1

我想到了两个应用程序之间共享内存的简短但完整的例子。唯一的选择是控制台应用程序，GUI应用程序至少需要3个文件（DPR + PAS + DFM）。所以我编写了一个小例子，其中一个整数数组使用内存映射文件共享（由页面文件支持，所以我不需要在磁盘上有一个phisical文件来实现）。控制台应用程序响应3个命令：

退出

SET NUM VALUE 将数组中索引 NUM 的值更改为 VALUE

DUMP NUM 以索引 NUM
显示数组中的值
DUMP ALL 显示整个数组

当然，命令处理代码占整个应用程序的大约80％。要测试这个，请编译以下控制台应用程序，找到可执行文件并启动它两次。转到第一个窗口并输入：

SET 1 100 SET 2 50

转到第二个控制台并输入：

DUMP 1 DUMP 2 DUMP 3 SET 1 150

转到第一个控制台并输入：

DUMP 1

你有它，你刚刚目睹了两个应用程序之间共享内存。

program Project2; {$APPTYPE CONSOLE} uses SysUtils, Windows, Classes; type TSharedArray = array[0..10] of Integer; PSharedArray = ^TSharedArray; var hFileMapping: THandle; // Mapping handle obtained using CreateFileMapping SharedArray: PSharedArray; // Pointer to the shared array cmd, s: string; num, value, i: Integer; L_CMD: TStringList; function ReadNextCommand: string; begin WriteLn('Please enter command (one of EXIT, SET NUM VALUE, DUMP NUM, DUMP ALL)'); WriteLn; ReadLn(Result); end; begin try hFileMapping := CreateFileMapping(0, nil, PAGE_READWRITE, 0, SizeOf(TSharedArray), '{C616DDE6-23E2-425C-B871-9E0DA54D96DF}'); if hFileMapping = 0 then RaiseLastOSError else try SharedArray := MapViewOfFile(hFileMapping, FILE_MAP_READ or FILE_MAP_WRITE, 0, 0, SizeOf(TSharedArray)); if SharedArray = nil then RaiseLastOSError else try WriteLn('Connected to the shared view of the file.'); cmd := ReadNextCommand; while UpperCase(cmd) <> 'EXIT' do begin L_CMD := TStringList.Create; try L_CMD.DelimitedText := cmd; for i:=0 to L_CMD.Count-1 do L_CMD[i] := UpperCase(L_CMD[i]); if (L_CMD.Count = 2) and (L_CMD[0] = 'DUMP') and TryStrToInt(L_CMD[1], num) then WriteLn('SharedArray[', num, ']=', SharedArray^[num]) else if (L_CMD.Count = 2) and (L_CMD[0] = 'DUMP') and (L_CMD[1] = 'ALL') then begin for i:= Low(SharedArray^) to High(SharedArray^) do WriteLn('SharedArray[', i, ']=', SharedArray^[i]); end else if (L_CMD.Count = 3) and (L_CMD[0] = 'SET') and TryStrToInt(L_CMD[1], num) and TryStrToInt(L_CMD[2], value) then begin SharedArray^[num] := Value; WriteLn('SharedArray[', num, ']=', SharedArray^[num]); end else WriteLn('Error processing command: ' + cmd); finally L_CMD.Free; end; // Requst next command cmd := ReadNextCommand; end; finally UnmapViewOfFile(SharedArray); end; finally CloseHandle(hFileMapping); end; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.

Answer 2

Named File Mapping是最简单的解决方案，这里有一些简短的示例代码。在此示例中，有一个主程序可以写入一些仅从中读取的数据和读取器。

主：

type
  TSharedData = record
    Handle: THandle;
  end;
  PSharedData = ^TSharedData;

const
  BUF_SIZE = 256;
var
  SharedData: PSharedData;
  hFileMapping: THandle;  // Don't forget to close when you're done

function CreateNamedFileMapping(const Name: String): THandle;
begin
  Result := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0,
    BUF_SIZE, PChar(Name));

  Win32Check(Result > 0);

  SharedData := MapViewOfFile(Result, FILE_MAP_ALL_ACCESS, 0, 0, BUF_SIZE);

  Win32Check(Assigned(SharedData));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hFileMapping := CreateNamedFileMapping('MySharedMemory');
  Win32Check(hFileMapping > 0);
  SharedData^.Handle := CreateHiddenWindow;
end;

阅读器：

var
  hMapFile: THandle;   // Don't forget to close

function GetSharedData: PSharedData;
begin
  hMapFile := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MySharedMemory');
  Win32Check(hMapFile > 0);

  Result := MapViewOfFile(hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, BUF_SIZE);

  Win32Check(Assigned(Result));
end;

在Delphi中的两个应用程序之间共享数据数组

2 个答案: