Convertir Formatos Graficos

[Kosmo]

no se cómo será el campo de la tabla access, pero supongo que será un BLOB.

Yo probaría a hacer un cast antes de salvarlo como stream.

Código Delphi [-]
TBlobField(adotableimagen).savetostream(menst)
 bitmap.loadfromstream(menst)
 jpeggraf.assign(bitmap)
 image.picture.assign(jpeggraf)

yo lo hice así, aunque yo guardo las fotos en la base de datos directamente en jpg.

[soloriv]

Hola a todos
Gracias Kosmo por contestar pero aun asi no logro que la imagen salga en mi image. No se si hay alguna otra forma de hacerlo porque si no me vere obligado a trabajar solo con bmp.
Saludos Soloriv.

[courtois]

Para cargar una imagen, ya sea jpeg o bmp, de preferencia jpeg, por el tamaño

Código Delphi [-]
   if DialogoAbrir.Execute then
   begin
     if (Tabla.State <> dsEdit) or (Tabla.State <> dsInsert) then Tabla.Edit;
     TablaCampoFoto.LoadFromFile(DialogoAbrir.FileName);
     Tabla.Post;
   end;

... de hecho esto carga cualquier cosa al campo

Para mostrarla en un TImage...

Código Delphi [-]
var  Jpeg:TJpegImage;
      JpegStream:TMemoryStream;
begin
   if TablaCampoFoto.IsNull then Imagen.Picture:=Nil
   else
   begin
     try
       Imagen.Picture.Assign(TablaCampoFoto); //esto funciona solo si es bmp
     except
        //pero si es jpeg...
        Jpeg:=TJpegImage.create;
        JpegStream:=TMemoryStream.create;
        try
          TablaCampoFoto.SaveToStream(JpegStream);
          //importante regresar?
          JpegStream.Seek(0,soFromBeginning);
          Jpeg.LoadFromStream(JpegStream);
          //Ahora si la mostramos
          Imagen.Picture.Assign(Jpeg);
        finally
          JpegStream.Free;
          Jpeg.Free;
        end;
     end;
   end;
end;

[soloriv]

Gracias courtois por contestar el codigo funciona con algunos cambios por ej eliminando el primer try de todas formas ya localice y salve los errores
Saludos Soloriv.