Блог по программированию в среде Delphi

Поиск по блогу

Есть идея по созданию интересной программы?

Опиши тут и я по возможности постараюсь это реализовать специально для тебя! Без $ ))

суббота, 1 мая 2010 г.

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

Комментариев нет:

Отправить комментарий