[Dúvida] Salvar Imagem jpg no Firebird

é que no seu form vc usa o proprio componente dbnavigator e um dbimage para gerenciar a tabelinha de dados.
no meu caso eu fiz tudo manual via sql mesmo, e com um componente image dando um load no banco.
se vc quizer eu te envio o form e a unit pra vc dar uma olhada.
abraço
Foto do meu Form:

De uma olhada neste site e veja se ajuda http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg39517.html

Espero ter colaborado.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ExtDlgs, IBDatabase, DB, IBCustomDataSet,
  IBTable, DBCtrls, Mask, JPEG, Consts;

  const
  OffsetMemoryStream : Int64 = 0;


type
  TTipoImagem = (tiBitmap, tiJpeg);
  TForm1 = class(TForm)
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    Button1: TButton;
    IBTable1: TIBTable;
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    DataSource1: TDataSource;
    IBTable1CODIGO: TIntegerField;
    IBTable1NOME: TIBStringField;
    IBTable1IMG: TBlobField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
  procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String; ImageExibicao :TImage);
procedure GravaFoto(DataSet : TDataSet; BlobFieldName, OpenPictureDialog1 : String);
procedure ExcluiFoto(DataSet : TDataSet; BlobFieldName : String);
procedure ExportaFoto(DataSet : TDataSet; BlobFieldName, OpenPictureDialog1 : String;TipoImagem : TTipoImagem);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MemoryStream : TMemoryStream;
  Jpg : TJpegImage;
  Bitmap : TBitmap;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm1.ExcluiFoto(DataSet: TDataSet; BlobFieldName: String);
begin
  if (Ibtable1.State in [dsEdit,dsInsert])
  and not((Ibtable1.FieldByName(BlobFieldName) as TBlobField).IsNull) then
    (DataSet.FieldByName(BlobFieldName) as TBlobField).Clear;
//para limpar o TImage use
// Image1.Picture := Nil;
end;


procedure TForm1.ExibeFoto(DataSet: TDataSet; BlobFieldName: String;
  ImageExibicao: TImage);
begin
  if not(Ibtable1.IsEmpty) and
  not((Ibtable1.FieldByName(BlobFieldName) as TBlobField).IsNull) then
    try
      MemoryStream := TMemoryStream.Create;
      Jpg := TJpegImage.Create;
      (Ibtable1.FieldByName(BlobFieldName) as
TBlobField).SaveToStream(MemoryStream);
      MemoryStream.Position := OffsetMemoryStream;
      Jpg.LoadFromStream(MemoryStream);
      Image1.Picture.Assign(Jpg);
    finally
      Jpg.Free;
      MemoryStream.Free;
    end
  else
  // o Else faz com que, caso o campo esteja Null, o TImage seja limpado
    ImageExibicao.Picture := Nil;
end;


procedure TForm1.ExportaFoto(DataSet: TDataSet; BlobFieldName,
  OpenPictureDialog1: String; TipoImagem: TTipoImagem);
begin

end;

procedure TForm1.GravaFoto(DataSet: TDataSet; BlobFieldName,
  OpenPictureDialog1: String);
var
  ext : string;
begin
  if (Ibtable1.State in [dsEdit,dsInsert]) then begin
    ext := UpperCase(ExtractFileExt(OpenPictureDialog1));
    if (ext <> '.BMP') and (ext <> '.JPG') and (ext <> '.JPEG') then begin
     raise EAccessViolation.Create('Formato de imagem não suportado! Formato suportado: Jpeg ou Bitmap');
      Abort;
    end;
    try
      Jpg := TJpegImage.Create;
      MemoryStream := TMemoryStream.Create;
      Bitmap := TBitmap.Create;
      if (ext = '.BMP') then begin
        Bitmap.LoadFromFile(OpenPictureDialog1);
        Jpg.Assign(Bitmap);
        Jpg.Compress;
      end else
        Jpg.LoadFromFile(OpenPictureDialog1);
      Jpg.SaveToStream(MemoryStream);
      MemoryStream.Position := OffsetMemoryStream;
      (Ibtable1.FieldByName(BlobFieldName) as TBlobField).BlobType :=
ftTypedBinary;
      (Ibtable1.FieldByName(BlobFieldName) as
TBlobField).LoadFromStream(MemoryStream);
    finally
      MemoryStream.Free;
      Bitmap.Free;
      Jpg.Free;
    end;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
If Ibtable1.State in [DsEdit,Dsinsert] then
       GravaFoto(Ibtable1,'IMG',OpenPictureDialog1.FileName); // aqui seleciona uma jpg

end;

end.

if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Nao seria o ideal deixar imagens fora da base, gravando apenas o caminho e no form voce coloca um componente nao DB, fazendo um load from file para a exibicao?

é que no seu form vc usa o proprio componente dbnavigator e um dbimage para gerenciar a tabelinha de dados.<div>
</div><div>no meu caso eu fiz tudo manual via sql mesmo, e com um componente image dando um load no banco.</div><div>
</div><div>se vc quizer eu te envio o form e a unit pra vc dar uma olhada.</div><div>
</div><div>abraço</div><div>
</div><div>Foto do meu Form:</div><div>
</div><div><img src="../imagens/articles/202153/fototela.jpg" border="" width="491" height="378">
</div>