подключение

← →
Ag2002 (2002-10-25 14:35) [0]

Подскажите пожалуйста, каким образом можно узнать как кто в данный момент подключен и использует сетевую БД ?

← →
MsGuns © (2002-10-25 14:51) [1]

Для парадокса самое простое
type
TMyForm = class(TForm)
...
db: TDatabase;
...

implementation

function DataBaseBusy: boolean;

...

function DataBaseBusy: boolean;
var
OldStatus: boolean;
begin
result:=false;
OldBoolean := db.connected;
try
If db.connected then
db.connected := false;
db.Exclusive := true;
db.Connected := true;
db.Exclusive := false;
result := true;
except
ShowMessage("С БД работают !");
end;
db.connected := OldBoolean;
end;

← →
Ag2002 (2002-10-29 10:20) [2]

Нет мне нужно узнать не оккрыта ли она а сетевое ИМЯ компа где используют БД ? реально это ??

← →
kudatsky (2002-10-29 10:47) [3]

Я поступаю так, но только с DBF-файлами:
1. В директории БД создаётся файл с именеи ID.use, где ID-сетевое имя машины, работающей с БД.
Этот файл открывается в момент начала работы с БД и закрывается при окончании. Пока он открыт, другое приложение его удалить не может.
2. Чтобы получить список машин, которые работают с БД, нужно получить список файлов ID.use и попытаться удалить их. Имена файлов, которые не удалились, и содержат имена подключенных машин.

← →
Ренат © (2002-10-29 11:09) [4]

Лучше смотри кто открыл файл используя winapi если база под
виндами

А лог вести не пытался, чтобы клиентская прога после запуска писала в него, что подключилась, а после завершения работы, что отключилась. Выбирай все активные подключения и вперед...

← →
Ag2002 (2002-10-30 18:29) [6]

Ренат а какие именно функции ?

подключение Найти похожие ветки