FIBPlus + Ehlib локальная сортировка

Для того, чтобы в гриде Ehlib'а работала сортировка и фильтрация необходимо добавить в uses модуль находящийся в папке EhLib 5.2.84\DataService\Others естественно если вы работаете с
Ado необходимо выбрать EhlibADO в нашем случае необходимо выбрать EhlibFib
после чего в свойствах грида выставить значения так
 .SortLocal := True;
 .STFilter.InstantApply := True;
 .STFilter.Local := True;
 .STFilter.Visible := True;
после чего фильтрация должна работать в гриде нормально без написания дополнительного кода

И необходимо в Uses прописать EhlibFIB (для фибов)

BLOB поля в FIBPlus

Работа с BLOB полями

Редактирование BLOB поля

procedure TMainForm.OpenBClick(Sender: TObject);
begin
   if not OpenD.Execute then exit;
   pFIBDataSet1.Edit;
   TBlobField(pFIBDataSet1.FieldByName('GRAPHIC')).LoadFromFile(OpenD.FileName);
   pFIBDataSet1.Post;
end;

Методами SaveToFile, SaveToStream мы можем сохранить значение BLOB-поля в некоторый внешний файл или TStream.

Пример сохранения BLOB поля в файл:

procedure TMainForm.SaveBClick(Sender: TObject);
begin
    if not SaveD.Execute then exit;
    if not pFIBDataset1.FieldByName('GRAPHIC').IsNull then
    begin
        TBlobField(pFIBDataSet1.FieldByName('GRAPHIC')).SaveToFile(SaveD.FileName);
    end;
end;

Пример очистки BLOB поля.


procedure TMainForm.Button1Click(Sender: TObject);
begin
    pFIBDataSet1.Edit;
    pFIBDataSet1.FieldByName('GRAPHIC').Clear;
    pFIBDataSet1.Post;
end;

Оригинал http://www.devrace.com/ru/fibplus/articles/2261.php