VPF::Как создать при запуске алиас - Форум программистов

User

Дата 16.2.2005, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 5.11.2004

Репутация: нет
Всего: нет

Хочу при первом запуске программы создавать автоматически алиас. БД Paradox. Но что то не как не пойму.

Код


program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DM: TDataModule};

{$R *.RES}

begin
  DM.Database1.DatabaseName:= 'NewAlias';
  DM.Database1.DriverName:= 'STANDARD';
  DM.Database1.Params.Clear;
  DM.Database1.Params.Add('PATH=C:\);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TDM, DM);
  Application.Run;
end.

Это сообщение отредактировал(а) Alex - 17.2.2005, 00:01

NiJazz

Дата 16.2.2005, 13:13 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: нет
Всего: 23

User
Ты вообще ходил по той ссылке, что я оставил?
http://forum.vingrad.ru/index.php?showtopic=42630

z-END

Дата 16.2.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 1
Всего: 102

Код


procedure MakeAlias (path, name:String);
var
 L: TStringList;
begin
Result := true;
  L := TStringList.Create;
  try
    L.Add ('PATH='+path);
    Session.AddAlias (name, 'PARADOX', L);
  except  Result := false;
end;
freeAndNil (L);
end;

function DelAlias (name:String):Boolean;
begin
Result := True;
try Session.DeleteAlias (name);
except Result := False;
 end;
end;

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Dimich

Дата 16.2.2005, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 3
Всего: 7

Цитата(User @ 16.2.2005, 12:53)

begin
DM.Database1.DatabaseName:= 'NewAlias';
DM.Database1.DriverName:= 'STANDARD';
DM.Database1.Params.Clear;
DM.Database1.Params.Add('PATH=C:\);
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDM, DM);
Application.Run;
end.

А это ничего, что Вы пытаетесь юзать компоненты еще до того, как сделалось
Application.Initialize;
и тем более создалась форма (или DataModule, что это у Вас)
Application.CreateForm(TDM, DM);
Имхо это очень неправильно!

--------------------

Не работает - исправь, работает - не трогай!!!

User

Дата 16.2.2005, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 5.11.2004

Репутация: нет
Всего: нет

Вот что вышло господа программисты.

Код


program Project1;

uses
  classes,
  dbtables,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}


var
L: TStringList;
path : String;
begin
L := TStringList.Create;
try
path :='C:\';
L.Add ('PATH='+path);
L.Add ('enable bcd=FALSE');
Session.AddAlias ('qqqqq', 'PARADOX', L);
except
end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Токо вот меня интерисует как проверить, созданн ли данный алиас - то просто подключиться, а если нет то прописать - то что я уже написал. Типа небольшой проверки сделать.
Подскажите?

Это сообщение отредактировал(а) Alex - 17.2.2005, 00:00

Vit

Дата 16.2.2005, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

User - пользуйтесь обрамлением кода, читать трудно...

PS. Созданный так Alias будет временным, только на время работы программы

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

User

Дата 16.2.2005, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 5.11.2004

Репутация: нет
Всего: нет

Vit как не странно но он сохраняется в BDE_Administrator. Может я что то не доконца сделал. Жду твоих рекомендаций, лучше в данном примере.

z-END

Дата 16.2.2005, 16:58 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 1
Всего: 102

User объясни зачем тебе проверять есть ли уже алас или нет?! используй мою функцию, если результат true - значит небыло такого алиса, иначе он уже присутствует.

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Vit

Дата 16.2.2005, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

Цитата(User @ 16.2.2005, 07:52)

Даже после закрытия программы? smile

--------------------

User

Дата 17.2.2005, 09:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 5.11.2004

Репутация: нет
Всего: нет

Ага под Window XP все окей, убивается, а под window 2000 нет. Самое интересное что это происходит токо на моей машине, на остальных 2 убивается после закрытя программы, в чем дело неясно?

Vit

Дата 20.2.2005, 07:56 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 14
Всего: 207

А административные права есть?

PS. Не мучайся, советую делать session.SaveConfigFile чтобы стабильно работало всегда и везде

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »