Архив форумов ЦИТФорума

[ooo]

Доброе время суток!
Есть программулина работающая с БД.
Подскажите, как на дельфях проверить запущенно ли это приложение и если запущено, то второю копию открыть с доступом к БД - ReadOnly?

[grf]

Используй в проге API функцию FindWindow

_________________
Errare humanum est

[ooo]

А примером моно показать... а то я далеко не программер в этом деле.

[Mytilus Galloprovincialis]

Первое, что должна выполнить прога при запуске - это вызвать функцию FindWindow [uses Windows], где аргументами будут соответственно nil и заголовок главного окна формы. Если копия твоей программы была запущена ранее и форма уже открыта, функция вернет ее дескриптор. В противном случае, результатом будет nil. Таким обазом можно узнать, какой доступ осуществить к БД.
Вообще, это не самый правильный способ (в смысле, использовать эту функцию). Но если ты не собираешся сертифицировать свое творение в MS, то сойдет.

[grf]

[Mytilus Galloprovincialis]

Если надо, чтобы совсем правильно, то делается это через ADO-соединение. Запущеная программа пытается подключиться к первому экземпляру и посылает запрос. Если получает отклик, значит до нее уже экземпляр был запущен.
Но! Такая мутота оправдана только в трех случаях. Первое: приложение будет проходить сертификацию Майкрософт. Второе: экземпляры необходимо отлавливать не только на собственном компе, но и по всей сети. Третье (и более реальное): необходимость передачи каких-либо данных от одного экземпляра другому; например, первый может запросить параметры ключей командной строки второго. (Так, к примеру, поступает Word, получая от второй копии имя открываемого файла.)
Если же программный код не будет выставляться на суд дока-разработчиков, FindWindow - наверное, оптимальное решение.

[ooo]

Спасибо ребятки .. .выручили,
и можно в догонку исчо один вопрос?
Вот есть папка с файлами БД, скажем нужно по нажатию кнопки создать директорию равную текущей дате и скопировать туда все файлики из папки dbf в папку скажем 20.11.2006 /если седни такая дата/.
Накорябал тут кое чего ... папка создается но файлы не копируются ... то пишут что заняты другим пользователем, то исчо что то ... не помню ...
Млин как вылечиться? Киньте плиз примерчик

[Mytilus Galloprovincialis]

Скорее всего, тобой же эти файлы и заняты. Если комп ругается, что не может копировать, потому что что-то кем-то занято, значит, файлы защищены от чтения. Такие штуки возникают, когда проге, работающей с файлами, может понадобиться содержимое этого файла оперативно изменить. Так что, скорее всего, это твоя же программа открыла файлы, а закрыть - не закрыла. Перед копированием необходимо закрыть эти файлы, отключить соединение с БД и тогда уже копировать.
Так же в Делфях полно функций, процедур и методов, копирующих файлы. Возможно, некоторые из них закручены так хитро, что в результате Виндоуз выдает тебе такой мессаг. Испольуй CopyFile(), выполнив все инструкции выше, и будет тебе счастье!

[ooo]

Дык вроде как переводил active в фалс ... и т.д. ничего не изменялось.
закрывал файл в ручную... ничего
посоветуйте ... чтонить, могет примером

[ooo]

Дык вроде как переводил active в фалс ... и т.д. ничего не изменялось.
закрывал файл в ручную... ничего
посоветуйте ... чтонить, могет примером
CopyFile и и спользовал ...

[Mytilus Galloprovincialis]

Во-первых, свойство Active рекомендуется использовать только для чтения, а для подключения/отключения юзай методы Open и Close. Во-вторых, если это не поможет, значит, файлы блокируются не твоей программой, а драйвером подключения к БД. В таком случае, вижу два варианта: либо (если это возможно) использовать другой драйвер (другой тип подключения), либо создавать файл программно, считывая данные с оригинала.
Хотя, надо поковыряться и все же понять, че это он не дает доступ.

[ooo]

Чего токак не делал...никак нехотела.
Но при таком варианте заработало!!!

DD:=DateToStr(Date);
DDf:=DD+'\one.dbf';

Mkdir(DD);
AssignFile(F, 'dbf\one.dbf')
tblOne.Active:=false;
tblOne.Active:=true;
tblOne.Refresh;
CloseFile(F);
CopyFile('dbf\one.dbf',PChar(DDf),true);

Помоему глупо, но работает...
Но при этом выдается, "Warning", --> Unsafe type PChar
Чем же ПЧар ему так не доверителен?
и как этого моно избежать?

[Mytilus Galloprovincialis]

PChar DDf;
DDf := PChar(DD + '\one.dbf');
...
CopyFile('dbf\one.dbf', DDf, true);

Дело в том, что второй аргумент функции CopyFile() - ссылка. И Delphi предупреждет, что раз это ссылка, то функция, возможно, захочет изменить в ней значение. Поэтому надо использовать переменную, а не результат выполнения PChar(что_то_там).

[ooo]

Не заработала в таком виде!!!

Я юзаю Делфи-7, могет в этом фича?

[Mytilus Galloprovincialis]

Ну, хрен знает. Попробуй потоком: