"Исправление ошибок при записи и чтении строк в ресурсы EXE файлов на Delphi: важность нулевого символа"

Delphi , Файловая система , Ресурсы

Исправление ошибок при записи и чтении строк в ресурсы EXE файлов на Delphi: важность нулевого символа

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

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

Разработчик столкнулся с проблемой, когда при записи строки в ресурсы EXE файла, например, "test123", при чтении он получал "test123Click". Аналогично, для строк "test" и "name" результатом чтения были строки "test." и "name.", соответственно. Это происходило несмотря на использование нормальных строк, не ANSI и не UTF8.

Пример кода для записи строки

procedure WriteSettings(ServerFile: string; Settings: string);
var
  ResourceHandle: THandle;
begin
  ResourceHandle := BeginUpdateResource(PChar(ServerFile), False);
  Win32Check(ResourceHandle <> nil);
  UpdateResource(ResourceHandle, MakeIntResource(10), 'SETTINGS', 0,
    PChar(Settings), (Length(Settings) + 1) * SizeOf(Settings[1]));
  Win32Check(EndUpdateResource(ResourceHandle, False));
end;

Пример кода для чтения строки

function LoadSettings: string;
var
  ResourceLocation: HRSRC;
  ResourceSize: DWORD;
  ResourceHandle: THandle;
  ResourcePointer: PChar;
begin
  ResourceLocation := FindResource(hInstance, 'SETTINGS', RT_RCDATA);
  ResourceSize := SizeofResource(hInstance, ResourceLocation);
  ResourceHandle := LoadResource(hInstance, ResourceLocation);
  ResourcePointer := LockResource(ResourceHandle);
  if ResourcePointer <> nil then
  begin
    SetLength(Result, ResourceSize);
    CopyMemory(@Result[1], ResourcePointer, ResourceSize);
    FreeResource(ResourceHandle);
  end;
end;

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

Проблема заключается в том, что при записи строки в ресурс необходимо передавать размер строки вместе с нулевым символом в конце. В параметр функции UpdateResource для указания размера данных необходимо передавать (Length(Settings) + 1) * SizeOf(Settings[1]), чтобы включить нулевой символ в конец строки.

Также, в исходном примере кода для записи используется PWideChar(Settings), что является излишним, поскольку все функции уже используют Unicode, и достаточно передать PChar(Settings). Кроме того, динамическое выделение памяти для pwServerFile в исходном коде не требуется.

Исправленный код для записи строки

procedure WriteSettings(ServerFile: string; Settings: string);
var
  ResourceHandle: THandle;
begin
  ResourceHandle := BeginUpdateResource(PChar(ServerFile), False);
  Win32Check(ResourceHandle <> nil);
  UpdateResource(ResourceHandle, MakeIntResource(10), 'SETTINGS', 0,
    PChar(Settings), (Length(Settings) + SizeOf(Char))); // Учитываем нулевой символ
  Win32Check(EndUpdateResource(ResourceHandle, False));
end;

Важность нулевого символа

Нулевой символ (null terminator) является обязательным элементом строки в C-стиле, который указывает на её конец. Без нулевого символа функция FindResource и другие функции, использующие строки, не смогут корректно определить длину строки и её конец.

Заключение

При работе с ресурсами EXE файлов в Delphi важно помнить о необходимости включения нулевого символа в конец строки при её записи. Это позволит избежать ошибок, связанных с неправильным чтением данных из ресурсов.

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

Проблема заключается в необходимости включения нулевого символа в конец строки при её записи в ресурсы EXE файла для корректного чтения в дальнейшем.

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

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

:: Главная :: Ресурсы ::