Buenos Dias,
Necesito guardar una imagen que tengo en un TImage, en un campo image de una tabla en sql server.
He revisado varios hilos al respecto, pero nada de lo que he probado me funciona. Aparentemente la guarda pero cuando voy a consultarla para mostrarla me dice Bitmap Image Not Valid. La imagen debe ser mostrada en un reporte QuickReport.
Le muestro lo último que probe:
Para Guardar la imagen:
Código Delphi
[-]
with fquerylocate do
begin
bs := TMemoryStream.Create;
if image1.Picture <> nil Then
if image1.Picture.Graphic <> nil Then
image1.Picture.Graphic.SaveToStream(bs);
sql.clear;
sql.Add('exec uSpinsCBBFacturaElectronica per,:imagen ');
parambyname('oper').asstring:=codoper;
ParamByName('imagen').LoadFromStream(bs, ftBlob);
execsql;
end;
Para mostrarla:
Código Delphi
[-]
oStream := busqueda.CreateBlobStream(Busqueda.FieldByName('cbb'), bmRead);
oStream.Seek(0, soFromBeginning);
QRImage2.Picture.Bitmap.LoadFromStream(oStream);
oStream.Free;
La imagen en el TImage es de tipo BMP
Agradezco su ayuda,
Saludos