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

Советы » Записи, индексы, поля, закладки » Сохранение и чтение файлов в 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

; 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

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com