Delphi - Stream read error

   
Vista:

Stream read error

Publicado por Gabriel Rojas (2 intervenciones) el 07/09/2007 15:47:48
Hola a todos.
Tengo un problema: al hacer un TBlobField me da una ventana de error con la siguiente leyenda: "Stream read error". El codigo es el que sigue:

Código Delphi [-]

procedure TForm1.carga1Button1Click(Sender: TObject);
var
simagen:tmemorystream;
jpg:tjpegimage;
begin
simagen:=tmemorystream.Create;
jpg:=tjpegimage.Create;
jpg.LoadFromFile(opendialog1.FileName);
jpg.SaveToStream(simagen);
simagen.Seek(0,sofrombeginning);
dm.ADOTable1.Append;
//en la siguiente linea da el error
tblobfield(dm.ADOTable1.FieldByName('imagen')). LoadFromStream(simagen);
dm.ADOTable1.Post;
end;

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder