Savetostream en Delphi XE5

[ecfisa]

Hola mjjj.

Tratándose de XE5 tampoco tengo idea, pero intentá de este otro modo a ver si te resulta...

Código Delphi [-]
procedure BlobToImage(aDataSet: TIBCustomDataSet; const aFieldName: string; Image: TImage);
var
  Stream: TStream;
begin
  with aDataSet do
    if not FieldByName(aFieldName).IsNull then
    begin
      Stream := CreateBlobStream(FieldByName(aFieldName) , bmRead);
      try
        Image.Picture.Bitmap.LoadFromStream(Stream);
      finally
        Stream.Free;
      end;
    end;
end;

LLamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  BlobToImage(IBQuery1, 'IMAGE', Image1);
end;

Saludos