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

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

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

Delphi

procedure TFormBatch.BQueryBatchOutputRClick(Sender: TObject);
var Str: TFIBOutputRawFile;
begin
if OpenDialogOutRaw.Execute then
begin
Str := TFIBOutputRawFile.Create;
Str.Filename := OpenDialogOutRaw.FileName;
SelectQuery.Close;
SelectQuery.BatchOutput(Str);
SelectQuery.Close;
Str.Destroy;
end;
end;

C++

void __fastcall TFormBatch::BQueryBatchOutputRClick(TObject *Sender)
{
if (OpenDialogOutRaw->Execute())
{ TFIBOutputRawFile *Str;
Str = new TFIBOutputRawFile();
Str->Filename = OpenDialogOutRaw->FileName;
SelectQuery->Close();
SelectQuery->BatchOutput(Str);
SelectQuery->Close();
delete Str;
}
}

Важным условием нормальной работы является закрытие запроса и уничтожение объекта Str после выполнения экспорта. При уничтожении объекта TFIBOutputRawFile происходит закрытие выходного файла.

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