🧠 はじめに：なぜ共有メモリを使うのか

アプリケーション間でデータをやり取りする方法はいくつかあります。
代表的なものとして：

ファイルを経由して読み書きする
TCP/UDP ソケット通信を行う
Named Pipe（名前付きパイプ）を利用する

しかしこれらは「I/O処理」が介在するため、速度やタイミングの同期が難しいという欠点があります。

一方で、共有メモリ（Memory-Mapped File） を使うと、
OSが管理する同一メモリ空間を同じのプロセスで共有でき、
高速かつ安全にデータを交換できます。
別プロセス間で共有するには管理者権限が必要

💡 例えば、画像処理ソフトやマルチスレッドエンジン、DirectXなどでも
内部で同じ仕組みを使ってデータを共有しています。

🧩 本記事で扱う内容

Delphiで共有メモリを扱うための基礎クラス
TSharedMemoryBase と、
それを利用した文字列共有クラス TSharedMemoryStringList を紹介します。

また、実際に動作を確認できるフォーム：

固定レコード（文字列＋数値）共有フォーム
→ SharedMemorySampleSubForm
文字列リスト共有フォーム
→ SharedMemorySampleListForm

の2つを使い、共有メモリを用いたリアルタイムなデータ共有を実際に確認します。

⚙️ クラス構成

クラス名	役割
`TSharedMemoryBase`	共有メモリの生成・マッピング・破棄を担当。構造体やバイナリを書き込める基礎クラス。
`TSharedMemoryStringList`	固定長文字列の配列を共有メモリ上に保持。Add / IndexOf / Count などの簡易APIを提供。

💡 共有メモリの基本概念

Windows API の CreateFileMapping と MapViewOfFile を使うと、
OS管理下にある物理メモリ領域を「ファイルのように扱う」ことができます。

この仕組みをDelphiから直接利用するのが TSharedMemoryBase です。
ファイルを作らずに INVALID_HANDLE_VALUE を指定することで、
純粋なメモリ共有（非永続） が実現できます。

🧱 実装概要

🔹 1. 共有メモリの生成

FHandle := CreateFileMapping(INVALID_HANDLE_VALUE, nil, PAGE_READWRITE, 0, Size, PChar(Name));
FView   := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, Size);

🔹 2. データの読み書き

固定サイズの領域を Move を使って直接コピーします。

Move(Data, FView^, SizeOf(Data));

🧮 使い方（TSharedMemoryStringList）

uses SharedMemoryBase;

var
  Shared: TSharedMemoryStringList;
begin
  Shared := TSharedMemoryStringList.Create('Local\SampleList', 32, 64);
  Shared.Add('Example A');
  Shared.Add('Example B');

  ShowMessage(Shared[0]);  // => Example A
  Shared.Free;
end;

上記のように単純に生成して使うだけで、
同じプロセス上の別フォーム間でも同じメモリ領域を共有できます。

🧪 サンプルフォーム①：`SharedMemorySampleSubForm`

🔸 概要

このフォームでは、固定長レコード（文字列＋数値） を共有します。
構造体をそのまま共有メモリに書き込むため、可変長文字列は使用せず固定バッファ化しています。

コンポーネント	役割
Edit（文字列）	固定長文字列を入力
Edit（数値）	整数値を入力
Button（書き込み）	入力内容を共有メモリに保存
Button（読み込み）	共有メモリから読み出し
Label	状態表示（IsOwner, Sizeなど）

🔸 動作イメージ

🖼️ 書き込み

🖼️ 読み込み（別インスタンスで）

片方で数値や文字列を書き換えると、
もう片方で「読み込み」ボタンを押すだけで即座に反映されます。

🧾 サンプルフォーム②：`SharedMemorySampleListForm`

🔸 概要

TSharedMemoryStringList を利用した、文字列配列共有サンプルです。
複数フォームを同時に開き、内容が共有されることを確認します。

コンポーネント	役割
Label	現在の行数を表示
Memo	共有されている文字列を表示／編集
Button（読み込み）	メモリ → Memo に反映
Button（書き込み）	Memo → メモリに保存

🔸 動作イメージ

🖼️ フォームA（書き込み側）

🖼️ フォームB（読み込み側）

片方で「書き込み」を押すと、
もう一方の「読み込み」で内容が同期します。
複数フォームを開いて同じ Local\SampleList 名を使用すれば、
すべてが同じ共有メモリを参照します。

⚙️ 開発環境

Delphi 10 以降
Windows 10 / 11
32bit / 64bit 対応

📚 まとめ

共有メモリを使うことで、

高速でI/Oを伴わないデータ共有
同じプロセスのプログラムで構造体レベルの通信
UIフォーム間でのリアルタイム同期

といった動作を、わずか数行で実装できます。

TSharedMemoryBase は最小限のラッパクラスであり、
自作のデータ構造（レコード・画像・設定）を自由に共有できる
拡張可能な基礎ユニット です。

🔗 ソースコード

GitHub:
👉 https://github.com/vramwiz/SharedMemoryBase

🏷️ License

MIT License
Copyright (c) 2025 VRAMWiz