Недавно добавленные исходники

•  TDictionary Custom Sort  537

•  Fast Watermark Sources  902

•  3D Designer  1 830

•  Sik Screen Capture  1 477

•  Patch Maker  1 485

•  Айболит (remote control)  1 409

•  ListBox Drag & Drop  1 176

•  Доска для игры Реверси  21 917

•  Графические эффекты  1 357

•  Рисование по маске  1 296

•  Перетаскивание изображений  1 096

•  Canvas Drawing  971

•  Рисование Луны  814

•  Поворот изображения  771

•  Рисование стержней  815

•  Paint on Shape  493

•  Генератор кроссвордов  762

•  Головоломка Paletto  667

•  Теорема Монжа об окружностях  855

•  Пазл Numbrix  619

•  Заборы и коммивояжеры  849

•  Игра HIP  557

•  Игра Go (Го)  527

•  Симулятор лифта  549

•  Программа укладки плитки  509

•  Генератор лабиринта  565

•  Проверка числового ввода  524

•  HEX View  600

•  Физический маятник  528

•  Задача коммивояжера  560

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Общий доступ к памяти, распределенной DLL



Общий доступ к области отображения файлов (Sharing Memory Mapped Files)... Проверьте нижеследующий код:


var

  HMapping: THandle;
  PMapData: Pointer;

const

  MAPFILESIZE = 1000;

procedure OpenMap;
var

  llInit: Boolean;
  lInt: Integer;
begin

  HMapping := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, MAPFILESIZE,
    pchar('ИМЯ ОБЛАСТИ ОТОБРАЖЕНИЯ'));
  // Проверка наличия
  llInit := (GetLastError() <> ERROR_ALREADY_EXISTS);
  if (hMapping = 0) then
  begin
    ShowMessage('Невозможно создать объект отображения файла');
    Application.Terminate;
    exit;
  end;
  PMapData := MapViewOfFile(HMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);
  if PMapData = nil then
  begin
    CloseHandle(HMapping);
    ShowMessage('Невозможно отобразить блок памяти');
    Application.Terminate;
    exit;
  end;
  if (llInit) then
  begin
    // Если объект отображения создан, инициализируем блок символами #0
    memset(PMapData, #0, MAPFILESIZE);
  end;
end;

procedure CloseMap;
begin

  if PMapData <> nil then
  begin
    UnMapViewOfFile(PMapData);
  end;
  if HMapping <> 0 then
  begin
    CloseHandle(HMapping);
  end;
end;

{ Таким образом любые два или более приложения или DLL могут получить указатели к
  одному и тому же блоку памяти.В данном примере PMapData указывает на 1000 -
  байтный буфер, инициализированный вначале символами #0.Однако существует одна
  потенциальная проблема - синхронизация доступа к памяти.Решить эту проблему можно
  с помощью мьютексов.Вот пример их использования:

  Вызовите LockMap перед записью (и чтением?) объекта отображения файла.
Не забывайте после каждого обновления немедленно вызывать UnlockMap. }

var

  HMapMutex: THandle;

const

  REQUEST_TIMEOUT = 1000;

function LockMap: Boolean;
begin

  Result := true;
  HMapMutex := CreateMutex(nil, false, pchar('ИМЯ ВАШЕГО МЬЮТЕКСА'));
  if HMixMutex = 0 then
  begin
    ShowMessage('Не могу создать мьютекс');
    Result := false;
  end
  else
  begin
    if WaitForSingleObject(HMapMutex, REQUEST_TIMEOUT) = WAIT_FAILED then
    begin
      // время ожидания
      ShowMessage('Невозможно заблокировать объект отображения файла');
      Result := false;
    end;
  end;
end;

procedure UnlockMap;
begin

  ReleaseMutex(HMixMutex);
  CloseHandle(HMixMutex);
end;





Похожие по теме исходники

DLL Form

DLL in Resources

DLL Injector




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram