Ver Mensaje Individual
  #9  
Antiguo 13-12-2016
rruffino rruffino is offline
Miembro
 
Registrado: dic 2004
Ubicación: Berrotaran, Cordoba - Argentina
Posts: 215
Reputación: 20
rruffino Va por buen camino
Otro Problema

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!!!
Responder Con Cita