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