Как извлечь строку RCDATA из ресурсов в Delphi: пример с кодом

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

В Delphi часто возникает необходимость хранить данные, такие как строки конфигурации или URL, в ресурсах приложения. Это позволяет легко обновлять эти данные без перекомпиляции всего приложения. Файлы ресурсов (RC) позволяют хранить различные типы данных, включая изображения и строки, которые можно извлечь и использовать в вашем коде.

В этой статье мы рассмотрим, как извлечь строку RCDATA из ресурса, используя примеры кода на Object Pascal (Delphi).

Проблема:

Предположим, у вас есть RC-файл, содержащий строковые данные, например:

site RCDATA { "https://www.example.com" }

И вы хотите получить эту строку "https://www.example.com" в своем Delphi-приложении.

Решение:

Основной подход заключается в использовании TResourceStream для доступа к ресурсу и последующей интерпретации данных. Важно помнить о кодировке строки, сохраненной в ресурсе.

Вот пример кода, демонстрирующий, как это сделать:

uses
  System.Classes, System.SysUtils;

function GetStringFromResource(resName: string): string;
var
  RS: TResourceStream;
  LData: TBytes;
  LStr: string;
begin
  Result := '';
  RS := TResourceStream.Create(HInstance, resName, RT_RCDATA);
  try
    SetLength(LData, RS.Size);
    RS.ReadData(LData, RS.Size);
    LStr := TEncoding.ASCII.GetString(LData); // Предполагаем кодировку ASCII
    Result := LStr;
  finally
    RS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  siteURL: string;
begin
  siteURL := GetStringFromResource('site');
  ShowMessage(siteURL); // Отобразит "https://www.example.com"
end;

Пояснение кода:

1. GetStringFromResource(resName: string): string;: Функция, принимающая имя ресурса (resName) и возвращающая строку, извлеченную из ресурса.
2. RS := TResourceStream.Create(HInstance, resName, RT_RCDATA);: Создает экземпляр TResourceStream для доступа к ресурсу. HInstance - это handle экземпляра приложения. RT_RCDATA указывает на тип ресурса RCDATA.
3. SetLength(LData, RS.Size);: Выделяет память для массива байтов LData размером, равным размеру ресурса.
4. RS.ReadData(LData, RS.Size);: Считывает данные из ресурса в массив байтов LData.
5. LStr := TEncoding.ASCII.GetString(LData);: Преобразует массив байтов LData в строку, используя кодировку ASCII. Важно: Если ваша строка в ресурсе сохранена в другой кодировке (например, UTF-8), вам нужно использовать соответствующую кодировку (TEncoding.UTF8).
6. RS.Free;: Освобождает ресурсы, выделенные для TResourceStream.

Альтернативное решение с использованием TStringList:

Можно использовать TStringList для более удобной работы с данными, особенно если в RCDATA хранится несколько строк:

uses
  System.Classes, System.SysUtils;

function GetStringFromResourceUsingStringList(resName: string): string;
var
  List: TStringList;
  RS: TResourceStream;
begin
  Result := '';
  List := TStringList.Create;
  try
    RS := TResourceStream.Create(HInstance, resName, RT_RCDATA);
    try
      List.LoadFromStream(RS, TEncoding.ASCII); // Предполагаем кодировку ASCII
      Result := List.Text; // Получаем все строки, объединенные в одну
    finally
      RS.Free;
    end;
  finally
    List.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  siteURL: string;
begin
  siteURL := GetStringFromResourceUsingStringList('site');
  ShowMessage(siteURL);
end;

В этом варианте TStringList.LoadFromStream автоматически считывает данные из потока и преобразует их в строки, используя указанную кодировку. List.Text возвращает все строки, объединенные в одну строку.

Важное замечание о коде из вопроса:

Код для загрузки изображений из ресурсов, представленный в вопросе, содержит потенциальную ошибку, связанную с освобождением неинициализированной переменной. Всегда инициализируйте локальные переменные объектов перед использованием блока try...finally. Правильный вариант:

Var
  img: TWICImage;
Begin
  img := nil; // Инициализация!
  Try
    img := TWICImage.create;
    img.LoadFromResourceName(HInstance, resName);
    im.Picture.Graphic := img;
    Result := true;
  Finally
    img.free;
  End;

Или, что предпочтительнее:

Var
  img: TWICImage;
Begin
  img := TWICImage.Create;
  Try
    img.LoadFromResourceName(HInstance, resName);
    im.Picture.Graphic := img;
    Result := true;
  Finally
    img.Free;
  End;

Заключение:

Извлечение строк RCDATA из ресурсов в Delphi - это простая задача, требующая использования TResourceStream и правильной интерпретации данных с учетом кодировки. Представленные примеры кода демонстрируют два подхода: прямой доступ к байтам и использование TStringList. Не забывайте об инициализации переменных объектов, чтобы избежать потенциальных ошибок и утечек памяти.

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

В статье представлено решение задачи извлечения строки RCDATA из ресурсов Delphi-приложения с использованием `TResourceStream` и `TStringList`, с учетом кодировки и корректной инициализации переменных.

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

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

:: Главная :: TStringGrid и TDrawGrid ::