Delphi как декодировать файл в формате Base64?

Pascal, Delphi, Lazarus Delphi
#1

Добрый день!
как декодировать файл в формате Base64?
знаю есть NetEncoding, пробую, но не получается

#2

Так а что выдает, что в коде?

#3

Реализую так

image
image709×158 9.12 KB

получаю вот это:
Base64 → Декодирование
image
По итогу файл : Json_Decode1.jpg не открывается, пишет, что поврежден

#4

Я бы сразу писал байты в файл без строки и мемо.
С TFileStream как-нибудь так: delphi - How to convert TBytes to Binary File? (using MemoryStream) - Stack Overflow

#5

Тестировала так тоже, но не получается

Прочитала, что необходимо

  1. Декодировать base64 в двоичный код.
  2. Обработать двоичный файл как кодированный текст UTF-8.
  3. Декодировать UTF-8 байт в текст.
#6

А при чем здесь UTF8 ?

#7

Это именно про этот случай или про что? Base64 откуда получен?
Если изначально закодированы просто байты файла, то вряд ли надо что-то еще декодировать.

#8

Это Delphi и HTTP. Отправляю гет запрос на получение файла

#9

хм, TNetEncoding похоже и правда что-то странное с кодировками делает.

У меня тоже не сработало на этом base64, по крайней мере в Лазарусе.

так работает:

uses
  ........, SysUtils, base64;

procedure TForm1.Button1Click(Sender: TObject);
var
  base64, decoded: string;
  bs: TBytesStream;
begin
  base64 := Memo1.Text;

  decoded := DecodeStringBase64(base64);

  bs := TBytesStream.Create(BytesOf(decoded));
  try
    bs.SaveToFile('img.jpg');
  finally
    bs.Free;
  end;

  OpenDocument('img.jpg');
end;

image
image761×492 115 KB

Но в Дельфи вроде нет DecodeStringBase64.
Так что я бы поискал какой-нибудь другой аналог.

#10

Все решила. Использовала System.NetEncoding
image