Mirsaid Aripov, Nurillo Otaxanov

19.4. OLE ob’yektlarni Ma`lumotlar bazasida saqlash

Ayrim hollarda, OLE ob’yektlarni fayllarda emas, balki ma`lumotlar bazasida (jadvaldagi BLOB maydoni) saqlashga to`g’ri keladi. Odatda, MB dagi ma`lumotlarini bir komp’yuterdan ikkinchisiga olib o`tish talab qilingani uchun, OLE ob’yektni biriktirilgan (embedded) ko`rinishida yaratish tavsiya qilinadi. Delphi da bunday maqsadlar uchun maxsus TDBOLEContainer tipidagi komponentalar kiritilmagan, ammo, OLE ob’yektlarni SaveToStream metodi bilan saqlash, keyinchalik LoadFromStream metodi bilan qayta tiklash mumkin.

procedure TOLEForm.SaveOLE(Sender: TObject);

var

BlSt : TBlobStream;

begin

With Table1 do

BlSt :TBlobStream.Create(BlobField(FieldByName('OLE')),

bmReadWrite);

OLEContainer.SaveToStream(BlSt as TStream);

BlSt.Free;

end;