base64 в delphi 2009

[Shad0w64bit]

Здравствуйте! У меня есть закодированый в base64 jpg файл base64.txt
если декодировать код на этом сайте то в итоге получается бинарный файл с картинкой

Собственно вопросы:
1)В каких кодировках надо загружать и сохранять файл
2)Каким образом его декодировать

Декодировать пробовал этим

_decoder := TIdDecoderMIME.Create(nil);
text := _decoder.DecodeString(text);
freeandnil(_decoder);

но в итоге вместо

JFIF;CREATOR: gd-jpeg v1.0

получаю

JFIF;CREATOR: gd-jpeg?абв... и дальше код не совпадаетт

возможно это из за кодировок. Прошу вашей помощи !HELP!

буду рад примеру

[W0LF]

А почему бы не воспользоваться функциями:

DecodeStream(Input: TStream; Output: TStream);
EncodeStream(Input: TStream; Output: TStream);

из модуля EncdDecd ?
Так же шифрует/расшифровывает Stream'ы с помощью base64.

[Shad0w64bit]

Спасибо огромное!!! Работает как надо))))

[GunSmoker]

Не существует такой вещи как просто текст. Если у вас есть строка, в памяти, в файле, или в сообщении электронной почты, вы должны знать, в какой она кодировке, иначе вы не сможете ее правильно интерпретировать или показать пользователю. Почти все глупые проблемы типа "мой вебсайт похож на тарабарщину" или "она не может читать мои электронные письма, если я использую символы с ударениями" сводятся к одному наивному программисту, который не понимет того простого факта, что если вы не говорите мне, находится ли специфическая строка в кодировке UTF-8 или ASCII или ISO 8859-1 (Латинский-1) или Windows 1252 (Западноевропейский), вы просто не сможете показать ее правильно или даже выяснить, где она заканчивается. Есть более ста кодировок символов выше кодовой точки 127, и нет никакой информации для того, чтобы выяснить, какая кодировка нужна.

В 2010-м году вы не можете просто сделать вид, что ничего такого не существует, и зарыть свою голову в песок. Возвращайтесь в свои 80-е, но больше не пишите ни одной строчки кода, пока вы не разберётесь, как работают кодировки, спасибо.

[Serge_Bliznykov]

GunSmoker, написано все правильно.
Но, Вы уж извините меня, КАКОЕ отношение это имеет к проблеме TC (тем более решённой) ?! Вы знаете, что такое BASE64 и для чего её придумали? Именно для того, чтобы избежать проблем с сотнями кодировок и потерь данных при передачи по сети. В строке, закодированной base64 нет и не может быть символов, выходящих за пределы английской кодовой таблицы (это тех, которые Вы называете "символов выше кодовой точки 127" )

Другое дело, что корень проблемы TC (_возможно_) заключается именно в том, что TIdDecoderMIME не умеет корректно работать с Unicode строчками (которые и используются по умолчанию в новых версия Delphi). Но согласитесь, это же не проблема автора топика!

[GunSmoker]

Сообщение от Serge_Bliznykov

КАКОЕ отношение это имеет к проблеме TC

Есть сильное подозрение, что автор вопроса не приложил ни малейшего усилия к познанию, что же делает предложенный код, и чем он отличается от его варианта. Надо ли говорить, что подобный подход ведёт к говно-коду?

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

Сравните:

У меня есть закодированый в base64 jpg файл

с

DecodeString

Сообщение от Serge_Bliznykov

TIdDecoderMIME не умеет корректно работать с Unicode строчками

Есть мнение, что он-то как раз работает нормально. Просто идея представления бинарного файла в виде строки - дефектна по-определению.

[Serge_Bliznykov]

Просто идея представления бинарного файла в виде строки - дефектна по-определению.

Вы шутите?
Ну так откройте любое почтовое вложение (на уровне исходного текста = mbox) и посмотрите.
По другому файлы по почте не передаются!
Или, исходя из Вашего посыла, "идея передавать бинарные файлы по почте - дефектна по определению" ?!!!

[GunSmoker]

Вы понимаете разницу между текстовым представлением кодированного файла и самим бинарным файлом в строке? Файл <> его base64-форма.

Что, по-вашему, (хотя бы теоретически) должно быть в Text после декодирования? Как вы собираетесь уложить JPG файл в unicode-строку?

[Stilet]

Как вы собираетесь уложить JPG файл в unicode-строку?

Элементарно. строка это массив байт. Файл это массив байт. Массив поместить в массив труда не составит.
Кстати бинарные данные оч. удобно хранить в строка или в Stream.

[GunSmoker]

Угу, пять баллов. И что же делать, если размер файла не чётен?

И после этого мы удивляемся, почему получаются дракозябры.

Строка - это не массив байт. Это массив символов. Массив байт - это разве что RawByteString, которым в коде и не пахнет.