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