Исправление порядка байтов GUID в Delphi: работа с двоичными данными из реестра

Delphi , ОС и Железо , Реестр

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

Описание проблемы

Пользователь пытается прочитать значение GUID, хранящееся в реестре в виде двоичных данных, используя Delphi. При чтении значения с помощью функции BinToHex, результат получается в перевернутом виде. Пользователь предполагает, что необходимо выполнить обмен байтами, однако ожидал, что функция BinToHex выполнит эту операцию самостоятельно. Проблема, вероятно, связана с использованием малоимernel'а.

Пример кода

Вот пример кода, который приводит к обратному порядку байтов:

var
  s: string;
  buffer: pointer;
...
begin
  GetMem(buffer, 1024*1024);
  ...
  Reg.ReadBinaryData(iValueOfregistry, buffer^, 1024*1024);
  ...
  BinToHex(Pointer(LongInt(buffer)+14), PChar(s), 32);
end;

Полученный результат для s имеет вид __90E24D373F1265459164-39C4925E467B__, в то время как ожидаемый GUID FOLDERID_Downloads должен быть представлен как {374DE290-123F-4565-9164-39C4-925E467B}.

Подтвержденный ответ

Для корректного чтения GUID из двоичных данных реестра можно использовать записанный в Delphi тип TGUID. Все, что нужно сделать, это скопировать соответствующие байты непосредственно в переменную типа TGUID, после чего проблема порядка байтов будет решена автоматически. Если нужен строковый представление GUID, можно использовать функцию GUIDToString.

var
  GUID: TGUID;
  strGUID: string;
...
  GUID := PGUID(PAnsiChar(buffer)+14)^;
  strGUID := GUIDToString(GUID);

Тип TGUID в Delphi представлен как запись, которая автоматически обрабатывает вопросы порядка байтов:

TGUID = packed record
  D1: LongWord;
  D2: Word;
  D3: Word;
  D4: array[0..7] of Byte;
end;

При прямом обращении к байтам записи TGUID, как это делается в исходном коде, происходит переворот первых 4 байтов, принадлежащих полю D1, последующих двух байтов поля D2 и еще двух байтов поля D3. Это и вызывает необходимость корректировки порядка байтов.

Альтернативные способы чтения GUID

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

Заключение

При работе с двоичными данными в Delphi, особенно в контексте GUID, важно помнить о порядке байтов и использовать встроенные в язык средства для его коррекции. Использование типа TGUID и функций для работы с GUID из стандартного модуля System позволит избежать ошибок и упростит работу с двоичными данными реестра.

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

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

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

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

:: Главная :: Реестр ::