Cómo almacenar pdf y otros

[Casimiro Noteví]

Más ejemplos con imágenes:
1, 2, 3

Y otro más, en este caso sirve para guardar cualquier tipo de fichero:

Código Delphi [-]
procedure TFrameDocumentosEscaner.btFicheroClick(Sender: TObject); 
var 
    iOrden:integer; 
    cDescripcion:string; 
begin 
  inherited; 
    if dlgAbrirFichero.Execute then 
    begin 
        {if TamanoFichero(dlgAbrirImagen.FileName) > _TAMANOMAXIMO_ then 
        begin 
            caiMensajeAviso('Tamaño máximo por imagen: '+IntToStr(_TAMANOMAXIMO_ div 1024)+' Kbytes'); 
        end 
        else} 
        begin 
            cDescripcion := InputBox('Descripción','Descripción:',''); 
            // 
            cTablaImagenes := EligeTablaImagenes(iTipodocumento,iTipoOperacion,iFormActivo); 
            // 
            qrImagenes.Append; 
            // 
            if iFormActivo<>6 then begin 
               qrImagenes.FieldByName('CODIGODOCUMENTO').AsInteger := iCod; 
               iOrden := caiVarToint(dmPrincipal.sqlValorConsulta('max(orden)',cTablaImagenes,'CodigoDocumento='+IntToStr(iCo  d))); 
            end 
            else begin 
               qrImagenes.FieldByName('CODIGOARTICULO').AsInteger := iCod; 
               iOrden := caiVarToint(dmPrincipal.sqlValorConsulta('max(orden)',cTablaImagenes,'CodigoArticulo='+IntToStr(iCod  ))); 
            end; 
            inc(iOrden); 
            // 
            qrImagenes.FieldByName('ORDEN').AsInteger := iOrden; 
            qrImagenes.FieldByName('FECHACREACION').AsDateTime := now; 
            qrImagenes.FieldByName('DESCRIPCION').AsString := cDescripcion; 
            qrImagenes.FieldByName('NOMBREFICHERO').AsString := ExtractFileName(dlgAbrirFichero.FileName); 
            TBlobField(qrImagenes.FieldByName('IMAGEN')).LoadFromFile(dlgAbrirFichero.FileName); 
            // 
            qrImagenes.Post; 
            // 
            qrImagenes.Close; 
            qrImagenes.Open; 
            // 
            grImagenes.SetFocus; 
            grImagenes.OnChangeNode(sender,nil,nil); 
            // 
        end; 
    end; 
    // 
end;

En este caso el campo IMAGEN es el blob donde se guardan cualquier tipo de fichero, documento, imagen, etc.