Из Base64 в изображение

[Tony.]

Здравствуйте столкнулся с проблемой расшифровал текст и получил

/9j/4AAQSkZJRgABAQAAAQABAAD/..........oYc4IB5596zbtuNaluiiiqA/9m=

погуглив выяснил что это Base64 кодировка, в этой строке заключено изображение нашел вариант для просмотра через Html

<img src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/..........oYc4IB5596zbtuNaluiiiqA/9m=" alt="" />
</body>

браузер открывает изображение, но мне необходимо преобразовать этот код в делфи и открыть его в image. Помогите пожалуйста.

[Аватар]

EncodeBase64 или base64encode в гугле

[Tony.]

я сталкивался с DecodeBase64() но как мне загрузить все это в компонент Timage? Использую(писал не сам):

function DecodeBase64(Value: String): String;
const b64alphabet: PChar = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
  function DecodeChunk(const Chunk: String): String;
  var
    W: LongWord;
    i: Byte;
  begin
    W := 0; Result := '';
    for i := 1 to 4 do
      if Pos(Chunk[i], b64alphabet) <> 0 then
        W := W + Word((Pos(Chunk[i], b64alphabet) - 1)) shl ((4 - i) * 6);
    for i := 1 to 3 do
      Result := Result + Chr(W shr ((3 - i) * 8) and $ff);
  end;
begin
  Result := '';
  if Length(Value) mod 4 <> 0 then Exit;
  while Length(Value) > 0 do
  begin
    Result := Result + DecodeChunk(Copy(Value, 0, 4));
    Delete(Value, 1, 4);
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);

begin
memo2.text:=DecodeBase64(memo1.Text);
end;

В memo1 записан код картинки зашифрованный в base64

[Аватар]

юнит EncdDecd в D7, функция DecodeStream из Stream в Stream, от туда нет проблем в Image

[Tony.]

Нашел пример, все работает изображение успешно сохраняется в файле и его можно просмотреть через просмотр фотографий windows

uses EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
var
st,st2:TMemoryStream;
s:string;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
s:=memo1.Text;
st.WriteBuffer(s[1],Length(s)*SizeOf(Char));
st.Position:=0;
DecodeStream(st,st2);
st2.SaveToFile('image.bmp');
st.Free; st2.Free;
end;

но когда я пытаюсь загрузить его в image

image1.Picture.LoadFromFile('image.bmp');

или же просто через инспектор то выдает ошибку "Bitmap image is not valid."
Так же пробовал программно

image1.Picture.Bitmap.LoadFromStream(st2);

ничего не происходит

[BDA]

<img src="data:image/jpeg;

Это не bitmap, а jpeg.
Посмотрите hex редактором, что записано в файле.

Если посмотреть блокнотом, то JPEG начинается так:

яШяа JFIF

А BITMAP так:

BMцЖ

[Аватар]

А image1.Picture.Bitmap.LoadFromFile?

Это не bitmap, а jpeg

Точно, проглядел. Jpeg в uses

[Tony.]

Сохраняется с разрешением *.bmp и *.jpg оба варианта работают

image1.Picture.LoadFromFile('image.jpg');

работает, но если затрагивать ту же картинку сохраненную с разрешением *.bmp то выдает "Bitmap image is not valid." И мне необходимо чтобы картинка вообще не сохранялась, чтобы на прямую загружалась из кода в Timage.

image1.Picture.Bitmap.LoadFromStream(st2);

не работает. Вот есть у меня раскодированное изображение в памяти "st2" загрузить в timage и освободить. Изображение в "st2" есть так как при

st2.SaveToFile('image.jpg');

оно сохраняется.

[Аватар]

st2.Position:=0 перед LoadFromStream

[Tony.]

Все работает правильно пока не доходит до загрузки изображения из памяти

uses EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
var
st,st2:TMemoryStream;
s:string;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
s:=memo1.Text;
st.WriteBuffer(s[1],Length(s)*SizeOf(Char));
st.Position:=0;
DecodeStream(st,st2);
st2.Position:=0;
image1.Picture.Bitmap.LoadFromStream(st2);
st.Free; st2.Free;
end;

где выдает ошибку "Bitmap image is not valid." эту же ошибку выдает когда я пытаюсь через инспектор загрузить изображение в image, может дело в самом изображении? Потому что другие *.bmp загружаются нормально