%UserProfile% и Firebird

[Romowski]

Добрый день!

Имеется база firebird, которая расположена в %UserProfile%\base\base.FDB

В Файле aliases.conf эта база представлена через алиас вот так:

MyBase = %UserProfile%\base\base.FDB

Когда через Дельфи подключаюсь к БД по алиасу

DatabaseName:='localhost:MyBase';

то прога не находит файл БД.

Если в файле aliases.conf прописать нормальный путь

MyBase = c:\Users\Iam\base\base.FDB

то все работает.

Подскажите, как мне правильно подключиться к БД.

[Yurk@]

так и подключайся
MyBase = c:\Users\Iam\base\base.FDB

[Stilet]

так и подключайся

Так нельзя. Имя пользователя не известно заранее.

[Romowski]

Сообщение от Stilet

Так нельзя. Имя пользователя не известно заранее.

вот и я про это...

[Romowski]

Кстати, может это поможет вам:

Я делаю дистрибутив при помощи SmartInstallMaker, и базу копирую в

%UserProfile%\base\base.FDB

А можно при установки запускать bat-файл, который бы перезаписывал aliases.conf на те, значения, которые мне нужны? эмммм... только опять как же получить нормальную строку вместо %...%

[Yurk@]

например так

[Romowski]

Сообщение от Yurk@

например так

видел такую функцию ))
но я ведь через алиас подключаюсь... а можно что-нибудь подобное (т.е. замену части пути на нормальный) через батник сделать?

или если можно как-нибудь в delphi узнать путь по алиасу и отредактировать его?

[Yurk@]

ну так и читай с дельфи файл aliases.conf и парси его как тебе нужно. а потом пиши в тот же файл уже нужные изменения.
хотя я, честно говоря, не понимаю - зачем весь этот гем**ой с переменными путями в алисах? лишних проблем в работе софта не хватает?
ставь базу в нормальный каталог (напр с:\data) да и все
ps. а если уж каталог "%UserProfile%\" пишеться только из тех соображений чтобы только 1 пользователь мог работать с базой - так лучше использовать Embedded версию

[Аватар]

function GetUserTempPath: String;
var xShell,xEnvironment: OleVariant;
    xPath1,xPath2: String;
    i: Integer;
begin
  xShell:=CreateOleObject('WScript.Shell');
  xEnvironment:=xShell.Environment['USER'];
  xPath1:=xEnvironment.Item['TMP'];
  xPath2:=xShell.ExpandEnvironmentStrings('%USERPROFILE%');
  i:=Pos('%USERPROFILE%',xPath1);
  if i>0 then begin
    Delete(xPath1,i,13);
    Result:=xPath2+xPath1;
  end
  else Result:='?';
  xShell:=Unassigned;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=GetUserTempPath;
end;

[Romowski]

Сообщение от Yurk@

ну так и читай с дельфи файл aliases.conf и парси его как тебе нужно. а потом пиши в тот же файл уже нужные изменения.
хотя я, честно говоря, не понимаю - зачем весь этот гем**ой с переменными путями в алисах? лишних проблем в работе софта не хватает?
ставь базу в нормальный каталог (напр с:\data) да и все
ps. а если уж каталог "%UserProfile%\" пишеться только из тех соображений чтобы только 1 пользователь мог работать с базой - так лучше использовать Embedded версию

по порядку отвечаю ))
1. с Дельфи читать не самое лучшее решение: т.к. я коннектюсь через алиас... стало быть мне необходимо по алиасу считать путь, изменить его на нормальный и опять же подключаться к алиасу? не очень как-то
2. нормальный каталог - тоже не стоит... а то пользователи слишком уж любопытные
3. embedded не пойдет, т.к. может в дальнейшем быть 3-4 пользователя

вооот )