Кто-нибудь знает как изменить месторасположение файла 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: Пользуемся тегами!
Элементарней некуда!