Как правильно сохранить строку Base64 в бинарный файл для использования в PDF в Delphi

Delphi , Синтаксис , Массивы

Приветствую! В данной статье мы рассмотрим, как можно преобразовать строку, закодированную в Base64, содержащую данные PDF, в бинарный файл, используя язык программирования Object Pascal в среде разработки Delphi. Это может быть полезно, например, при работе с PDF-документами, полученными в виде строки Base64, и необходимости их сохранения в файл для дальнейшего использования.

Проблема и контекст

Вы столкнулись с проблемой сохранения строки, закодированной в Base64, в бинарный файл, который можно было бы использовать как PDF. Используя стандартный модуль EncdDecd, вы смогли декодировать строку в массив байтов. Однако, при попытке преобразовать этот массив в строку, возникли трудности с обработкой нулевых значений. Также было замечено, что запись данных в текстовый файл, после переименования которого в PDF, не приводит к корректному отображению содержимого.

Подход к решению

Для решения данной проблемы необходимо использовать потоковых ввод-вывод данных, а именно TFileStream или TMemoryStream. Эти классы предоставляют функции для записи и чтения данных в бинарном формате, что идеально подходит для работы с файлами, содержащими бинарные данные, такими как PDF.

Пример кода

Ниже приведен пример кода, который демонстрирует, как можно декодировать строку Base64 и записать её содержимое в бинарный файл, который можно использовать как PDF:

procedure DecodeBaseToFile(const FileName: string; const EncodedString: AnsiString);
var
  bytes: TBytes;
  Stream: TFileStream;
begin
  bytes := DecodeBase64(EncodedString);
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    if bytes <> nil then
      Stream.WriteBuffer(bytes[0], Length(bytes));
  finally
    Stream.Free;
  end;
end;

Обратите внимание, что для работы кода вам понадобится модуль EncdDecd, который содержит функцию DecodeBase64. Также важно корректно обработать возможные исключения, которые могут возникнуть при работе с файлами.

Альтернативный подход

В качестве альтернативы TFileStream можно использовать TMemoryStream, который является потомком TMemoryStream класса System.Classes и имеет метод SaveToFile, что упрощает процесс записи данных в файл.

procedure DecodeBaseToMemoryStream(const EncodedString: AnsiString; var Stream: TMemoryStream);
begin
  Stream := TMemoryStream.Create;
  try
    Stream.WriteBuffer(DecodeBase64(EncodedString), Length(DecodeBase64(EncodedString)));
    Stream.SaveToFile('output.pdf');
  finally
    Stream.Free;
  end;
end;

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

В сообщениях к вопросу было предоставлено решение, которое выражается в использовании потока TFileStream для записи декодированных данных из строки Base64 непосредственно в файл. Это решение подтверждено сообществом, как эффективный способ преобразования строки в бинарный файл.

Заключение

В данной статье мы рассмотрели, как можно применить знания о потоковом вводе-вывода в Delphi для решения задачи сохранения строки Base64 в бинарный файл в формате PDF. Используя приведенные примеры, вы сможете легко интегрировать полученные данные в свой проект и использовать их для дальнейшей работы с PDF-документами.

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

Пользователь столкнулся с задачей преобразования строки Base64 в бинарный файл для использования в PDF в среде Delphi и требует помощи в этом вопросе.

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

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

:: Главная :: Массивы ::