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