Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Базы данных \ BDE \ Демонстрация обратного вызова BDE

Демонстрация обратного вызова 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

Название: Демонстрация обратного вызова BDE
Дата публикации: 2004-03-16 (3228 Прочтено)

 
 

 

Page generation 0.037 seconds