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

© АСБ-БАНК 2003
УПРАВЛЕНИЕ КОМПЬЮТЕРИЗАЦИИ
sen@asb-bank.ru
Яворовский Мечислав

**************************************************************
Благодарности:
Луппову Григрорию greg@ezmail.ru


История:
16.10.2003 - переправлен для использования формы как класса.
15.10.2003 - первый релиз. используется функция для доступа к форме (mainFDLG)

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

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

Использование:
Необходимы новые библиотеки 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 
 SaveDialog=TFormDlg;
 _SetEventDelay(100);

 SaveDialog.ClientPath="C:\\"; //Путь на клиенсткой машине
 SaveDialog.ServerPath="E:\\RSBANK.TSE"; //Путь на сервере
 SaveDialog.InitFileName="test.txt"; //Имя файла по умолчанию для записи
 SaveDialog.SaveDialog=True; //тип окна true-Сохранение false-Открытие
 SaveDialog.CanServer=True; //есть ли доступ к серверу? true - да false -нет
 SaveDialog.MaskaFiles="*.txt"; //маска для поиска файлов

 if(SaveDialog.Execute)  //Вызываем показ формы
  msgbox(SaveDialog.PathToFile);
  
  if(SaveDialog.IsServer) //Проверяем где расплогается файл
   msgbox("Файл на сервере!");
  end;
 end;


 end;