Советы по Delphi. Версия 1.4.3 от 1.1.2001

При установке вашего обратного вызова вам понадобится передавать BDE указатель на структуру данных, содержащую информацию о предыдущем установленном обратном вызове, после чего, при выполнении вашей функции обратного вызова, вы можете воспользоваться оригинальным обратным вызовом (если он установлен).

BDE каждый раз возвращает вашему приложению сообщение, содержащее количество обработанных записей, или же процентное соотношение обработанных записей, также передаваемое в виде целого числа. Ваш код должен учитывать эту ситуацию. Если процентное поле в структуре обратного вызова больше чем -1, можно сделать вывод что передан процент и можно сразу обновить линейку прогресса. Если же это поле меньше нуля, обратный вызов получил текстовое сообщение, помещенное в поле szTMsg и содержащее количество обработанных записей. В этом случае вам понадобится осуществить грамматический разбор текстового сообщения, преобразовать остальные строки в целое, затем вычислить текущий процент обработанных записей, и только после этого изменить линейку прогресса.

Наконец, после осуществления операции с данными, вам необходимо "отрегистрировать" ваш обратный вызов, и вновь установить предыдущую функцию обратного вызова (если она существует).

Для следующего примера необходимо создать форму и расположить на ней две таблицы, компонент ProgressBar и кнопку.

----- Демонстрационный код ---------

unit Testbc1;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ComCtrls;

type TForm1 = class(TForm)

 Table1: TTable;

 BatchMove1: TBatchMove;

 Table2: TTable;

 Button1: TButton;

 ProgressBar1: TProgressBar;

 procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var Form1: TForm1;

implementation

uses Bde; {Здесь расположены Dbi Types и Procs}

{$R *.DFM}

{тип структуры данных для сохранения информации о предыдущем обратном вызове}

type TDbiCbInfo = record

 ecbType     : CBType;

 iClientData : longint;

 DataBuffLn  : word;

 DataBuff    : pCBPROGRESSDesc;

 DbiCbFn     : pointer;

end;

type PDbiCbInfo = ^TDbiCbInfo;

{Наша функция обратного вызова}

function DbiCbFn(ecbType: CBType; iClientData: Longint; CbInfo: pointer): CBRType stdcall;

var s : string;

begin

 {Проверяем, является ли тип обратного вызова тем, который мы ожидаем}

 if ecbType = cbGENPROGRESS then begin

  {если iPercentDone меньше нуля, извлекаем число}

  {обработанных записей из параметра szMsg}

  if pCBPROGRESSDesc(cbInfo).iPercentDone < 0 then begin

   s := pCBPROGRESSDesc(cbInfo).szMsg;

   Delete(s, 1, Pos(': ', s) + 1);

   {Вычислям процент выполненного и изменяем линейку прогресса}

   Form1.ProgressBar1.Position :=Round((StrToInt(s) / Form1.Table1.RecordCount) * 100);

  end else begin

   {Устанавливаем линейку прогресса}

   Form1.ProgressBar1.Position:=pCBPROGRESSDesc(cbInfo).iPercentDone;

  end;

 end;

 {существовал ли предыдущий зарегистрированный обратный вызов?}

 {если так - осуществляем вызов и возвращаемся}

 if PDbiCbInfo(iClientData)^.DbiCbFn <> nil then

  DbiCbFn:=pfDBICallBack(PDbiCbInfo(iClientData)^.DbiCbFn)(ecbType,PDbiCbInfo(iClientData)^.iClientData,cbInfo)

 else DbiCbFn := cbrCONTINUE;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 CbDataBuff: CBPROGRESSDesc; {Структура DBi}