FIBPlus: Экспорт и импорт таблиц с использованием методов Batch компонентов TpFIBQuery и TpFIBDataSet. Часть 3. TpFIBQuery. Импорт в бинарном формате

Предыдущая часть

Для импорта данных в бинарном формате с использованием функции BatchInput напишите следующий обработчик события щелчка по кнопке BQueryBatchInputR.

Delphi

procedure TFormBatch.BQueryBatchInputRClick(Sender: TObject);
var Str: TFIBInputRawFile;
begin
if OpenDialogInRaw.Execute then
begin
Str := TFIBInputRawFile.Create;
Str.Filename := OpenDialogInRaw.FileName;
InsertQuery.BatchInput(Str);
pFIBTransaction1.CommitRetaining;
Str.Destroy;
pFIBDataSet1.FullRefresh;
end;
end;

C++

void __fastcall TFormBatch::BQueryBatchInputRClick(TObject *Sender)
{
if (OpenDialogInRaw->Execute())
{ TFIBInputRawFile *Str;
Str = new TFIBInputRawFile();
Str->Filename = OpenDialogInRaw->FileName;
InsertQuery->BatchInput(Str);
pFIBTransaction1->CommitRetaining();
delete Str;
pFIBDataSet1->FullRefresh();
}
}

Функции BatchInput передается объект класса TFIBBatchInputStream. Для импорта таблицы в бинарном формате функции следует передать объект класса TFIBInputRawFile, являющийся потомком TFIBBatchInputStream. Мы создаем объект этого класса Str. Обязательным свойством этого объекта является имя файла (Filename).

Как и в первом проекте, при щелчке по кнопке BDeleteAll используется метод Execute для удаления всех записей таблицы PERSON.

Продолжение следует...