Base64 to image

[noveek]

Здравствуйте, не получается декодировать base64 в изображение stream read error картинку парсю без data:image/jpeg;base64,
на некоторых картинках работает на некоторых нет (((

uses
jpeg, IdCoderMIME, NativeJpg

procedure Base64ToStream(ABase64: String);
var
  AStream: TMemoryStream;
  S : AnsiString;
  jpeg: TsdJpegGraphic;
  Decoder : TIdDecoderMime;
begin
    jpeg:=TsdJpegGraphic.Create;
    AStream:=TMemoryStream.Create;
    Decoder := TIdDecoderMime.Create(nil);
    S:=DecodeString(TRIM(ABase64));
    Astream.Position:=0;
    Astream.WriteBuffer(s[1],Length(s)*SizeOf(Char));
    Astream.Position:=0;
    jpeg.CompressionQuality:=100;
    jpeg.GrayScale:=true;
    jpeg.image.LoadFromStream(Astream);
    jpeg.CompressionQuality:=100;
    jpeg.GrayScale:=true;
    jpeg.SaveToFile(Extractfilepath(paramstr(0))+'1234.jpeg'); 
    form1.Image1.Picture.Assign(jpeg); // ОШИБКА
    //Astream.SaveToFile(Extractfilepath(paramstr(0))+'1234.JPG');
    Freeandnil(Decoder);
    Freeandnil(jpeg);
    Freeandnil(AStream);
end;

Картинка в base64 во вложении:

[Pavia]

Это потому что у вас сервер png подсовывает за место jpeg. Парсить тело картинки и определять формат по нему. А далее кейс на нужный класс-картинки.

[noveek]

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

Это потому что у вас сервер png подсовывает за место jpeg. Парсить тело картинки и определять формат по нему. А далее кейс на нужный класс-картинки.

Так а в теле же data:image/jpeg;base64,

[noveek]

Может есть компонент какой любой формат изображения переконвертировать в bmp