VPF::Добавление и удаление псевдонима

MacTep

Дата 19.8.2004, 23:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

Есть такой код:

Код

procedure TForm3.FormShow(Sender: TObject);
begin
  with Session do
    begin
      ConfigMode:=cmSession;
      try
        AddStandardAlias('Base',
                         ExtractFilePath(ParamStr(0))+'Bases\',
                         'Paradox');
        Table1.DatabaseName:='Base';  
        Table1.TableName:='Base.db';
        Table1.Active:=True;  
      finally
        ConfigMode:=cmAll;
      end;
    end;
end;

После первого показа данной формы, все работает нормально. Но как только я эту форму закрываю, а потом открываю повторно, то вылезает ошибка, мол, такой алиас уже есть. Наверное, нужно удалять данный псевдоним?! Как сделать удаление алиаса? Помогите...

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

<Spawn>

Дата 20.8.2004, 05:20 (ссылка)

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

Загрузка ...

Око кары:)

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

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

Поставь на OnDelete :

Код

Session.DeleteAlias('Base');

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Dynamic

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

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

Загрузка ...

Опытный

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

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

Код

function SetAlias(Session: TSession; DBPath, Alias: string): boolean;
begin
     Result := true;
     if Alias = '' then // delete alias
      if Session.IsAlias(Alias) then
      begin
        Session.DeleteAlias(Alias);
        Session.SaveConfigFile;        // ???  ãîâîðÿò, ÷òî ýòà ïðîöåäóðà íå íóæíà ???
      end else Result := false
     else         // create alias
     if not Session.IsAlias(Alias) then
     begin
       Session.AddStandardAlias(Alias, DBPath, 'ASCIIDRV');
       Session.SaveConfigFile;
     end else Result := false;
end;

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

Было бы о чем молчать, а уж что сказать – всегда найдется...

MacTep

Дата 20.8.2004, 16:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

Всем огромное спасибо, попробовал - работает!!!

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

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