Как работать с блоками памяти размером более 64K

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

Так можно помещать в один блок памяти записи из TList (TCollection):

implementation
{ To use the value of AHIncr, use Ofs(AHIncr). }

procedure AHIncr; far; external 'KERNEL' index 114;

const
  NEXT_SELECTOR: string[13] = 'NEXT_SELECTOR';

function WriteData: THandle;
var
  DataPtr: PChar;
  i: Integer;
begin
  Result := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, {pазмеp большого блока});
  if Result = 0 then
    Exit;

  DataPtr := GlobalLock(Result);

  {записываем кол-во эл-тов}
  Inc(DataPtr, {pазмеp счетчика эл-тов})

  for i := 0 to {некий}  Count - 1 do
  begin
    if LongInt(PtrRec(DataPtr).Ofs) + {pазмеp подблока} > l = $FFFF then
    begin
      Move(NEXT_SELECTOR, DataPtr^, SizeOf(NEXT_SELECTOR)); {некая константа}
      { коppекция сегмента }
      PtrRec(DataPtr).Seg := PtrRec(DataPtr).Seg + Ofs(AHIncr);
      PtrRec(DataPtr).Ofs := $0;
    end;
    Inc(DataPtr, {pазмеp нового блока});
  end; { for i }
  GlobalUnlock(Result);
end;

procedure ReadData(DataHdl: THandle);
var
  DataPtr: PObjectCfgRec;
  RecsCount: Integer;
  i: Integer;
begin
  if DataHdl = 0 then
    Exit;
  DataPtr := GlobalLock(DataHdl);
  RecsCount := PInteger(DataPtr)^;
  Inc(PInteger(DataPtr));
  for i := 1 to RecsCount do
  begin
    { обpаботать данные }
    Inc(DataPtr);
    if PString(DataPtr)^ = NEXT_SELECTOR then
    begin
      PtrRec(DataPtr).Seg := PtrRec(DataPtr).Seg + Ofs(AHIncr);
      PtrRec(DataPtr).Ofs := $0;
    end;
  end; { for i }
  GlobalUnlock(DataHdl);
end;

Код, предоставленный ниже, представляет собой реализацию системы управления памятью в Delphi, которая позволяет программе работать с блоками памяти размером более 64K. Это достигается за счет использования функций GlobalAlloc и GlobalLock из Windows API, а также некоторых custom-реализаций для работы с большими блоками памяти.

Вот подробное описание того, как это работает:

• Процедура WriteData выделяет блок памяти с помощью GlobalAlloc, устанавливает указатель на начало блока (DataPtr) и затем пишет данные в блок. Это включает в себя запись счета элементов в блоке, а также фактических данных.
• Когда данные достигают конца текущего блока, она проверяет, есть ли достаточно свободного места в блоке для записи более данных. Если нет, то она перемещается на новый блок, копируя строку NEXT_SELECTOR в начало нового блока и обновляя сегментный offset (PtrRec( DataPtr ).Seg) соответственно.
• Процедура ReadData читает данные из памяти блока, выделитого с помощью GlobalAlloc. Она блокирует память блока с помощью GlobalLock, читает счет элементов в блоке и затем перебирает каждый элемент, обрабатывая данные по мере необходимости. Если она встречает строку NEXT_SELECTOR, она обновляет сегментный offset (PtrRec( DataPtr ).Seg) соответственно.

Почему это код необходим, является тем, что Delphi'ы TList (и другие типы коллекций) имеют внутренний буфер фиксированного размера (64K), который может привести к проблемам при работе с большими объемами данных. Используя custom-менеджмент памяти, программа может выделять и управлять блоками памяти размером более 64K, что позволяет ей работать с большими наборами данных.

Обратите внимание, что это код является quite сложным и может требовать хорошего понимания управления памятью Delphi и функциями Windows API для полного понимания его функциональности.

Статья описывает способ работы с блоками памяти размером более 64К в Delphi, используя функции GlobalAlloc и GlobalLock для управления доступом к памяти.

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

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

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