Hola, estoy copiando un campo memo de una tabla a otra de la siguiente forma:
Código Delphi
[-]
var
Stream1: TBlobStream;
Stream2: TStream;
Stream1 := TBlobStream.Create(FormTraspasoDatos.TablaPacientesOhmedynMEMO1, bmRead);
try
ModuloDatos.TablaPacientes.Edit;
Stream2 := ModuloDatos.TablaPacientes.CreateBlobStream(ModuloDatos.TablaPacientes.FieldByName('MOTIVO'),bmReadW rite);
try
Stream2.CopyFrom(Stream1,Stream1.Size);
ModuloDatos.TablaPacientes.Post;
ModuloDatos.TablaPacientes.FlushBuffers;
finally
end;
finally
Stream1.Free;
end;
está copiado de la ayuda de delphi 6 y al ejecutar la linea Stream2.Free me lanza el error:
EDBEngineError: BLOLB NOT OPENED
Y supongo que necesito liberarlos porque tengo que meterlo en un bucle para copia el contenido del memo de una tabla a otra.
Gracias.