[Investment]

A modo de ejemplo:

Create una nueva tabla con un campo de tipo image (Doc_Word) y un ID autoincremental que haga de clave.

Para subir un documento de word por ejemplo:

  	qSube.Close;	 //qrSube es un adoQuery
  	qSube.Sql.Clear;
  	qSube.sql.Add(' Select * from TABLA);
  	qsube.Open;
  	qsube.Insert;
  	(qSubeDoc_Word as TBlobField).LoadFromFile(Directorio+NombreArchivo);
  	qSube.post;

Para bajarlo:

  	(qrSubeDoc_Word as TBlobField).SaveToFile(Directorio+NombreArchivo);

Para abrirlo:

    ShellExecute(self.Handle, //formExpedientes.Handle,
  			   nil,
  			   PChar(Directorio+ NombreArchivo),
  			   '',
  			   '',
  			   SW_SHOWNORMAL);