Как декодировать Капча Base64

[Smagulov85]

Всем привет! Сайт выдает капчу data:image/jpeg;base64, как ее декодировать. Нафоруме нашел пример но получаю JPEG error 53

uses EncdDecd,jpeg;
 
procedure TForm1.Button2Click(Sender: TObject);
var
st,st2:TMemoryStream;
jpg:tjpegimage;
s:string;
begin
st:=TMemorystream.Create;
st2:=TMemorystream.Create;
jpg:=tjpegimage.create;
s:=memo1.Text;
st.WriteBuffer(s[1],Length(s)*SizeOf(Char));
st.Position:=0;
DecodeStream(st,st2);
st2.Position:=0;
jpg.loadfromstream(st2);
image1.picture.assign(jpg);
st.Free;
st2.Free;
jpg.free;
end;

[Vapaamies]

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

Сайт выдает капчу data:image/jpeg;base64, как ее декодировать.

Сдается мне, что эту "data:image/jpeg;base64" нужно обрезать перед передачей в функцию раскодировки.

[Smagulov85]

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

Сдается мне, что эту "data:image/jpeg;base64" нужно обрезать перед передачей в функцию раскодировки.

обрезал все равно ошибка!

[Vapaamies]

Попробуй сохранить обрезанное и раскодированное во временный файл и открыть любой доступной программой с поддержкой JPEG -- хоть Paint, хоть Photoshop. Ошибка #53 говорит о том, что файл битый.

[min@y™]

покажи текст, в кором хранится капча.

[Smagulov85]

Вот прикрепил к посту!!

[BDA]

Когда отбросил "data:image/jpeg;base64," и скормил сайту http://www.motobit.com/util/base64-decoder-encoder.asp, то получил нормально открывающийся JPEG.

[min@y™]

В файле, что ты дал, действительно jpeg-картинка. Декодил онлайн вот тут.
Если тебе это надо делать в своей программе, прицепляю модуль с функциями, спираченный где-то в интернетах лет 100500 назад.

[DIONISKA]

В delphi в юните EncdDecd есть функция DecodeBase64, декодируется примерно так:

uses ...EncdDecd;
var
  ts:TStringstream; 
  b:TBytes;
  bs:TBytesStream;
  ms:TMemorystream;
  jpg:TJpegimage;

      ...
{тут инициализации переменных и пр. я пропустил}
     ...
{Здесь в переменной TS должна хранится строка в base64}
	b:=DecodeBase64(ts.DataString); 
	bs:=TBytesStream.Create(b);
	bs.SaveToStream(ms);
	jpg.LoadFromStream(ms);
     ..

думаю тебе она и нужна

[Smagulov85]

Сообщение от min@y™

В файле, что ты дал, действительно jpeg-картинка. Декодил онлайн вот тут.
Если тебе это надо делать в своей программе, прицепляю модуль с функциями, спираченный где-то в интернетах лет 100500 назад.

Этот файл у меня есть уже лет так +100500