Диалоговые формы открытия-сохранения файлов в 3-х звенке

© АСБ-БАНК 2003
УПРАВЛЕНИЕ КОМПЬЮТЕРИЗАЦИИ
sen@asb-bank.ru
Яворовский Мечислав
15.10.2003
**************************************************************
Благодарности:
Луппову Григрорию greg@ezmail.ru

Назначение:
Диалоговое окно для выбора файлов (на компьютере клиента и на сервере) при работе в трехзвенной архитектуре.

Возможности:
Показывает диалоговую форму выбора файлов для открытия или сохранения с индикацией
и выбором дисков.
Позволяет ограничить движения пользователей по каталогам сервера только
"домашним" каталогом пользователя.
Предусмотрены настройки, позволяющие запретить доступ к каталогам сервера.

Использование:
Необходимы новые библиотеки lg и doctor. (НЕ РАБОТАЕТ ДЛЯ ДОС!)


Замечания


1. Настройте пути import в fdlg как надо для вашего сервера!!!

2. Поместите в каталог сервера для макросов
из папки архива Mac_server
fdlg.mac
vch10s.mac
lgs.d32 - от 14.10.2003

из папки архива new_srv
из поставки VCH (можно найти в интернете,
http://members.softlab.ru/kubrin/FileArch/vch.zip )
CLIP_S.D32
VSTRINGS.D32

Туда же поместите библиотеку
doctor.d32 (посл. версию можно найти в интернете, http://www.rsl.itb.ru/dlms.htm )


3. Поместите(обновите, если версия старее)
в папку терминала на клиентской машине (C:\TERMINAL)
из mac_term
lg.d32 - от 14.10.2003

Удачи!

 
  import "fdlg";
  var flag:bool,
  retv:string; //Возращает имя выбранного файла 
  flag=false; //false - диалог открытия, true - диалог сохранения
  
  // выбр_имя_файла=mainFDLG(путь_клиент,путь_сервер,флаг_диалога,
  //                         имя_файла_нач,макска_поиска);
  cpath="c:\\";
  spath="..\\"; //если ="DISABLE" то доступ к серверу запрещен
  filen="test.txt"; //актуален только в диалоге сохранения
  mask="*.txt"; //Добавляет дополнительную маску поиска файлов
  retv=mainFDLG(cpath,spath,flag,filen,mask);
  if(flag)
   MsgBox("СЕРВЕР"); //Если flag=true файл на сервере
                     //     flag=false файл у клиента
  end;

  if(retv!="") //Если действительно выбрали файл
   MsgBox(retv);
  end;
 END.