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:
Código:
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:
Código:
(qrSubeDoc_Word as TBlobField).SaveToFile(Directorio+NombreArchivo);
Para abrirlo:
Código:
ShellExecute(self.Handle, //formExpedientes.Handle,
nil,
PChar(Directorio+ NombreArchivo),
'',
'',
SW_SHOWNORMAL);