ذخیره اطلاعات در Field Ole object توسط OleContainer دلفی

[MOHSEN731]

با سلام
من در بانک access خود یک فیلد ole object دارم که می خواهم بانک را تحت دلفی باز کرده و طی یک حلقه این فیلد را پر کنم بوسیله
OleContainer من مقدار را به فیلد دادم که با خطای interface not supported مواجه شدم اشتباه من کجاست این هم سورس :


procedure OleToBlob (Blob: TBlobField; OleContainer: TOleContainer);
var
Stream: TBlobStream;
begin
If not ( Blob.Dataset.State in [dsEdit, dsInsert] ) then
Blob.DataSet.Edit;
Stream := TBlobStream.Create(Blob, bmWrite);
try
Stream.Seek(0, soFromBeginning);
Stream.Truncate;
OleContainer.SaveToStream(Stream);
finally
Stream.Free;
end;

Blob.DataSet.Post;
end;
همچنین برای خالی کردن بانک از تابع زیر استفاده کردم که با خطای operation is not allowed in this context مواجه شدم


ADOTable1.DeleteRecords(arAll);


ممنون

[esi022]

http://www.swissdelphicenter.ch/torry/showcode.php?id=1748

[MOHSEN731]

با تشکر از عنایت شما ولی راه حل شما که جواب می ده اطلاعات را به صورت data binary ذخیره می کند که در access با انتخاب آن کار نمی کند ولی اگر ole object ذخیره بشود با انتخاب آن فیلد در access فایل مربوطه در برنامه خودش باز می کند . اگه راه حل دیگری است لطفا ارائه نمایید :گیج: