Grabar Jpg en Base....

[delphi.com.ar]

Este código, tiene que funcionar con cualquier base de datos que soporte campos long.
Se supone que la variable JpegImg es del tipo TJPEGImage y tiene cargado una imagen, y también damos por supuesto que el qryFirmas esta abierto y en modo de edición.

var
  AStream : TStream;
begin
  AStream := TMemoryStream.Create;
  Try
     JpegImg.SaveToStream( AStream );
     TBlobField( qryFirmas.FieldByName('FIRMA') ).LoadFromStream( AStream );
   finally
     AStream.Free;
   end;
end;