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

[BDA]

Потому что это не bmp, а JPEG.
Примерно так:

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;

[Tony.]

Возможно что программа которая конвертирует изображения в base64 код переконвертирует загружаемые в нее изображения в jpg так как я загружаю bmp, но тогда как мне загрузить из памяти в timage учитывая что изображение в формате jpg?

[Tony.]

Спасибо все работает!

[lovial]

Дабы не заводить новую тему, спрошу тут...
Столкнулся с проблемой. Копирую текст с картинками со страницы сайта, при вставке в Ворд вместо картинок вставляются пустые квадраты. В Паинт вставляется картинка, а в Ворд - нет... Картинки в виде base64 кода. Есть ли какой-нибудь способ их оттуда выковырять не вручную - ибо их очень много... преобразовать как-то и т.д.

[eval]

дабы не продлевать эту тему скажу кратко.
ищите программиста

[lovial]

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

дабы не продлевать эту тему скажу кратко.
ищите программиста

А причина хотя бы где? Косяк буфера или Ворд что-то не так интерпретирует? И если в сохраненной странице макросом подправить чего-нибудь и потом открыть Вордом?

[doktor255]

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

А причина хотя бы где?

100% в коде.