resim bilgisini null alana yazamıyorum

[adelphiforumz]

S.A.

Aşağıdaki bu kod eğer veri tabanındaki Picture alanı null ise çalışmıyor
nedeni ne olabilir acaba fikri olan varmıdır

Kod: Tümünü seç

    ADOQuery1.FieldByName('Resim').Assign(ImageSB1.Graphic);
    ADOQuery1.Post;

[adelphiforumz]

S.A.

öncekine ilave etmek isteğim şey
eğer resim objesini aşağıdaki şekilde yüklersem hiç sorun olmuyor

Kod: Tümünü seç

      ImageSBTemp.SaveToFile('Temp_x1.jpg');
      ImageSB1.LoadFromFile('Temp_x1.jpg', 0);
      ImageSB1.Redraw(True);

Fakat

Kod: Tümünü seç

var
  _MemoryStream : TMemoryStream;
 begin
 ...
 ...
 .....  //_MemoryStream alanının doldurulma şekli
      _MemoryStream := TMemoryStream.Create;
      _MemoryStream.Seek(0, soFromBeginning);
      _MemoryStream.Position := 0;
      ImageSBTemp.Graphic.SaveToStream(_MemoryStream);

...
...
..... //Resim objesinin yükleme şekli
      _MemoryStream.Position := 0;
      _MemoryStream.Seek(0, soFromBeginning);
      ImageSB1.Graphic.LoadFromStream(_MemoryStream);
      ImageSB1.Redraw(True);
      ImageSB1.Refresh;
      _MemoryStream.Free;

Bu şekilde yüklersem veritabanı null ise kayıt gerçekleşmiyor
Acaba gözden kaçırdığım ne olabilir

Teşekkürler