Firebird Resim kaydolmuyor

[veliadiguzel]

S.A.

Herhalde bayaa yaşlandık artık en basit soruları bile sorar olduk ama işin içinden çıkamadım.

Hakkınızı helal edin.

Kod: Tümünü seç

procedure TfrmFirmalar.btnResimEkleClick(Sender: TObject);
begin
  //inherited;
  dlgResim.Title := 'Resim Seç';
  dlgResim.Filter := 'JPEG Dosyalari|*.jpg|ico Dosyalari|*.ico|Bmp Dosyalari|*.bmp';
  if dlgResim.Execute then
  begin
    EditRec;
    JvDBImage1.Picture.LoadFromFile(dlgResim.FileName);
  end;
end;

bu kodla resmi goruyorum ama veri tabanına kaydedemiyorum PostRec ettigim zaman gene null alan geliyo. ne bi hata ne bisi alıyorum firebird loglarına da bisi dusmuyo
Firebird 1.5 (debian sarge uzerinde)

Not: Sistem FireBird örnek uygulama 2005_4 Seminerin deki sistemin aynısını kulanıyorum yapı olarak.

[Turki]

Kod: Tümünü seç

procedure TForm1.JvDBImage1Click(Sender: TObject);//Bir Button da olabilir.
var
 yol:AnsiString;
begin
 OpenPictureDialog1.Title:='Resim Seç';
 OpenPictureDialog1.Filter:='JPG Dosyalari|*.jpg|Bmp Dosyaları|*.bmp|ico Dosyaları|*.ico';
 if OpenPictureDialog1.Execute Then
   begin
    yol:=OpenPictureDialog1.FileName;
    IBDataSet1.Edit;//değişme moduna al
    JvDBImage1.Picture.LoadFromFile(yol);
  end;
end;

[aslangeri]

s.a.
@turki
sanırım arkadaş editrec komutu ile tabloyu zaten edit moduna alıyor.
@velitadiguzel

Kod: Tümünü seç

tabloadiBlobalanadi.loadfromfile(xxxx);

şeklinde deneyebilirmisiniz.
kolay gelsin.

[veliadiguzel]

S.A.

Biraz uğraştıktan sonra olayı çözdüm. A.Ş.
İşin ilginc yanı dataset sql'lerini yeniden olusturdum düzeldi nedenini bilemiyorum (yaşlanmak olabilir) ama şu anda çalışıyor.
A.R.O