Delphi World - Paradox в сети

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Paradox в сети

Автор: James Presley

Я пришел к тебе с дискетой, рассказать что сеть упала.

Может мне кто-нибудь помочь? Я получаю следующую ошибку приложения....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;