Сохранение и чтение файлов в 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; |
Далее: Сохранение страницы TF1Book в BLOB-поле »»