Cargar fichero en base de datos

[gesDelf]

BDE (Data Access y Data Controls). Tengo el identificador en una tabla en pantalla:
TTable (2 columnas 'identificador', 'fichero') <- TDataSource <- TDBGrid (muestro 'identificador')

[[poliburro]]

Amigo, BDE es una tecnología obsoleta, te recomiendo que cambies a ADO.

saludos

[gesDelf]

Lo malo es que este es el método que se usa donde estoy, y no puedo ir cambiando tan alegremente la forma de hacer las cosas, y me iría bien hacerlo con estos elementos, aunque esté desfasado (uso Delphi 5, así que precisamente a la última no estamos).

[gesDelf]

Bueno he conseguido ir por buen camino, despues de buscar, probar y mezclar lo que encuentro por un lado y otro.

Aquí os dejo el código
var
blob : TStream;
myFileStream : TStream;
begin
blob := tabla1.CreateBlobStream(tabla1.FieldByName('FICHERO'), bmWrite);
blob.Seek(0, soFromBeginning);
myFileStream := TFileStream.Create ('C:\Fichero.ext', fmShareDenyWrite);
blob.CopyFrom(myFileStream, myFileStream.Size);
blob.Free;
myFileStream.Free;
tbImgEmp.ApplyUpdates;

end;

Con esto he conseguido lo que pretendía, eso sí, hay que asegurarse que estemos editando el registro sobre el que queremos modificar, ya que si no saltará error advirtiéndonos que no está en modo Edicion o Inserción.

Si encuentro mejoras para esta solución os la iré posteando.

Saludos.