Текущий архив: 2003.06.12;
Скачать: CL | DM;

Вниз

Alias   Найти похожие ветки 

← →
edicon ©   (2003-05-23 00:28) [0]

Уважаемые мастера! Помогите!
(понимаю, что этот вопрос задавался тысячу раз,
но ответ не могу что-то найти...)

Буду краток: как по имени алиаса узнать
физический путь к папке.

Спасибо за внимание!

---

← →
Виталий Панасенко   (2003-05-23 09:04) [1]

Получи праметри и в одном из них, PATH и содержиться путь...См. компонент Session

---

← →
ККВ ©   (2003-05-23 09:20) [2]

uses
DBiTypes;

function GetDataBaseDir(const Alias: string): String;
var
R: DBDesc;
begin
Check(DbiGetDatabaseDesc(PChar(Alias), @R));
Result := R.szPhyName;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetDataBaseDir("Alias");
end;

---

← →
KDS ©   (2003-05-23 12:51) [3]

>ККВ: Апишные функции БДЕ глючат с русской кодировкой при работе в кириллических каталогах. А это пашет на все 100% из реальной проги
function GetDataBaseDirByAlias(const pAlias : AnsiString): AnsiString;
{возврат пути к БД по алиасу без слеша в конце}
var MyStringList:TStringList;
PathToDB: AnsiString ;
begin
GetDataBaseDirByAlias:="";
PathToDB:="";
try
MyStringList := TStringList.Create;
Session.GetAliasParams(pAlias,MyStringList);
PathToDB:=MyStringList.Values["PATH"];
finally
MyStringList.Free;
end;
GetDataBaseDirByAlias:=PathToDB;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.06.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c