Сохранение и чтение файлов в 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
;

Как сделать калькулятор в Delphi?

Как Delphi реализует многоплатформенную разработку?

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

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

Категории

Статьи

Советы