[soloriv]

Hola a todos

Para cargar a una tabla access un jpeg uso lo sgte

Código Delphi [-]
uses 
jpeg

var
bitmap:tbitmap
jpeggraf:tjpegimage
begin
bitmap:=tbitmap.create
jpeggraf:=tjpegimage.create
try
 if openpicturedialog.execute
 then  
       jpeggraf.loadfromfile(openpicturedialog.filename)
       bitmap.assign(jpeggraf)
       adotable.edit
       adotable.fields[x].assign(bitmap)
       adotable.post
finally  
  jpeggraf.free
  bitmap.free
end

lo hago asi por caracteristicas de tabla acces por eso convierto a bmp
ademas para poder usar dbimage. Esto funciona

Pero para trasportar estas imagenes a un componente hago lo siguiente:

Código Delphi [-]
var 
bitmap:tbitmap
jpeggraf:jpegimage
menst:tmemorystream

begin
bitmap:=tbitmap.create
jpeggraf:=tjpegimage.create
menst:=tmemorystream.create
try
 adotableimagen.savetostream(menst)
 bitmap.loadfromstream(menst)
 jpeggraf.assign(bitmap)
 image.picture.assign(jpeggraf)
finally
 jpeggraf.free
 bitmap.free
 menst.free
end

El Problema es que no sale la imagen en el comp. image, ademas si saco el bitmap y solo uso para esto jpeggraf y menst compila para en ejecucion me sale como error jpeg error #42.
Como solucionaria el problema de asignar si es posible a un componente tpaintbox y con formato jpeg los campos bmp de mi tabla acces
Saludos y Gracias Soloriv.