Изображение из XML в TImage

[DIgorevich]

Здравствуйте!
В книгах FB2 (обычный XML-формат) изображения хранятся в текстовом виде, обрамлены тэгом binary:

<binary id="cover.jpg" content-type="image/jpeg">/9j/4AAQSkZJRgABAQAAAQABAAD/2wBDAAsICAoIBwsKCQo
.....
.....
MmaNd8wHygJnj24qGNy8LbsZUgg454oooGSNEpudnO04OM9Kj3kb04IVgOe496KKBCCV8D5m</binary>

В аналогичном виде изображения сохраняет и сама делфя в dfm файлах:

 object Image1: TImage
      Left = 0
      Top = 0
      Width = 1121
      Height = 45
      Align = alClient
      Picture.Data = {
        0954474946496D616765D2010
        .....
        .....
        6CD20003B}

Возможно, кто-нибудь уже сталкивался с подобным или знает в какую сторону нужно рыть. Суть в следующем. Имея в текстовом виде изображение (достали из хмл-ки) преобразовать каким-либо чудом и загрузить его в компонент TImage. Можно ли так сделать? И если да, то каким образом?

[Аватар]

Прям чудом Там в формате Base64. В Д7:

var xOutStr: TMemoryStream;
    xInStr: TStringStream;
//xNode - binary-node
  xOutStr:=TMemoryStream.Create;
  xInStr:=TStringStream.Create(xNode.Text);
  DecodeStream(xInStr,xOutStr);
//в xOutStr двоичный jpg или что там
//DecodeStream в EncdDecd

[DIgorevich]

Аватар, спасибо, конечно. Но что-то или я недопонял, или у меня не так работает. Как перекодировать - это ладно. Но сама суть вопроса, как этот код нажатием баттона, или по любому другому вызову отобразить картинкой в TImage:

        0954474946496D616765D201000047494638396111002D00D50000C4C4C4C3C3
        C3C2C2C2C1C1C1C0C0C0BFBFBFBEBEBEBDBDBDBCBCBCBBBBBBBABABAB9B9B9B8
        B8B8B7B7B7B6B6B6B5B5B5B3B3B3B2B2B2B1B1B1B0B0B0AFAFAFADADADABABAB
        AAAAAAA9A9A9A8A8A8A6A6A6A5A5A5A4A4A4A3A3A3A2A2A2A0A0A09F9F9F9E9E
        9E9D9D9D9B9B9B9A9A9A99999997979700000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000002C00000000
        11002D000006F7408070482C1A8FC68072C96C2A05D0A8740A1D58AFD8AC76AB
        2578BFE0B0B7402E9BCF64837ACD6EAB0FF0B87C0E47D8EFF8BC3DC1EFFBFF7C
        0A82838485820B88898A8B880C8E8F90918E0D94959697940E9A9B9C9D9A0FA0
        A1A2A3A010A6A7A8A9A611ACADAEAFAC12B2B3B4B5B213B8B9BABBB814BEBFC0
        C1BE15C4C5C6C7C416CACBCCCDCA17D0D1D2D3D018D6D7D8D9D619DCDDDEDFDC
        1AE2E3E4E5E21BE8E9EAEBE81CEEEFF0F1EE1DF4F5F6F7F41EFAFBFCFDFA1F00
        030A1C48B020411008132A5C883084C38710233A1441B1A2C58B144768DCC8B1
        A3C78F1E49881C49B2A4C8122853AA5CC9B2254B133063CA9C49B326CD20003B

Простое присвоение этого кода строковому потоку и потом загрузка его в качестве картинки выдает ошибку.

var 
    xInStr: TStringStream;
begin
  xInStr:=TStringStream.Create(Memo1.Text);
  Image1.Picture.Bitmap.LoadFromStream(xInStr);
  xInstr.free;

[Пепел Феникса]

<binary id="cover.jpg" content-type="image/jpeg"

явно не через TBitmap грузить.

[phomm]

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

Простое присвоение этого кода строковому потоку и потом загрузка его в качестве картинки выдает ошибку.

Так это же не просто строка, это хексы записанные символами. Каждые 2 хекса - байт. Лучше в мемористрим их положить создавая байты из двухексов, потом и грузить.

[Аватар]

Резкость на DecodeStream наведите в #2
и потом

  xJpeg:=TJPEGImage.Create;
  xJpeg.LoadFromStream(xOutStr);
  Image.Picture.Bitmap.Assign(xJpeg);
  xOutStr.Free;
  xInStr.Free;
  xJpeg.Free;

TJPEGImage в JPEG

PS

в dfm кстати другое - там просто hex-формат
В FB2 - BASE64


2 PS

Та текстовая строка, что в #3, это не содержимое binary-node из fb2, а нечто в hex

[DIgorevich]

Аватар, резкость навел - не особо помогло. Вот я в #3 поэтому и сделал уточнение, мол, пока без преобразования из BASE64, а просто возьмем за исходник чистый HEX. Описываю последовательность действий:
Создал проект, добавил Image1, загрузил в нее картинку формат jpg и сохранил проект. Далее открыл файл dfm, взял оттуда hex-код картинки (содержимое Picture.Data = {}). Создал новый проект, кинул Image, Memo, Button. В Memo вставил hex-код картинки. По нажатию кнопки:

var
    xInStr: TStringStream;
    xJpeg: TJPEGImage;
begin
  xInStr:=TStringStream.Create(memo1.text);
  xJpeg:=TJPEGImage.Create;
  xJpeg.LoadFromStream(xInStr);
  Image1.Picture.Bitmap.assign(xJpeg);
  xInStr.Free;
  xJpeg.Free;

В итоге, ошибка "JPEG error #42" - картинка пуста.

[Аватар]

Вот проектик набросал с fb2 и без обработки критических ситуаций, а там их полно если что

PS 1

hex-код картинк

нельзя в имидж загружать

PS 2

В fb2 и png бывает если не ошибаюсь

[DIgorevich]

Аватар, огромное спасибо!

ПС не по теме: постоянно не дает в репутацию ставить что-нибудь, пишет "Вы должны добавить еще кому-нибудь...." хотя я разным людям пытаюсь.