Pues he probado la Unit de Domingo Seoane y funciona perfectamente.
Puedes poner en un form, un Memo y un TImage y un par de botones con este código:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TMemoryStream;
Texto: String;
begin
Stream:= TMemoryStream.Create;
try
Stream.LoadFromFile('r:\Neftali.jpg');
Texto:= BinToStr(Stream.Memory,Stream.Size);
Memo1.Lines.Text := Texto;
finally
Stream.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Stream: TFileStream;
begin
Stream:= TFileStream.Create('r:\imagen1.jpg',fmCreate);
try
StrToStream(Memo1.Lines.Text,Stream);
finally
Stream.Free;
end;
Image1.Picture.LoadFromFile('r:\imagen1.jpg');
end;
Ańade la unit JPEG al use y funciona perfectamente.
Un saludo.