Суббота, 04 Май 2024, 18:51
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


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

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


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

Paradox в сети
Может мне кто-нибудь помочь? Я получаю следующую ошибку
приложения....Not initialized for accessing network files (не инициализировано
для доступа к сетевым файлам).
Программа Borland BDE Install НЕ включает в себя автоматически драйвер для
работы в сети для таблиц Paradox, если целевой компьютер подключен к сети. Ваш
пользователь получит сообщение об ошибке, если путь никем не установлен.
Программы третьих фирм, устанавливающие BDE, поступают точно так же (я использую
WISE). Настройка сетевого каталога возможна программным путем из самой
программы, или с помощью пользователя и утилиты BDEconfig.

При запуске приложения я разворачиваю предусмотренную Borland DLL
"netdir.dll" (58K), загруженную из форума PdoxWin, получаю доступ к idapi.cfg и
считываю значение сетевого каталога (netdir). Следующий код проверяет был ли
установлен сетевой каталог, и, если не был, то он временно устанавливается для
текущего сеанса пользователя.

{объявляем DLL функцию}
function getCFGNetDir
:pchar; far; external 'netdir'
index 4;

{проверяем и
при необходимости восстанавливаем сетевой каталог}
procedure
TmySplashForm.FormCreate(Sender: TObject);
var
theNetDir : pchar
;
theChar : char;

begin
theChar := ':'
theNetDir := getCFGNetDir;

if (strscan(theNetDir,theChar) = nil)
then
session.netfiledir := 'C:\'
;end;
Категория: Не стандартные примеры на Delphi | Добавил: Lerka (22 Ноя 2012)
Просмотров: 493 | Рейтинг: 1.0/ 5 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


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


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

Профиль
Суббота
04 Май 2024
18:51


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