blob поля в бд paradox

[wulf_01]

не подскажете как с blob полями работать
в таблице есть поле "изменения" типа ole как туда вводить инфу?
знаю что там будет храниться ссылка на документ но каким образом это организовать
просто я новичек )
если можно с примером

[mihali4]

Для затравки :
Сохранение и чтение файлов в BLOB-полях

// Сохраняем
procedure TForm1.Button1Click(Sender: TObject); 
var 
blob: TBlobStream; 
begin 
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmWrite); 
try 
blob.Seek(0, soFromBeginning); 
fs := TFileStream.Create('c:\your_name.doc', fmOpenRead or 
fmShareDenyWrite); 
try 
blob.CopyFrom(fs, fs.Size) 
finally 
fs.Free 
end; 
finally 
blob.Free 
end;

// Загружаем
procedure TForm1.Button1Click(Sender: TObject); 
var 
blob: TBlobStream; 
begin 
blob := yourDataset.CreateBlobStream(yourDataset.FieldByName('YOUR_BLOB'), bmRead); 
try 
blob.Seek(0, soFromBeginning); 
with TFileStream.Create('c:\your_name.doc', fmCreate) do 
try 
CopyFrom(blob, blob.Size); 
finally 
Free; 
end; 
finally 
blob.Free; 
end;

Как удалить данные из BLOB-поля ?
Только с использованием SQL:

UPDATE MyTable 
Set MyBlobField = Null 
WHERE MyField = 'Myvalue'

[wulf_01]

прошу прощения за тупость)
но как работать с этими полями?
создал таблицу в ней поле типа ole
кагда в дбгрид таблицу загружаю там отображается просто ole объект
а как к примеру туда данные записать или файл открыть??

mihali4 по вашему примеру можно работать и без базы данных, но тогда зачем указывать в базе тип поля ole

[mihali4]

Господь с вами ! Как это без базы данных ???
А компонент yourDataset.FieldByName('YOUR_BLOB' ) с указанием конкретного поля не к БД цепляется ?
Идите-ка вы в самую первую тему этого раздела - "Литература в помощь при работе с базами данных" и почитайте хоть что-нибудь.
Ликбезом с вами никто тут заниматься не будет...
Если в ближайшее время не представите своих наработок, тему закрою, а потом удалю.

[wulf_01]

19:43
извеняюсь не обратил внемания
просто я никак въехать не могу и инфу найти не могу по работе с ole полями

19:52
у меня есть таблица "pc" в ней есть поле изменение когда редактирую
таблицу в поле должно вноситься какие либо изменения если таковые произошли изменения в размере не ограничены поэтому мне посоветовали использовать поле с типом ole но как организовать ввод в это поле и просмотр не могу разобраться инфу найти чет не получается
работаю с базой paradox, query, dbgrid

Красные жирные циферки видны ?
Это время, когда вы отправляли свои сообщения друг за другом, подряд.
Читаем правила раздела.
По правилам это приравнивается к флуду.

[mihali4]

Сообщение от wulf_01

у меня есть таблица "pc" в ней есть поле изменение когда редактирую таблицу ... работаю с базой paradox, query, dbgrid

Где наработки ? Где код ? Пока что только неразборчивый словесный понос...

[Аватар]

Один вариант выгрузки в Stream и обратной загрузки вам показали. Есть еще способы

TBlobField(yourDataset.FieldByName('YOUR_BLOB')).SaveToFile
TBlobField(yourDataset.FieldByName('YOUR_BLOB')).SaveToStream
TBlobField(yourDataset.FieldByName('YOUR_BLOB')).LoadFromToFile
TBlobField(yourDataset.FieldByName('YOUR_BLOB')).LoadFromStream

А как поступать с данными выгруженными в Stream или файл вам решать, зависит от вида информации, которую вы кстати и не указали

[_SERGEYX_]

А я файл в бд гружу обычно sql-запросом. Быстрее работает

with Query1 do
begin
Sql.text:='Insert into myTable (a) Values (:b)'; 
Parameters.ParseSQL(Sql.Text, True); 
Parameters.ParamByName('b').LoadFromFile('имя_файла', ftBlob); 
ExecSql;
end;

P.S. Пример кода выдрал из своего блокнота... если что не так, извиняйте...