Foros Club Delphi - Guardar archivos en campos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Guardar archivos en campos (https://www.clubdelphi.com/foros/showthread.php?t=7652)

repo	22-02-2004 22:38:32

Guardar archivos en campos

Hola,
Quiero guardar archivos (*.pdf, *.dxf. *.jpg) en campos de FireBird, es decir por cada registro un archivo, ¿como puedo hacer esto?
Se que debo utilizar campos Blob, pero ¿como se haria?
Una vez grabado en la base de datos como lo saco de la BD y como lo vuelvo a grabar como archivo?

Muchas gracias

delphi.com.ar

22-02-2004 23:44:21

Supongo que algo similar a esto tiene que funcionar (No lo he probado)

Código:

var

  AStream : TFileStream;

begin

  AStream := TFileStream.Create('c:\MiArchivo.ext', fmOpenRead);

  Try

     TBlobField(ADataSet.FieldByName('CAMPO') ).LoadFromStream(AStream);

   finally

     AStream.Free;

   end;

end;

Saludos!

La franja horaria es GMT +2. Ahora son las 09:50:31.