Проблема с TBDECallback [D6, dBase, FoxPro]
Страницы:
<
1
2
>
leonidus © (2004-07-27 10:16:00)
Есть локальная БД dBase, хочу с на ней отработать функцию
обратного вызова что бы потом перенести опыт на распеределенную БД
на двух компах. Итак, делаю вот что:
//эту функцию надо будет вызвать обратным вызовом
function TForm1.TableChangeCallBack(CBInfo: Pointer):
CBRType;
begin
MessageBeep(0);
end;
procedure TForm1.T1AfterOpen(DataSet: TDataSet);
begin
// устанавливаю функцию обратного вызова
TBDECallback.Create(Self, TTable(DataSet).Handle,
cbTableChanged, nil, 0, TableChangeCallBack,
True);
end;
по таймеру проверяю занята ли таблица и если она свободна
разрешую к ней доступ
procedure TForm1.Timer1Timer(Sender: TObject);
var
SeqNo: Longint;
begin
if T1.State <> dsInActive then
DbiGetSeqNo(T1.Handle, SeqNo);
end;
Все как в литературе:
http://www.delphirus.com.ru/delphi-sovetid-129.html
http://www.delphikingdom.ru/asp/viewitem.asp?UrlItem=/helloworld/bdeloc.htm
НО TableChangeCallBack никогда не выполняется, в чем тут
дело?
Sandman25 (2004-07-27 10:21:00) [21]
Насколько я помню, callback работает только для Paradox
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
