[gabirojas]

Hola a todos los amigos del Club Delphi. Tengo un error al tratar de guardar un stream en un campo memo en una tabla access. El codigo es el que sigue:

Código Delphi [-]
procedure TForm1.carga1Button1Click(Sender: TObject);
var  
  simagen:tmemorystream;  
  jpg:tjpegimage; 
begin   
  jpg:=tjpegimage.Create;   
  jpg.LoadFromFile(opendialog1.FileName);   
  simagen:=tmemorystream.Create;   
  jpg.SaveToStream(simagen);     
  simagen.Position:=0;   
  dm.ADOTable2.Append;   //al ejecutarse la siguiente linea da el error
  tmemorystream(dm.ADOTable2.FieldByName('imagen')).
  LoadFromStream(simagen);  
  dm.ADOTable2.Post;  
end;

La leyenda del error mencionado es lo que sigue: " Access violation at address 004755fa in module 'prueba.exe'. Read off address 0000A18D".

Donde dm es el DataModule, ADOTable es la tabla que estoy utilizando e Imagen es el campo de la tabla al cual quiero insertar la imagen, que es del tipo memo. Utilizo Delphi 7 y Access.

Muchas gracias anticipadas.