# Разбираемся с вложенным массивом в `RETRIEVAL_POINTERS_BUFFER` для Delphi

Delphi , Синтаксис , Справочник по API-функциям

Разбираемся с вложенным массивом в RETRIEVAL_POINTERS_BUFFER для Delphi

При работе с Windows API разработчики часто сталкиваются с необходимостью переноса структур из C++ в Delphi. Это может быть связано с определенными трудностями, особенно когда в структуре присутствуют вложенные массивы. В данной статье мы рассмотрим, как правильно перенести структуру RETRIEVAL_POINTERS_BUFFER из C++ в Delphi.

Оригинальная структура в C++

В C++ структура RETRIEVAL_POINTERS_BUFFER выглядит следующим образом:

typedef struct RETRIEVAL_POINTERS_BUFFER {
  DWORD         ExtentCount;
  LARGE_INTEGER StartingVcn;
  struct {
    LARGE_INTEGER NextVcn;
    LARGE_INTEGER Lcn;
  } Extents[1];
} RETRIEVAL_POINTERS_BUFFER, *PRETRIEVAL_POINTERS_BUFFER;

Обратите внимание, что внутри структуры есть вложенный массив Extents, содержащий один элемент.

Перенос структуры в Delphi

В Delphi для работы с Windows API часто используются записи (records). Переносим структуру RETRIEVAL_POINTERS_BUFFER в Delphi:

type
  TExtent = record
    NextVcn: LARGE_INTEGER;
    Lcn: LARGE_INTEGER;
  end;

  PRETRIEVAL_POINTERS_BUFFER = ^TRetrievalPointersBuffer;
  TRetrievalPointersBuffer = record
    ExtentCount: DWORD;
    StartingVcn: LARGE_INTEGER;
    Extents: array [0..0] of TExtent;
  end;

Важные моменты

• LARGE_INTEGER в C++ должен быть переведен как LARGE_INTEGER в Delphi, а не как Integer, так как LARGE_INTEGER является 64-битным целым числом и беззнаковым (в отличие от Integer в Delphi, которое является 32-битным и знаковым).
• Поле Extents в Delphi должно быть объявлено как фиксированный массив с размером [0..0], так как в C++ он объявлен как массив с одним элементом. В реальной структуре будет использоваться количество элементов, указанное в поле ExtentCount.
• Для работы с LARGE_INTEGER в Delphi можно использовать альтернативное объявление, где LARGE_INTEGER представлен как запись с полями LowPart, HighPart или QuadPart.

LARGE_INTEGER = record
  case Integer of
    0: ( LowPart: DWORD;
      HighPart: Longint; );
    1: ( QuadPart: LONGLONG);
end;

• Вложенный массив в структуре обычно выделяется на куче. Однако, если известен максимально возможный размер массива, его можно выделить на стеке.

Заключение

При переносе структур из C++ в Delphi важно правильно обработать типы данных и массивы. В случае с RETRIEVAL_POINTERS_BUFFER ключевым моментом является корректное объявление вложенного массива Extents. Следуя представленным выше рекомендациям, вы сможете успешно использовать данную структуру в своих Delphi проектах, работающих с Windows API.

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

Пример перевода структуры `RETRIEVAL_POINTERS_BUFFER` из C++ в Delphi с учетом вложенного массива.

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

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

:: Главная :: Справочник по API-функциям ::