Разделяем доступ к статическому массиву данных между приложениями в Delphi: эффективное использование памяти и скорость чтения

Delphi , Синтаксис , Память и Указатели

Разделяем доступ к статическому массиву данных между приложениями в Delphi

Вопрос пользователя заключается в желании разделить доступ к массиву данных между двумя приложениями на Delphi, причем первый программа создает массив, а второй может читать данные из уже выделенной памяти. Пользователь нашел способ передачи указателя через OpenFileMapping и MapViewOfFile, но столкнулся с трудностями при реализации и не хочет использовать методы межпроцессного взаимодействия (IPC).

Подход к решению

Для решения задачи разделяемого доступа к массиву данных между приложениями можно использовать механизм именованного файл-карты памяти (Named File Mapping). Это позволит нескольким процессам работать с одним и тем же блоком памяти, что и является основой для реализации IPC без необходимости использовать традиционные методы обмена сообщениями.

Пример кода

Ниже представлен пример кода, демонстрирующего создание и использование именованного файл-карты памяти. В этом примере основная программа записывает данные, а читающие программы только читают информацию из этого блока памяти.

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

const
  BUF_SIZE = SizeOf(TSharedArray);

var
  SharedArray: PSharedArray; // Указатель на разделяемый массив
  hFileMapping: THandle;     // Дескриптор карты файла

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

  SharedArray := MapViewOfFile(Result, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TSharedArray));
  Win32Check(Assigned(SharedArray));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  hFileMapping := CreateNamedFileMapping('MySharedMemory');
  Win32Check(hFileMapping > 0);
  // Здесь может быть код для инициализации массива
end;

function GetSharedArray: PSharedArray;
begin
  hFileMapping := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MySharedMemory');
  Win32Check(hFileMapping > 0);

  Result := MapViewOfFile(hFileMapping, FILE_MAP_ALL_ACCESS, 0, 0, SizeOf(TSharedArray));
  Win32Check(Assigned(Result));
end;

Обратите внимание на то, что после использования CreateFileMapping и MapViewOfFile необходимо не забыть освободить выделенные дескрипторы файлов, вызвав CloseHandle для hFileMapping и UnmapViewOfFile для SharedArray после завершения работы с разделяемым массивом.

Пример использования динамического массива

Для использования динамического массива необходимо учитывать, что динамические массивы выделяются в куче, и указатель на них не будет валидным для всех приложений. В таком случае можно разработать собственную структуру данных, которая не использует абсолютные указатели, а работает с индексами. Или же можно выделить достаточно большой массив изначально.

Заключение

Использование именованного файл-карты памяти позволяет эффективно разделять доступ к массиву данных между приложениями, минимизировать использование памяти и повысить скорость чтения данных. Это решение может быть полезно в различных сценариях, где требуется обмен данными между процессами.

Создано по материалам из источника по ссылке.

Обсуждается использование механизма именованного файл-карты памяти для реализации разделяемого доступа к массиву данных между приложениями в Delphi, с примерами создания и работы с такой картой, а также важностью освобождения ресурсов после использования

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Память и Указатели ::