Buenas tardes.... siguiendo con el hilo, he podido al final poder obtener la imagen del campo BLOB y guardarla en disco usando:
Código Delphi
[-]
MS:=TStringStream.Create('');
TBlobField(DM.ZQuery_lectura.FieldByName('foto')).SaveToStream(MS);
MS.Position:=0;
ImagenTablet.Picture.Graphic:= nil;
ImagenTablet.Picture.Graphic:= TPNGGraphic.Create;
ImagenTablet.Picture.Graphic.LoadFromStream(MS);
ImagenTablet.Picture.Graphic.SaveToFile('C:\Imagen.png');
hasta aca todo bien... grabo la imagen y vía explorador de windows la puedo ver con doble click, editarla con el paint por ejemplo....
Pero lo que quiero ahora es cargar esa imagen en un TImage de la sieguiente manera:
Código Delphi
[-]
foto:='C:\Imagen.png';
Stream := TMemoryStream.Create;
try
IF FileExists(FOTO)THEN
Stream.LoadFromFile(foto);
Stream.Position := 0;
ImagenTablet.Picture.Graphic:= nil;
ImagenTablet.Picture.Graphic:= TPNGGraphic.Create;
ImagenTablet.Picture.Graphic.LoadFromStream(Stream);
finally
Stream.Free;
end
Cuando lo ejecuto, tengo el hermoso error:
CANNOT LOAD IMAGE, INVALID OR UNEXPECTED PNG IMAGE FORMAT
Al momento de exportar tambien he probado de exportarlo con formato JPG y en ese caso obtengo el error
JPG ERROR #54
Agradezco cualquier sugerencia.
Mil gracias!!!