Показать сообщение отдельно
  #1  
Старый 14.09.2010, 13:38
HAL HAL вне форума
Прохожий
 
Регистрация: 14.09.2010
Сообщения: 1
Репутация: 10
По умолчанию Изменение месторасположения PDOXUSRS.NET-файла во время работы

Кто-нибудь знает как изменить месторасположение файла PDOXUSRS.NET
во время выполнения программы?

Тем, кого волнует этот вопрос, могу ответить - Элементарно, Ватсон!

В Delphi, и в BilderC++ тоже, существует невизуальный компоненент Session,
который осуществляет общее управление связыванием приложения с базами
данных. Свойства и Методы этого компанента подробно изложены в книге
А.Я. Архангельского "Delphi 7 справочное пособие". Издательство "БИНОМ"
Москва, 2003 год, на страницах 711 - 716.

Используя выше сказанное предлагаю свой код программы.

Код на Delphi
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
    Session.AutoSessionName := False;     //Запретить создание сессии автоматически 
    Session.SessionName := 'New Session';//Задать имя сессии, какое Вам нравится
    Table1.SessionName := Session.SessionName; //Присвоить свойству таблици имя сессии
    //Указать директортю для файла PDOXUSRS.NET
    Session.NetFileDir := Table1.DatabaseName; //Это директория БД  
    //Или нужная Вам директория, например
    //Session.NetFileDir := 'D:\';
    Session.Active := True;              //Активизировать новую сессию
    Table1.TableType := ttParadox;      //Присвоить свойству Таблици значение
    Table1.Active := True;              //Активировать Таблицу
end;
Код на Bilder C++
Код:
void __fastcall TForm1::FormCreate(TObject *Sender)
{

    Session->AutoSessionName = false;//Запретить создание сессии автоматически 
    Session->SessionName = "New Session";//Задать имя сессии, какое Вам нравится
    Table1->SessionName = Session->SessionName; //Присвоить свойству таблици имя сессии
    //Указать директортю для файла PDOXUSRS.NET
    Session->NetFileDir = Table1->DatabaseName; //Это директория БД
    //Или нужная Вам директория, например
    //Session->NetFileDir = "D:\\";
    Session->Active = true; //Активизировать новую сессию
    Table1->TableType = ttParadox; /.Присвоить свойству Таблици значение
    Table1->Active = true; //Активировать Таблицу
}
Admin: Пользуемся тегами!

Элементарней некуда!
Ответить с цитированием