problema al intentar guardar una imagen como blob en una tabla

[aledieb]

Probaste con:

IBDataSet1.FieldByName('foto').loadfromfile('C:\camino\foto.bmp');

[fidel]

A mi esto que es similar me funciona bien

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, Mask, DBCtrls,
  ExtCtrls, Menus, ExtDlgs, Jpeg, DB;
....
procedure TFDatos.Cargarfoto1Click(Sender: TObject);
var
  m, f: TStream;
  s: string;
begin
  if dlgOpenPicture.Execute then
    begin
      DM.IBDSAlumnos.Edit;
      m:= DM.IBDSAlumnos.CreateBlobStream(DM.IBDSAlumnosFOTO, bmWrite);
      f:= TFileStream.Create(dlgOpenPicture.filename, fmOpenRead);
      m.CopyFrom(f, f.Size);
      s:= AnsiUpperCase(ExtractFileExt(dlgOpenPicture.FileName));
      DM.IBDSAlumnos.Post;
      f.Free;
      m.Free;
    end
end;

[Gigabyte1024]

he intentado ambos codigos pero me sigue regresando el mismo error le hice algunas correcciones y lo deje asi:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  m, f: TStream;
  s: string;
begin
  if OpenPictureDialog1.Execute then
  begin
    IBDataSet1.Edit;
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
    //image1.Picture.Graphic.SaveToStream(f);
    //m:= IBDataSet1.CreateBlobStream(form1.IBDataSet1FOTO, bmWrite);
    f:= TFileStream.Create(OpenPictureDialog1.filename, fmOpenRead);
    //m.CopyFrom(f, f.Size);
    form1.IBDataSet1FOTO.LoadFromStream(f);
    form1.IBDataSet1NOMBRE.AsString:=edit1.Text;
    form1.IBDataSet1APELLIDO.AsString:=edit5.Text;
    form1.IBDataSet1GRADO.AsString:=edit2.Text;
    form1.IBDataSet1TURNO.AsString:=edit3.Text;
    form1.IBDataSet1CODIGO.AsInteger:=strtoint(edit4.Text);
    IBDataSet1.Post;
    f.Free;
    m.Free;
  end;
end;

Eso despues de haber estado jugando con las sintaxis por varias horas pero sigue retornando el mismo error no se que esta mal la verdad.

muchas gracias por sus respuestas espero por favor sigan respondiendo
gracias