Delphi Blob Поле

В Delphi имеется поле BLOB, которое предназначено для хранения больших данных, таких как изображения, аудио или видеофайлы в базах данных. Blob поле может содержать до 2 Гб данных.

Для того, чтобы сохранить данные в поле BLOB, необходимо использовать объекты TStream, которые предоставляют стримы с данными для записи и чтения. Например:

var
  Stream: TStream;
  BlobField: TBlobField;
begin
  Stream := TFileStream.Create('image.jpg', fmOpenRead);
  try
    BlobField := TBlobField.Create(nil);
    try
      BlobField.DataSet := DataSet;
      BlobField.FieldName := 'Photo';
      BlobField.LoadFromStream(Stream);
      DataSet.Post;
    finally
      BlobField.Free;
    end;
  finally
    Stream.Free;
  end;
end;

Этот код загружает изображение из файла 'image.jpg' в поле 'Photo' в DataSet. Также можно использовать метод LoadFromFile, чтобы загрузить данные непосредственно из файла:

var
  BlobField: TBlobField;
begin
  BlobField := TBlobField.Create(nil);
  try
    BlobField.DataSet := DataSet;
    BlobField.FieldName := 'Photo';
    BlobField.LoadFromFile('image.jpg');
    DataSet.Post;
  finally
    BlobField.Free;
  end;
end;

Для чтения данных из поля BLOB также необходимо использовать объекты TStream. Например, следующий код сохранит изображение в файл:

var
  Stream: TStream;
  BlobField: TBlobField;
begin
  BlobField := TBlobField(DataSet.FieldByName('Photo'));
  Stream := TFileStream.Create('image.jpg', fmCreate);
  try
    Stream.CopyFrom(BlobField, BlobField.DataSize);
  finally
    Stream.Free;
  end;
end;