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

Материал из DRKB

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



Source: Взято с http://delphiworld.narod.ru
ID: 02476