Демонстрация обратного вызова BDE

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

TCMAIN.PAS:

unit
 tcmain;

{ Демонстрация cbTableChange }

interface


uses


  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, BDE, StdCtrls;

const


  WM_UPDATETABLE = WM_USER + 1;

type


  TForm1 = class
(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Timer1: TTimer;
    Button1: TButton;
    procedure
 Table1AfterOpen(DataSet: TDataSet);
    procedure
 FormCreate(Sender: TObject);
    procedure
 Timer1Timer(Sender: TObject);
  private

    FChgCnt: Integer;
    FCB: TBDECallback;
    function
 TableChangeCallBack(CBInfo: Pointer): CBRType;
    procedure
 UpdateTableData(var
 Msg: TMessage); message
 WM_UPDATETABLE;
  end
;

var


  Form1: TForm1;

implementation


{$R *.DFM}

// Это функция, вызываемая функцией обратного вызова.

function
 TForm1.TableChangeCallBack(CBInfo: Pointer): CBRType;
begin


  Inc(FChgCnt);
  Caption := IntToStr(FChgCnt);
  MessageBeep(0);
  // Здесь мы не можем вызвать Table1.Refresh, делаем это позже.
  PostMessage(Handle, WM_UPDATETABLE, 0, 0);
end
;

// Данная функция вызывается в ответ на PostMessage (см. выше).

procedure
 TForm1.UpdateTableData(var
 Msg: TMessage);
begin


  // Не пытайтесь вызвать обновление, если мы в "середине" редактирования.
  if
 (Table1.State = dsBrowse) then

    Table1.Refresh;
end
;

procedure
 TForm1.Table1AfterOpen(DataSet: TDataSet);
begin


  // Установка обратного вызова.
  FCB := TBDECallback.Create(Self, Table1.Handle, cbTableChanged,
    nil
, 0, TableChangeCallBack);
end
;

procedure
 TForm1.FormCreate(Sender: TObject);
begin


  Table1.DatabaseName := ExtractFilePath(ParamStr(0));
  Table1.Open;
end
;

procedure
 TForm1.Timer1Timer(Sender: TObject);
var


  SeqNo: Longint;
begin


  // События таймера просто осуществляют вызов DbiGetSeqNo для получения доступа к таблице.
  // В противном случае мы не хотим делать обратный вызов, пока что-то делаем
  // (типа прокрутки) для получения доступа к данным. DbiGetSeqNo вызывается в случае,
  // если таблица не активна.
  if
 Table1.State <> dsInActive then

    DbiGetSeqNo(Table1.Handle, SeqNo);
end
;

end
.

TCMAIN.TXT:

object
 Form1: TForm1

Left = 270
Top = 230
Width = 361
Height = 251
Caption = 'Form1'
PixelsPerInch = 96
OnCreate = FormCreate
TextHeight = 13
object
 DBGrid1: TDBGrid
Left = 0
Top = 83
Width = 353
Height = 141
Align = alBottom
DataSource = DataSource1
TabOrder = 0
end

object
 DBNavigator1: TDBNavigator
Left = 96
Top = 4
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 1
end

object
 Button1: TButton
Left = 132
Top = 36
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 2
OnClick = Timer1Timer
end

object
 Table1: TTable
AfterOpen = Table1AfterOpen
DatabaseName = 'DBDEMOS'
TableName = 'VENDORS.DB'
Left = 16
Top = 8
end

object
 DataSource1: TDataSource
DataSet = Table1
Left = 52
Top = 8
end

object
 Timer1: TTimer
OnTimer = Timer1Timer
Left = 80
Top = 28
end

end

Другое по теме:

• BDE32 приложения в ptp-сети
• Архитектура BDE и его особенности при работе с SQL-серверами 1
• Архитектура BDE и его особенности при работе с SQL-серверами