Пятница, 03 Май 2024, 15:30
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635


Онлайн всего: 4
Гостей: 4
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Не стандартные примеры на Delphi

Доступ к таблицам Paradox на CD или c флагом только для чтения
Тема: Доступ к таблицам Paradox на CD или на дисках c флагом только
для чтения

Данный совет поможет вам разобраться в таком вопросе, как доступ к таблицам
Paradox, расположенным на CD-ROM или диске, имеющем флаг "только для чтения".

Механиз блокирования файлов Paradox требует наличие файла PDOXUSRS.LCK,
осуществляющий логику работы блокировки. Данный файл обычно создается во время
выполнения приложения и располагается в том же каталоге, где и таблицы. Тем не
менее, в случае с CD-ROM, во время выполнения программы нет никакой возможности
создать на нем описанный выше файл. Решение простое: мы создаем этот файл и
помещаем его на CD-ROM во время его (CD) создания. Следующая простейшая
программка позволит создать вам файл PDOXUSRS.LCK и поместить его в образ
компакта для его последующего копирования на CD-ROM:

Стартуйте пустой проект и добавьте на форму следующие компоненты: TEdit,
TButton и TDatabase.
В обработчике кнопки OnClick используйте следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ChkPath then
Check(DbiAcqPersistTableLock(Database1.Handle, 'PARADOX.DRO','PARADOX'));
end;
Категория: Не стандартные примеры на Delphi | Добавил: Lerka (22 Ноя 2012)
Просмотров: 346 | Рейтинг: 1.0/ 11 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Пятница
03 Май 2024
15:30


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz