Acces violation at address... al hacer un tmemorystream

[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.

[[eduarcol]]

ese error se debe a que aun no has creado el dm, debes crearlo antes de ejecutarlo

[gabirojas]

Hola eduarcol. Muchas gracias por tu respuesta. A que te refieres con crear el dm? Es una unidad datamodule, donde esta innsertado el adoconection y la adotable. Si eres tan amable, dime por favor como se crea. Gracias.

[[eduarcol]]

Para crearlo

Código Delphi [-]
dm := TDataModule.Create(application);

pero antes asegurate que no lo hayas creado o no esta en los autocreateforms

[[seoane]]

Yo lo que no entiendo es por que haces este typecast

Código Delphi [-]
  tmemorystream(dm.ADOTable2.FieldByName('imagen'))

¿FieldByName devuelve un TMemoryStream? ¿Devuelve siquiera un puntero?

[gabirojas]

Hola seoane. Gracias por tu respuesta. La idea del Tmemory stream es que me guarde en el campo 'imagen' el stream guardado en la variable simagen. Si conoces algun metodo mejor para guardar imagenes en ese campo, y como recuperlarlo despues, por favor házmelo saber. Muchas gracias.

[gabirojas]

eduarcol, si coloco en el codigo

Código Delphi [-]
dm:=tdatamodule.create(application);

salta el error "incompatible types tdm and tdatamodule".
Igual creo que esta entre los autocreateforms, porque desde otras instancias del programa puedo insertar y ver datos.

[gabirojas]

A todos los que necesiten guardar y recuperar imagenes jpg con ado y access, visiten este link:

Código PHP:

http://www.latiumsoftware.com/es/pascal/0011.php 


Recomendado por: casachan(muchas gracias nuevamente).